ASP - RE:Soy principiante. No se casi de ASP pero si HTM

RE:Soy principiante. No se casi de ASP pero si HTM

Publicado por Alex Fernando (21 intervenciones) el 30/01/2005 23:59:15

archivo html miasp.htm
-----------------------
<html>
<body>
<script language=javascript>
function enviar()
{miform.submit}
</script>
<form action="miasp.asp" method=post name=miform>
<table border=0>
<td><input name=txtuser><br></td><tr>
<td><input name=txtclave></td><tr>
<td align=center>
<input type=button value="Consultar" name="cmd1" onclick="enviar()" >
</td>
</table>
</form>
</html>
---------------------------------------
archivo asp miasp.asp
----------------------------------------
<%@ Language=VBScript %>
<%
sub capside()
set exec=server.createobject("ADODB.connection")
set script=server.createobject("ADODB.recordset")
exec.Open"provider=microsoft.jet.oledb.4.0;data source=c:\inetpub\wwwroot\asp\hiraoka.mdb"
exestring= "select * from usuarios where user='"&Request.Form("txtuser")&"' and clave='"& Request.Form("txtclave")& "'"
script.Open exestring,exec

do until script.Eof
Response.Write("<p><a href='acceso.htm' style='cursor:help'>User conectado</a>")
loop
end sub
%>
<HTML>
<BODY>
<basefont face=verdana>
<font size=5>Resultado</font><p>
<% call capside() %>
</BODY>
</HTML>

-------------------------------------
Hasta la Proxima Consulta Super@hacker©

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

RE:Soy principiante. No se casi de ASP pero si HTM