<%
Response.Buffer = True
submitted = Request.Querystring("submitted")
lingua = Request.Querystring("lingua")
Dim oConn, objRs, strsql
Dim login, password, strPagina, strAppo
If submitted then
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("mdb-database\link.mdb"))
login = Request.Form("login")
password = Request.Form("password")
strsql = "Select * FROM linknew "
strsql = strsql & "WHERE Login ='" & login & "' AND Password = '" & password & "'"
'Response.Write strsql
Set objRs = oConn.Execute(strsql)
If objRs.EOF then
objRs.Close
Set objRs = Nothing
oConn.Close
Set oConn = Nothing
response.redirect "login.asp"
else
session("login") = True
session("id") = objRs("id")
session("password") = objRs("password")
session("nome_sito") = objRs("nome_sito")
session("url_sito") = objRs("url_sito")
session("url_banner") = objRs("url_banner")
session("data_creazione") = objRs("data_creazione")
session("data_modifica") = objRs("data_modifica")
session("tipo_link") = objRs("tipo_link")
if lingua = "it" then
strAppo = "entra.asp?login="&login&"&lingua=it"
else
strAppo = "entra.asp?login="&login
end if
objRs.Close
Set objRs = Nothing
oConn.Close
Set oConn = Nothing
response.redirect strAppo
end if
else
'mostra la form
%>
<% if lingua = "it" then %>