<% If Request.Form = "" Then %>
|
<% else
Dim Con
Dim Rs
Dim Nombre
Dim Clave
Dim ClaveTabla
Nombre = Request.Form("Nombre")
Clave = Request.Form("Clave")
Set Con = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.RecordSet")
Con.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\Domains\metrocalltda.com\wwwroot\db\metrocal.mdb"
Rs.Open "Claves", con, 3 , 3
ClaveTabla = (Rs.Fields.Item("Clave").Value)
if (ClaveTabla = Clave) Then
Response.Redirect("panel.asp")
else
Response.Redirect("equivocada.asp")
end if%>
<% End IF%> |