Problema codice

**cirusguti** · 14-12-2005, 12:35

Questa pagina riceve user e psw da una pagina precedente..il passaggio avviene perfettamente però da un'errore..

<%@ language= VBScript %>
<%option explicit%>
<% dim sql,conn,rs,x, User, Psw
User = request.Form ("User")
Psw = request.form ("Psw") %>
<html>
<head>
<title> Visulizzazione Assenze e ritardi </title>
</head>
<body>
<%
set conn=server.createobject("adodb.connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.open(server.mappath("prova.mdb"))
set rs=Server.CreateObject("ADODB.Recordset")
sql=" select* from Studenti"
rs.open sql,conn
if rs("User")=User and rs("psw")= psw then
sql="select* from Movimenti,Studenti where rs(User)=User and rs(psw)=psw"
rs.open sql,conn %>
<table border "3" width "100%">
<tr>
<% for each x in rs.fields
response.write("<th>"& x.name & "</th>")
next%>
</tr>
<% do until rs.EOF%>
<tr>
<%for each x in rs.fields %>
<td> <% response.write(x. value)%> </td>
<%next
rs.movenext%>
</tr>
<%loop
rs.close
conn.close
%>
</table>
else
<h4>User o password errati</h4>
<a href="http://10.0.6.100/lavori_5b0506/RegistroAssenze/richiestapsw.asp">
end if
</body>
</html>

Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A03F6)
Previsto 'End'
/lavori_5b0506/RegistroAssenze/visual.asp, line 36

Riuscite a trovare cosa nn avrei chiuso??

Grazie

**optime** · 14-12-2005, 12:39

indenta il codice (usa i rientri) e l'errore lo trovi...

**jump00** · 14-12-2005, 18:30

In questo punto usi else e end if fuori dai tag asp...!

La pagina dunque non trova l'end dell'if

%>
</table>
else
<h4>User o password errati</h4>
<a href="http://10.0.6.100/lavori_5b0506/RegistroAssenze/richiestapsw.asp">
end if
</body>
</html>

Correggi così:

%>
</table>
<%else%>
<h4>User o password errati</h4>
<a href="http://10.0.6.100/lavori_5b0506/RegistroAssenze/richiestapsw.asp">
<%end if%>
</body>
</html>

CIAUZ!

**cirusguti** · 16-12-2005, 12:39

if rs("User")=User and rs("psw")= psw then
sql="select* from Movimenti,Studenti where rs(User)=User and rs(psw)=psw"
rs.open sql,conn %>
<table border "3" width "100%">
<tr>
<% for each x in rs.fields
response.write("<th>"& x.name & "</th>")
next%>
</tr>
<% do until rs.EOF %>
<tr>
<%for each x in rs.fields %>
<td> <% response.write(x. value)%> </td>
<%next
rs.movenext%>
</tr>
<% loop
rs.close
conn.close
%>
</table>
<%else%>
<h4>User o password errati</h4>
<a href="http://10.0.6.100/lavori_5b0506/RegistroAssenze/richiestapsw.asp">
<%end if%>

Ho controllato e il passaggio dei parametri dalla pagina precedente avviene perfettamente...

Il problema è che anche se metto user e password esatti mi passa all'else e mi visualizza user e password errati..

Dev'esserci un'errore all'ingresso dell'IF ma io nn lo vedo..

mi aiutate un'altra volta??

Thanks

**maximum** · 16-12-2005, 12:43

Uniformità:

codice:

if rs("User")=User and rs("psw")= psw then 
sql="select * from Movimenti,Studenti where rs("User")= '" & User & "' and rs("psw") = '" & psw & "'" 
response.write(sql)
response.end

"User" e "psw" suppongo siano campi testo.

Stampa anche la query e posta qui il risultato.

**cirusguti** · 16-12-2005, 12:45

si si...sono campi testo...

adesso provo a modificare...

**maximum** · 16-12-2005, 12:45

Fatti stampare la query, come ho scritto su.

**cirusguti** · 16-12-2005, 12:49

<%
set conn=server.createobject("adodb.connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.open(server.mappath("prova.mdb"))
set rs=Server.CreateObject("ADODB.Recordset")
sql=" select* from Studenti"
rs.open sql,conn
if rs("User")=User and rs("psw")= psw then
sql="select * from Movimenti,Studenti where rs("User")= '" & User & "' and rs("psw") = '" & psw & "'"
response.write(sql)
response.end
rs.open sql,conn %>

l'errore è
Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A0401)
Prevista fine istruzione
/lavori_5b0506/RegistroAssenze/visual.asp, line 19, column 48

la linea 19 è quella dove si mette la secnda scritta sql...

sql="select * from Movimenti,Studenti where rs("User")= '" & User & "' and rs("psw") = '" & psw & "'" e il la colonna è quella dove fa rs("user")

**maximum** · 16-12-2005, 12:55

Mi dovresti postare la query che ti viene stampata a video quando esegui la pagina, non quella del codice.

Ad ogni modo, prova così:

codice:

sql="select * from Movimenti,Studenti where '" & rs("User") & "' = '" & User & "' and '" & rs("psw") & "' = '" & psw & "'"

**cirusguti** · 16-12-2005, 12:57

ehm...non capisco cosa intendi..

a me da quest'errore quando passo dalla prima pagina alla seconda

Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A0401)
Prevista fine istruzione
/lavori_5b0506/RegistroAssenze/visual.asp, line 19, column 48

Tipo di browser:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.0.3705)

Pagina:
POST 20 bytes to /lavori_5b0506/RegistroAssenze/visual.asp

POST Data:
User=fagna&Psw=cacca

Discussione: Problema codice

Strumenti discussione

Ricerca discussione

Visualizza

Problema codice

Tag

Permessi di invio