<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% response.buffer = true %>
<%
Dim RsLog__v_log
RsLog__v_log = "1"
if (request.form("user") <> "") then RsLog__v_log = request.form("user")
%>
<%
Dim RsLog__v_pass
RsLog__v_pass = "1"
if (request.form("password") <> "") then RsLog__v_pass = request.form("password")
%>
<%
set RsLog = Server.CreateObject("ADODB.Recordset")
RsLog.ActiveConnection = MM_wdata_STRING
RsLog.Source = "SELECT * FROM Utenti WHERE Username = '" + Replace(RsLog__v_log, "'", "''") + "' AND PassWord = '" + Replace(RsLog__v_pass, "'", "''") + "' AND pagato=true"
RsLog.CursorType = 0
RsLog.CursorLocation = 2
RsLog.LockType = 3
RsLog.Open()
RsLog_numRows = 0
%>
<%
if request.form("user") <> "" AND Request.form("PassWord") <> "" then
if not rsLog.eof then
session("userid") = RsLog("ID")
session("name") = RsLog("nome") & " " & RsLog("cognome")
session("indirizziresidui") = RsLog("indirizziresidui")
response.redirect "mlogin.asp"
end if
end if
%>
russiaforyou
<%
set RsMenu = Server.CreateObject("ADODB.Recordset")
RsMenu.ActiveConnection = MM_edOBJcon_STRING
RsMenu.Source = "SELECT t.Titolo, p.ID FROM Pagine p INNER JOIN Testi t ON (p.id = t.idpagina AND t.lingua = " & id_lang & " AND p.id = p.madre) WHERE p.online = -1 AND p.fuoriMenu <> -1 ORDER BY p.ordine ASC"
RsMenu.CursorLocation = 3
RsMenu.Open()
%>
<%
While (NOT RsMenu.EOF)
%>
<%
RsMenu.MoveNext()
Wend
RsMenu.close()
set RsMenu=nothing
%>
