salve, ho questo scrip x il login all'area riservata, ma non mi funziona mi da questo errore:
Microsoft VBScript runtime error '800a01a8'
Object required: ''
/login.asp, line 28
la riga 28 è questa : Set rs = cn.Execute(sql)
come mai? potete aiutarmi?
<%
Dim nome_ut
Dim pass
nome_ut = Replace(Request.Form("nome_utente"), "'", "''")
pass = Replace(Request.Form("password"), "'", "''")
Dim con
Set con = Server.CreateObject("ADODB.Connection")
con.Open "Driver={MySQL ODBC 3.51 Driver}; Server=mioserver; Database=miodb; Uid=miouser; Pwd=miopassw;"
Dim sql
sql = "SELECT id FROM utenti WHERE nomeutente='" &nome_ut&_
"' AND password='" &pass& "'"
Dim rs
Set rs = cn.Execute(sql)
Dim autenticato
if rs.eof then
autenticato = false
else
autenticato = true
end if
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
if autenticato = true then
Session("Autenticato") = "OK"
Response.Redirect("riservato.asp")
else
Response.Redirect("index.asp")
end if
%> login
Rispondi quotando
