Salve a tutti ,hoquesto codice:
--cut--
<%
'se Action ha come valore "enter"...
elseif Action = "enter" then
'creo la variabile User
'con il valore del campo u del form
Dim User
User = request.form("u")
'creo la variabile Pass
'con il valore del campo p del form
Dim Pass
Pass = request.form("p")
'Se User e/o Pass è vuota stampo un errore
if (User = "" or Pass = "") then
response.write "Form incompleto!"
response.end
'in caso contrario procedo alla verifica
else
'Apro la connessione al DB
Dim Con
Set Con = server.CreateObject("adodb.connection")
con.open "royal"
'Imposto la query ed apro il recordset
Dim Query, Rs
Query = "select * from user where user = '" & User & "' and password = '" & Pass & "'"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open Query, con, 3, 3
ma mi ristituisce questo errore:
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'
[Microsoft][Driver ODBC Microsoft Access] Parametri insufficienti. Previsto 1.
sulla riga di rs.opne....
ho provato anche ad usare una connessine ole db ma addirittura trova un errore nella sql strings :S
riuscite a far luce su questo mistero :S
grazie a tutti
Se fossi modesto sarei perfetto!