ti trovi in: Home Page - Forum -

Rispondi al messaggio

<% UserType=session("usertype") if UserType="" then Response.Redirect("no_accesso.asp") end if dim idc idc=request("idc") if idc="" then idc=0 end if %> Forum Corrente <% if usertype<>"" then %> - Inserisci un nuovo messaggio <% end if %>

<% if request("Idn")="" then response.write "Inserimento nuovo Messaggio" else response.write "Rispondi al Messaggio" set Dll= server.CreateObject ("BForum.cMessaggi") set Rs=dll.KeepSingleMsg(request("Idn")) end if %>

Aiuto Inserire di seguito la risposta che si vuole inserire. Ricordiamo che il forum è moderato e che quindi la risposta verrà visualizzata solo dopo essere stata visionata dal responsabile del Forum.

Oggetto "" then response.write "Re: " & rs("soggetto") else response.write "Inserisci l'oggetto del messaggio" end if %>"/> " /> " /> Risposta Inserisci il testo del messaggio<% 'if request("idn")<>"" then ' response.write vbcrlf & vbcrlf & vbcrlf & vbcrlf ' response.write "-----Messaggio Originale-----" & vbcrlf ' response.write "Da:" & rs("aliasutente") & vbcrlf ' response.write "Inviato il: " & rs("data") & vbcrlf ' response.write "Oggetto: " & rs("soggetto") & vbcrlf & vbcrlf & vbcrlf ' response.write "Messaggio: " & rs("testo") & vbcrlf ' set Dll= nothing ' set Rs=nothing 'end if %>