<%
Set rsregistro=Nothing
Set cnDBregistro= Server.CreateObject("ADODB.Connection")
cnDBregistro.open "PROVIDER=SQLOLEDB;DATA SOURCE=cubos.sigho.gob.mx;UID=sa;PWD=SUPERVIZASIEC2005;DATABASE=webcubos"
StrNombre=session("rsUsuario")
StrContrasena=Session("rscontrasena")
sqlstr="select * From registrorh WHERE usuario='" & StrNombre & "'" & " AND Pasword='" & StrContrasena & "'" & " AND RM='1'"
SET rsregistro=cnDBregistro.execute(sqlstr)
if rsregistro.EOF then
response.redirect "loginpagefail.htm"
end if
%>
Untitled Document