<%@ 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")%>

Titolo:

Testo:

<% Rs.close set Rs=Nothing Conn.close Set Conn=Nothing %>