%
dim Dll
dim Ret
Dim Rs
dim i
dim Alias
dim Testo
dim Soggetto
dim Data
dim Idn
dim Idc
dim Figli
dim Classetd
dim UserType
dim ModC 'modalità del canale
UserType=session("usertype")
idc=request("idc")
if idc="" then
idc=0
end if
set Dll= server.CreateObject("bforum.cmessaggi")
set Rs=Dll.OutTypeCanal (idc)
modC=rs.fields("modalità")
rs.close
set rs=nothing
if cint(modc)=2 then
if usertype="" then
Response.Redirect("no_accesso.asp?idc=" & request("idc") & "")
else
'Response.Write "usertype:" & usertype & "-
"
'Response.Write "modc:" & modc & "-
"
if (usertype=1 and modc=2)then
Response.Redirect("no_accesso.asp?idc=" & request("idc") & "")
end if
end if
end if
%>
ti trovi in: Home Page - Forum -
Iscrizione / autenticazione
Benvenuto, <%=session("alias")%> - Uscita dal forum.
<% end if %>Elenco dei messaggi: |
||
Messaggio | Autore | Data |
Legenda | |
![]() |
Ci sono delle discussioni |
![]() |
Non ci sono ulteriori discussioni |
![]() |
Indica il messaggio corrente |