<%@ Language=VBScript %>
<%Option Explicit%>
<%Response.Expires = 0%>
<%Response.buffer = true %>
<% dim utente,inserisci,downdoc
if request("lang")="eng" then
session("lang")="eng"
utente="User "
inserisci="You insert an image to the foto gallery"
downdoc="Documentation download"
else
session("lang")="ita"
utente="Utente "
inserisci="Inserisci un'immagine alla galleria fotografica"
downdoc="Archivio Documenti"
end if
if request.form("salto")=1 then
Dim Dbconn,SQL, oRs, VerUser,VerPw
Set Dbconn = Server.CreateObject("ADODB.Connection")
Dbconn.Open "utenti_tecmas", "", ""
set session ("utenti_conn") = Dbconn
SQL=" SELECT * FROM utenti WHERE user='" & request.form("user") &"' AND password='" & request.form("pass") &"';"
SET oRs=Dbconn.execute(SQL)
if oRs.EOF then
response.redirect("areariservata_.asp?errore=si&lang="&session("lang"))
else
session("user")=oRs("nome")&"_"&oRs("cognome")
session("userid")=oRs("id")
session("email")=oRs("email")
session("login")="si"
if oRs("amm")=true then
session("amm")="si"
end if
end if
Dbconn.Close
end if%>
:::: Tecmas ::::
<%else%>
<%end if%>