Foros del Web » Programando para Internet » ASP Clásico »

solo quiero agregar un boton entrar, me ayudan porfa

Estas en el tema de solo quiero agregar un boton entrar, me ayudan porfa en el foro de ASP Clásico en Foros del Web. hola , saben lo unico que necesito es solo poner un boton entrar , lo he tratado de hacer y me arroja errores,¿como lo puedo ...
  #1 (permalink)  
Antiguo 11/09/2006, 00:48
 
Fecha de Ingreso: agosto-2006
Ubicación: chile
Mensajes: 21
Antigüedad: 17 años, 9 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
%>
  #2 (permalink)  
Antiguo 11/09/2006, 08:38
 
Fecha de Ingreso: enero-2002
Mensajes: 64
Antigüedad: 22 años, 4 meses
Puntos: 0
Hola,

con esta línea te valdría:

response.write "<input name='Button' type='button' value='Entrar' onClick='document.location.href=""b.html""'>"

Saludos
  #3 (permalink)  
Antiguo 12/09/2006, 14:05
 
Fecha de Ingreso: agosto-2006
Ubicación: chile
Mensajes: 21
Antigüedad: 17 años, 9 meses
Puntos: 0
gracias por tu ayuda davids,lo solucione con lo que me dijiste
  #4 (permalink)  
Antiguo 12/09/2006, 23:05
Avatar de trasgukabi  
Fecha de Ingreso: septiembre-2004
Mensajes: 2.749
Antigüedad: 19 años, 9 meses
Puntos: 18
Corrección:
response.write "<input name=""Button"" type=""button"" value=""Entrar"" onClick=""document.location.href='b.html'"">"

...Hay que seguir las normas...
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 20:44.