Le terre di Ransagor

Menu principale:

messaggio

Comunità

pagina=request.querystring("pagina") totale=0 if pagina = NULL then pagina=0 End if conteggio=0 aw=request.querystring("abilitatowill") idc=0 nvisite=request.querystring("nvis") idc=request.querystring("idc") quale=request.querystring("id") will=request.querystring("will") ss="SELECT * FROM forumgenerale WHERE id=" & quale set rss=con.execute(ss) mex=rss("messaggio") chi=request.querystring("chi") quando=request.querystring("quando") nmex=request.querystring("NMEX")

<% mex = Replace ( mex, "!!1", "

" ) mex = Replace ( mex, "!!3INVIO!!3", "
" ) %>

Messaggio Numero	Avventuriero	Data
<% response.write quale %>	<% response.write chi %>	<% response.write quando %>
<% response.write mex %>

<% if idc >0 then %>

Rispondi a questo messaggio

Torna Indietro

<% If session("iscritto")= "Ok" then response.write "Benvenuto " & session("nick") %> LOGOUT <% Else %>

Sei registrato?Loggati!
Nick: Password:
Non sei registrato?Clicca qui.

<% end if %>

<% ELSE %>Torna Indietro <% end if%><% s="SELECT * FROM forumgenerale WHERE sottomessaggio=" & quale & " AND Visibile=1 ORDER BY id" set rs=con.execute(s) conteggio=0 pagina=CInt(pagina) conteggi=CInt(conteggi) while not rs.eof %> <% if conteggio=>pagina AND conteggio =
<% mex2= rs("messaggio") mex2 = Replace ( mex2, "!!1", "

" ) mex2 = Replace ( mex2, "!!3INVIO!!3", "
" ) %> <% end if rs.movenext wend %>

Messaggio Numero	Avventuriero	Data
<% response.write rs("ID") %>	<% response.write rs("nick") %>	<% response.write rs("data") %>
<% response.write mex2 %>

<% pagina=pagina/10 totale=totale/10 conteggio=1 while conteggio<=totale numerino=conteggio*10-10 if pagina=numerino then%> <% conteggio =conteggio+1 wend %>

<%else%>

<%end if%>

<%response.write conteggio%>

<% nvisite=nvisite+1 rs="UPDATE forumgenerale SET NVIS = '"& nvisite&"' WHERE ID="& quale set rs=con.execute(rs) %>