Recordset chiuso...

**nilats** · 15-01-2005, 09:55

<%@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="txt/motore.asp">

</p>

</p>

</p>
<table width="200" border="1">
<tr>
<td>Per </td>
<td><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>
<%

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></td>
</tr>
<tr>
<td></td>
<td><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></td>
</tr>
<tr>
<td></td>
<td><input type="submit" name="Submit" value="Invia" /></td>
</tr>
</table>

</p>
</form>
</body>
</html>
<%
rs_marca.Close()
Set rs_marca = Nothing
%>
<%
rs_modello.Close()
Set rs_modello = Nothing
%>

**nilats** · 15-01-2005, 11:04

non c'è nessuno...

**optime** · 15-01-2005, 11:09

forse, se spiegassi il problema.... ti sei accorto che hai postato solo codice?

**nilats** · 15-01-2005, 11:20

VVoVe:

VVoVe:
bedda matre
ke figura di BIP
non me ne ero accorto...perdono

Allora 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.

ho già postato il codice della pagina, e sono a disposizione

**Gioba66** · 15-01-2005, 11:24

già detto ieri.

prima di scorrere un recordset ( e te lo fai col while) devi controllare che non sia vuoto.

il controllo si fa con una istruzione if

if not rs.eof then

....

end if

**nilats** · 15-01-2005, 11:31

Che dire...
Gioba è vero, già detto ieri
ma io avevo anche risposto che non andava, il recordset restava chiuso:
ADODB.Field (0x800A0BCD)
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 54

**optime** · 15-01-2005, 11:34

non vedo (ed e' una fatica leggere quel codice!) controlli di rs.eof...

**nilats** · 15-01-2005, 11:57

si, infatti li ho aggiunti a mano dopo, cmq:

codice:

 <%
		if not rs_marca.eof then 
While (NOT rs_marca.EOF)
%>

codice:

 <%
if not rs_modello.eof then 
While (NOT rs_modello.EOF)
%>

codice:

<%
rs_marca.Close()
Set rs_marca = Nothing
end if
%>
<%
rs_modello.Close()
Set rs_modello = Nothing
end if
%>

**Gioba66** · 15-01-2005, 12:06

gli end if non vanno chiusi lì

**nilats** · 15-01-2005, 18:36

Purtroppo non riesco a risolvere questo benedetto script
che faccio x avere delle select dinamiche.
Magari qualkuno sa indicarmi una soluzione alternativa per avere lo stesso risultato?MAgari un'altro articolo?una codice più artigianale?
Plaez,

Discussione: Recordset chiuso...

Strumenti discussione

Ricerca discussione

Visualizza

Recordset chiuso...

Permessi di invio