<%@ Language=VBScript %>
<%Response.Expires = 0%>
<%Response.Buffer=True%>
<%
if Request.querystring("arg")="" then
response.redirect"forum.asp"
end if
if Session("utente")="" then
response.redirect("identita.asp")
end if
%>
<%
Const adOpenForwardOnly = 0
Const adLockOptimistic = 3
Const adCmdText = 1
Const adOpenKeyset=1
Dim Conn
Dim Rs
Dim Fs
Dim Sql
Dim Sqlint
Dim numID
Dim numRecord
Dim Dove
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open nome_connessione()
Set Rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT argomenti.idArgomento, argomenti.Argomento, argomenti.visibile, argomenti.idUtente, utenti.nome, utenti.cognome, utenti.email "
sql=sql+"FROM argomenti INNER JOIN utenti ON argomenti.idUtente = utenti.idutente "
sql=sql+"WHERE (((argomenti.idArgomento)="&Request.querystring("arg")&") AND ((argomenti.visibile)=True));"
Rs.Open Sql, Conn, adOpenForwardOnly, adLockOptimistic, adCmdText
Session("moderatore")=Rs("idUtente")
%>
Nuovo Intervento
Nuovo intervento su:
<%=Rs("argomento")%>
<%
Rs.close
set Rs=Nothing
Conn.close
Set Conn=Nothing
%>
