Problema con connessione dbase

di il
2 risposte

Problema con connessione dbase

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!

2 Risposte

Devi accedere o registrarti per scrivere nel forum
2 risposte