Ver Mensaje Individual
  #1 (permalink)  
Antiguo 11/09/2006, 00:48
cxbxvx
 
Fecha de Ingreso: agosto-2006
Ubicación: chile
Mensajes: 21
Antigüedad: 18 años, 8 meses
Puntos: 0
solo quiero agregar un boton entrar, me ayudan porfa

hola , saben lo unico que necesito es solo poner un boton entrar , lo he tratado de hacer y me arroja errores,¿como lo puedo hacer ?, le explico lo que hace verifica los datos del usario y arroja un error si falta algun campo por rellenar o no esta el usuario o la contraseña no concuerda , y si esta todo ok arroja un bienvenido (ahy es donde necesito que aparesca el boton entrar , mas abajo esta marcado )porfa me dicen como lo puedo hacer
<style type="text/css">
<!--
body {
background-image: url(tesis/bg82.gif);
}

-->
</style><%
Dim usuario, password, oConn, RS
'Primero nos fijamos si ambos campos fueron completados.
'Si no se cumple, redireccionamos a ingreso.asp
If Request.Form("usuario") = "" OR Request.Form("password") = "" then
Response.Redirect "ingreso.asp"
Else
'Guardamos los datos del Form en variables
usuario = Trim(Request.Form("usuario"))
password = Trim(Request.Form("password"))
usuario = Replace(usuario,"'","''")
password = Replace(password,"'","''")

'Conectamos a nuestra BD.
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("./inventario.mdb")

'Seleccionamos de la tabla solo los registros que concuerden con el usuario del Form.
sql = "SELECT * FROM usuario WHERE usuario = '"& usuario &"'"
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open sql, oConn

'Si el valor EOF (fin de la tabla elegida) es verdadero, no existe el usuario.
If (RS.EOF = true) then
Response.Write "<b>Ese usuario no existe</b>"
ElseIf <input name="aaaa" type="button">
RS.Fields("password") = password then
Response.Write "BIENBENIDO "

(aqui quiero un boton de entrar


Else
Response.Write "<b>Esa contraseña no concuerda con el usuario ingresado</b>"
End If


'Limpiamos y cerramos.
RS.Close
oConn.Close
Set RS = Nothing
Set oConn = Nothing
End If
%>