Salve a tutto il forum!
il mio problema è che non riesco a far funzionare delle select dinamiche.Io ho preso spunto da un articolo (http://pro.html.it/articoli/id_24/idcat_16/pro.html)
sembra ke il codice della pagina sia a posto ma quando provo a far funzionare il tutto:

Il record corrente corrisponde all'inizio o alla fine del file oppure è stato eliminato. Per eseguire l'operazione richiesta è necessario disporre di un record corrente.
/Autoweb/index.asp, line 49

Sembra ke la prima select non passi il valore.

posto il codice della pagina, e sono a disposizione :

codice:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
Dim rs_marca
Dim rs_marca_numRows

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 = 1
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")
End If
%>
<%
Dim rs_modello
Dim rs_modello_numRows

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 = 1
rs_modello.Open()

rs_modello_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>AUTOWEB</title>
</head>

<body>
<form name="form1" id="form1" method="post" action="index.asp">
  


    <select name="sel_marca" id="sel_marca" onChange="this.form.submit()">
      <option value="value" <%If (Not isNull((rs_modello.Fields.Item("MARCA").Value))) Then If ("value" = CStr((rs_modello.Fields.Item("MARCA").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>Marca</option> (la linea 49) 
      <%
While (NOT rs_marca.EOF)
%>
      <option value="<%=(rs_marca.Fields.Item("ID").Value)%>" <%If (Not isNull((rs_modello.Fields.Item("MARCA").Value))) Then 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>
      <%
  rs_marca.MoveNext()
Wend
If (rs_marca.CursorType > 0) Then
  rs_marca.MoveFirst
Else
  rs_marca.Requery
End If
%>
    </select>
  </p>
  


    <select name="sel_modello" id="sel_modello">
      <option value="value">Modello</option>
      <%
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>
</p>
  


    <input type="submit" name="Submit" value="Invia" />
  </p>
</form>
</body>
</html>
<%
rs_marca.Close()
Set rs_marca = Nothing
%>
<%
rs_modello.Close()
Set rs_modello = Nothing
%>