05/05/2008, 10:59
|
| | | Fecha de Ingreso: marzo-2008
Mensajes: 286
Antigüedad: 17 años, 1 mes Puntos: 1 | |
| nuevo tema login.aspx
Cita: <%@ Page Language="VB" ContentType="text/html" ResponseEncoding="iso-8859-1" %>
<%@ Import Namespace = "System.Data"%>
<%@ Import Namespace = "System.Data.SqlClient"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<script runat="server">
sub Evaluar(obj as object, e as eventargs)
dim conexionesglo as new SqlConnection()
conexionesglo.connectionString=Application("conect a")
Dim cmd as New SqlCommand("select * from Usuarios where " & "UsuarioRegistro='" & txtUsuario.Text & "'",conexionesglo)
dim dr as SqlDataReader
conexionesglo.Open()
dr=cmd.ExecuteReader(CommandBehavior.SingleRow)
if dr.Read then
if dr("Clave")= txtClave.Text then
dr.close()
conexionesglo.close()
Response.Redirect("insertar.aspx")
else
lblMensaje.Text="La contraseña no es la correcta"
End if
Else
lblMensaje.Text="El Usuario no existe"
end if
end sub
sub LimpiarTextBoxs(obj As Object, e As eventargs)
txtUsuario.text=""
txtClave.text=""
End sub
</script>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Documento sin título</title>
</head>
</script> |