<%@ LANGUAGE="VBSCRIPT" %>
<%
dim oConreg , sqlreg , sreg , intro_dni , intento , navega, cadena, cadena2, clave2
sub abrete_sesamo(intro_dni)
dim vpaso , dni, clave, intro_clave,tsql, ok
set oConn=Server.CreateObject("ADODB.Connection")
oconn.Provider="Microsoft.Jet.OLEDB.4.0"
oconn.Open(Server.Mappath("femecv.mdb"))
set rs=Server.CreateObject("ADODB.Recordset")
intro_clave=ucase(replace(request.form("intro_clave")," ",""))
tsql= "SELECT * FROM corredor where licencia='" & intro_dni & "';"
rs.Open tsql, oconn
session("cod")=0
ok=0
do until rs.eof
dni=rs.fields("licencia")
dni=" " & dni
clave=ucase(replace(intro_clave," ",""))
dni=ucase(replace(dni," ",""))
dni=replace(dni,"-","")
dni=replace(dni,"/","")
dni=replace(dni,".","")
dni=replace(dni,"@","")
dni=replace(dni,"(","")
dni=replace(dni,")","")
dni=replace(dni,"_","")
if (intro_dni=dni ) then
session("cod")=rs.fields("codigo")
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing
ok=1
entrar()
exit do
end if
rs.MoveNext
loop
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing
if ok=0 then
%> <%
end if
end sub
sub entra_form %>
<%
end sub
sub entrar()
session("cerrada")=23
session("clave")=23
response.redirect("alta.asp?licencia=" & intro_dni)
end sub
sub salir()
session("cerrada")=23
response.redirect("http://www.femecv.com")
session.abandon
end sub
intro_dni="iclave"
intro_dni=ucase(replace(request.form("intro_dni")," ",""))
intro_dni=left(intro_dni,15)
intro_dni=replace(intro_dni,"-","")
intro_dni=replace(intro_dni,"/","")
intro_dni=replace(intro_dni,".","")
intro_dni=replace(intro_dni,"@","")
intro_dni=replace(intro_dni,"(","")
intro_dni=replace(intro_dni,")","")
intro_dni=replace(intro_dni,"_","")
intro_dni=replace(intro_dni," ","")
navega=request.form("navega")
dim fs, f
set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.FileExists(Server.MapPath("visitas/visitantes.txt"))=true then
set f=fs.OpenTextFile(Server.MapPath("visitas/visitantes.txt"),8,true)
f.WriteLine (session.sessionid & " Socio n: " & intro_dni & " Fecha: " & date() & " Hora: " & time() )
f.Close
end if
set f=Nothing
set fs=Nothing
entra_form
if (intro_dni<>"" and len(intro_dni)>=4 and len(request.form("intro_dni"))<=16) then
abrete_sesamo(intro_dni)
end if
%>