while loop

[idsanjeev]

hello
i am using it for diaplay massage if selected cartidge color is not color the massage oherwise work when remove the while loop it accept first color of that cartidge.

Prn = VAR_TYPE
 
Set R= CON.EXECUTE("SELECT item_type,color FROM printer_master WHERE Prn_Sl_No IN(SELECT Prn_sl_No FROM PRINTER_ISSUED WHERE Prn_Is_No='"&Prn&"')")
 
while not R.EOF
if R("color")=var_clr then
VAR_CLR    =R("color")
else
response.Redirect("massage.asp")
R.MoveNext
End if
wend
 
 
Set CT = CON.EXECUTE("SELECT item_type FROM printer_master WHERE Prn_Sl_No IN (SELECT Prn_Sl_No FROM PRINTER_ISSUED WHERE Prn_IS_No ='"&Prn&"' ) AND COLOR= '"&VAR_CLR&"' ")
 VAR_TYPE = CT("Item_type")

[shweta123]

Hi,

Are you getting any error into this?

hello
i am using it for diaplay massage if selected cartidge color is not color the massage oherwise work when remove the while loop it accept first color of that cartidge.

Prn = VAR_TYPE
 
Set R= CON.EXECUTE("SELECT item_type,color FROM printer_master WHERE Prn_Sl_No IN(SELECT Prn_sl_No FROM PRINTER_ISSUED WHERE Prn_Is_No='"&Prn&"')")
 
while not R.EOF
if R("color")=var_clr then
VAR_CLR    =R("color")
else
response.Redirect("massage.asp")
R.MoveNext
End if
wend
 
 
Set CT = CON.EXECUTE("SELECT item_type FROM printer_master WHERE Prn_Sl_No IN (SELECT Prn_Sl_No FROM PRINTER_ISSUED WHERE Prn_IS_No ='"&Prn&"' ) AND COLOR= '"&VAR_CLR&"' ")
 VAR_TYPE = CT("Item_type")

[idsanjeev]

ya
Error Type:
Active Server Pages, ASP 0113 (0x80004005)
The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools.

[idsanjeev]

I wants to do is printer cartige type is slected and the color of cartidge is selected then
chek if color of cartidge match then insert data into table ohtewise error massage

[shweta123]

Hi,

I think you are getting error because you have put R.moveNext statement into else part. Put it after end if.

e.g.

while not R.EOF
if R("color")=var_clr then
VAR_CLR =R("color")
else
response.Redirect("massage.asp")
End if
R.MoveNext
wend

I wants to do is printer cartige type is slected and the color of cartidge is selected then
chek if color of cartidge match then insert data into table ohtewise error massage