Hola Amigos, tengo el siguiente problema;
tenemos una pag web con algunas partes asp, y una db. lo que pasa es que non
logro hacer que funcione asp y la base, nisiquiera funciona asp, necesito
ayuda por favor.
adjunto codigo de una pagina asp que es la mas importante.
Slds.
Roberto Matta.
im IDok
dim rr
dim cc
session("usuario")=""
rr=" "
rr=request.form("usuario")
cc=" "
cc="'" & request.form("clave") & "'"
IDok = "N"
if len(request.form("usuario"))=0 then
IDok = "N"
else
IDok = "S"
end if
if len(request.form("clave"))=0 then
IDok = "N"
else
IDok = "S"
end if
if IDok = "S" then
Dim rst
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set rst = Server.CreateObject("ADODB.Recordset")
rst.Open "Select * from otsi where usuario = '" & rr & "' AND clave = " & cc
, "otsi", _
adOpenKeyset, adLockOptimistic
if rst.eof then
IDok="N"
end if
end if
if IDok = "S" then
session("usuario")=request.form("usuario")
rst.close
if rr = "admin" Then
Response.Redirect "../../asp/menu_administracion.htm"
Else
Response.Redirect "home.htm"
End If
else
Response.Redirect "../principal.htm"
end if
Leer las respuestas