<%@ Language=VBScript %>
<%Response.Expires=0%>
<%
' cargar en variables las del formulario
txtusuario=Request.form("txtusuario")
txtcontrasena=Request.form("txtcontrasena")
txtemail=Request.form("txtemail")
session("vusuario")=txtusuario
session("vcontrasena")=txtcontrasena
session("vemail")=txtemail
session("caso")=0
if not txtcontrasena="" then
'abrir una conexion con la Base Datos
set cn=server.CreateObject("adodb.connection")
cn.Open("caribebase")
' definir recordset
set rs = server.CreateObject("adodb.recordset")
'validar que este ese usuario
strsql="select * from usuarios where usuario=" & "'" & txtusuario & "'" & " and contrasena=" & "'" & txtcontrasena & "'"
rs.open strsql,cn
if not rs.eof then
'existe
session("vemail")=rs("email")
session("vusuario")=rs("usuario")
session("vcontrasena")=rs("contrasena")
session("userval")=1
cn.Close
' cerrar la coneccion y liberar objeto conection y recordset
set rs = nothing
set cn = nothing
Response.Redirect ("menuintranet.htm")
else
cn.Close
' cerrar la coneccion y liberar objeto conection y recordset
set rs = nothing
set cn = nothing
session("caso")=1
end if
else
' se le olvido contrasena
'abrir una conexion con La base de datos
set cn=server.CreateObject("adodb.connection")
'cn.Open("caribebase")
cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\fsvs01\target01\341430\344170\www.caribemex.com.do\web\content\Bases\caribebase.mdb;")
' definir recordset
set rs = server.CreateObject("adodb.recordset")
' validar que este ese usuario
strsql="select * from usuarios where usuario=" & "'" & txtusuario & "'" & " and email=" & "'" & txtemail & "'"
rs.open strsql,cn
if not rs.eof then
'existe
session("caso")=2
nombapell=trim(rs("nombres"))&" "& trim(rs("apellido1"))&" "& trim(rs("apellido2"))
contra=rs("contrasena")
'mandamos por email la contraseña
'apertura de factura.txt para escritura
' dim objfile
' dim objstream
' set objfile=server.CreateObject("scripting.filesystemobject")
' set objstream=objfile.CreateTextFile(server.MapPath("/prueba1")+"\arcosoft.txt",true)
' objstream.writeline " ARCOSOFT"
' objstream.writeline " "
' objstream.writeline " ------------------------------------------------------------------------------------"
' objstream.write " SALUDOS "
' objstream.writeline nombapell
' objstream.write " SU CONTRASEÑA ES: "
' objstream.writeline contra
' objstream.writeline " ------------------------------------------------------------------------------------"
' objstream.close
' set objstream=nothing
' set objfile=nothing
else
session("caso")=3
end if
cn.Close
' cerrar la coneccion y liberar objeto conection y recordset
set rs = nothing
set cn = nothing
end if
%>
Doble Click: un sitio para aprender Informática
Servicio diseñado
para empleados de Caribemex Export Import S.A.
(acceso restringido a documentación
de trabajo de la compañia)