29/11/2006, 12:30
|
| | | Fecha de Ingreso: noviembre-2006
Mensajes: 5
Antigüedad: 18 años, 4 meses Puntos: 0 | |
| Aqui te paso el codigo, pero no capturo el error con ningun try catch
dim rs
set rs=server.CreateObject("ADODB.recordset")
rs.ActiveConnection= miconexion
rs.Source = "select * from TUsuario where Usuario='" +Request.form("usuario")+"'"
rs.locktype =AdLockOptimistic
rs.Open
if(rs.EOF) then
response.Redirect("Error.asp")
else
if(request.Form("clave") <> rs("Clave")) then
response.Redirect("Error1.asp")
else |