Premetto che sono un neofita e che mi arrabatto con pezzi di codice prelevati qui e lā!
Ho creato una pagina contenente le lettere dell'alfabeto (queste - sono gif - vengono visualizzate correttamente prelevando i dati da un campo "lettera" dalla tabella "alfabeto").
Cliccando su una determinata lettera dell'alfabeto dovrei inviare alla pagina "parole.asp" la lettera stessa per visualizzare tutte le parole che iniziano per quella lettera. (le parole sono contenute in un'altra tabella "parole").
Il codice che regola tale operazione scritto nella prima pagina č il seguente:
<%
Dim abc
abc=rs("lettera")
%>
[img]<%=rs([/img]" border=o >
<%
Entrambe le tabelle hanno un campo "lettera" contenente le medesime lettere dell'alfabeto.
Il problema č che invece di aprirsi la seconda pagina con il risultato della ricerca per lettera viene fuori un messaggio di errore in cui si dice che manca una parametro e che č richiesto 1 - la riga incriminata č la seguente:
rs.Open "select * from parole where lettera ="&abc, conn
Questo č il codice scritto nella seconda pagina:
<%
Dim abc
abc=request.querystring("lettera")
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("2004.mdb")
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from parole where lettera ="&abc, conn
Do while NOT RS.EOF
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>prova</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="main.css" rel="stylesheet" type="text/css">
</head>
<body>
Ecco i dati:
<%
Dim redattore
redattore=rs("redattore")
%>
Questa č la lettera <%response.write(abc)%> redatta da <%response.write(redattore)%>
<%
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
conn.Close
Set conn=Nothing
%>
</body>
</html>
Attendo fiducioso un aiuto
Rispondi quotando
