Problemas con Base de Datos
ADODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/miWeb/agregarcasoswll2.asp, line 13
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/miWeb/agregarcasoswll2.asp, line 13
cual es el problema??.. A que DB debes colegarte, Access?...MySql?......... Este es un ejemplo .....que me ha funzionado con SQLServer, MySql y Access.....
Pagina donde controlo quien està entrando a la aplicacion Chau, espero te sea ùtil
<%
userName = request("USERNAME")
password = request("PASSWORD")
if userName <> "" AND password <> "" then
set conn = server.createobje("ADODB.CONNECTION")
set rs = server.createobject("ADODB.RECORDSET")
sql = "SELECT * FROM UTENTE WHERE USERNAME = \'"& userName & "\' AND PASSWORD = \'" & password & "\'"
conn.open "HECTOR", "", ""
rs.open sql, conn
if not rs.eof then
session("ID") = rs("ID")
session("USERNAME") = rs("USERNAME")
session("PASSWORD") = rs("PASSWORD")
session("DIVISIONE") = rs("DIVISIONE")
session("NOME") = rs("NOME")
session("COGNOME") = rs("COGNOME")
session("RUOLO") = rs("RUOLO")
rs.close
conn.close
set rs = nothing
set conn = nothing
response.redirect("menu.asp")
response.end
else
rs.close
conn.close
set rs = nothing
set conn = nothing
response.redirect("default.asp")
response.end
end if
else
response.redirect("default.asp")
response.end
end if
%>
Pagina donde controlo quien està entrando a la aplicacion Chau, espero te sea ùtil
<%
userName = request("USERNAME")
password = request("PASSWORD")
if userName <> "" AND password <> "" then
set conn = server.createobje("ADODB.CONNECTION")
set rs = server.createobject("ADODB.RECORDSET")
sql = "SELECT * FROM UTENTE WHERE USERNAME = \'"& userName & "\' AND PASSWORD = \'" & password & "\'"
conn.open "HECTOR", "", ""
rs.open sql, conn
if not rs.eof then
session("ID") = rs("ID")
session("USERNAME") = rs("USERNAME")
session("PASSWORD") = rs("PASSWORD")
session("DIVISIONE") = rs("DIVISIONE")
session("NOME") = rs("NOME")
session("COGNOME") = rs("COGNOME")
session("RUOLO") = rs("RUOLO")
rs.close
conn.close
set rs = nothing
set conn = nothing
response.redirect("menu.asp")
response.end
else
rs.close
conn.close
set rs = nothing
set conn = nothing
response.redirect("default.asp")
response.end
end if
else
response.redirect("default.asp")
response.end
end if
%>
