Help, help
ragazzi non riesco a capire come sistemare questo codice (x me è un po troppo complesso da aggiustare a mano,è generato con ultradev 4)
il problema è che dovrei chiudere sti benedetti Recordeset prima di iniziare il ciclo While..ma non riesco a capire come dove inserire l'istrzione che mi ha dato Gioba66: if not rs_marca.eof then che poi dovrei kiudere con un end if. riposto il codice (rifatto con Ultradev:
codice:<%@LANGUAGE="VBSCRIPT"%> <% set rs_marca = Server.CreateObject("ADODB.Recordset") rs_marca.ActiveConnection = MM_conn_marca_modello_STRING rs_marca.Source = "SELECT * FROM MARCA ORDER BY MARCA ASC" rs_marca.CursorType = 0 rs_marca.CursorLocation = 2 rs_marca.LockType = 3 rs_marca.Open() rs_marca_numRows = 0 %> <% Dim rs_modello__MMColParam rs_modello__MMColParam = "1" if (Request.Form("sel_marca") <> "") then rs_modello__MMColParam = Request.Form("sel_marca") %> <% set rs_modello = Server.CreateObject("ADODB.Recordset") rs_modello.ActiveConnection = MM_conn_marca_modello_STRING rs_modello.Source = "SELECT * FROM MODELLO WHERE MARCA = " + Replace(rs_modello__MMColParam, "'", "''") + " ORDER BY MODELLO ASC" rs_modello.CursorType = 0 rs_modello.CursorLocation = 2 rs_modello.LockType = 3 rs_modello.Open() rs_modello_numRows = 0 %> <html> <head> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body bgcolor="#FFFFFF" text="#000000"> <form name="form1" method="post" action="index_select.asp"> <select name="sel_marca" onChange="this.form.submit()"> <% While (NOT rs_marca.EOF) %> <option value="<%=(rs_marca.Fields.Item("ID").Value)%>" <%if (CStr(rs_marca.Fields.Item("ID").Value) = CStr(rs_modello.Fields.Item("MARCA").Value)) then Response.Write("SELECTED") : Response.Write("")%>><%=(rs_marca.Fields.Item("MARCA").Value)%></option> <% if not rs_marca.eof then end if%> <% rs_marca.MoveNext() Wend If (rs_marca.CursorType > 0) Then rs_marca.MoveFirst Else rs_marca.Requery End If %> </select> <select name="sel_modello"> <% While (NOT rs_modello.EOF) %> <option value="<%=(rs_modello.Fields.Item("ID").Value)%>" ><%=(rs_modello.Fields.Item("MODELLO").Value)%></option> <% rs_modello.MoveNext() Wend If (rs_modello.CursorType > 0) Then rs_modello.MoveFirst Else rs_modello.Requery End If %> </select> </form> </body> </html> <% rs_marca.Close() %> <% rs_modello.Close() %>
Rispondi quotando
