<%@ LANGUAGE="VBSCRIPT" %>
<%response.expires=0%>
<%
response.buffer=true
if session("passcli")="okpass" then
response.redirect("cerca.asp")
end if
dim testo%>
Accedi al servizio
Accesso al servizio
<%select case request.querystring("command")
case ""%>
<%case "ok"
'-------------- valida i dati
if request.form("userid")="" then
response.redirect("checkcli.asp")
end if
if request.form("password")="" then
response.redirect("checkcli.asp")
end if
'-------------------------------- vengono richiesti i dati dal database
dim db 'database
dim rs 'recordset
dim sqls 'stringa per istruzioni sql
dim leggi 'verifica se il record è stato letto
dim utente
'-----------------------
set db=server.createobject("ADODB.connection")
set rs=server.createobject("ADODB.recordset")
db.open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("../database/rocca/pswrocca.mdb")
sqls="select * from passcli where userid = "
sqls=sqls & "'" & request.form("userid") & "' "
sqls=sqls & "and password = '" & request.form("password") & "'"
on error resume next
rs.open sqls,db
rs.movefirst
leggi=0
if err.number <> 0 then
leggi=1
end if
if leggi=1 then 'il dato non esiste
%>
Attenzione... la
User Id: <%=request.form("userid")%>
e la password: <%=request.form("password")%>
non sono abilitate per accedere a questo servizio.
Bisogna effettuare la registrazione gratuita.
Registrati
<%else%>
Benvenuto <%=rs("nome")%> - <%=rs("cognome")%>
<%rs.close
'-------------------------------- vengono salvati i dati nel database
'on error resume next
sqls="insert into collegamenti "
sqls=sqls & "(userid, data, ora)"
sqls=sqls & " values "
sqls=sqls & "('" & request.form("userid") & "', '"
sqls=sqls & date & "', '"
sqls=sqls & time & "')"
db.execute sqls
session("passcli")="okpass"%>
<%end if
rs.close
db.close
set rs = nothing
set db = nothing
%>
<%end select%>
