<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="nav_login.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
If (true Or CStr(Session("MM_UserAuthorization"))="") Or _
(InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
MM_grantAccess = true
End If
End If
If Not MM_grantAccess Then
MM_qsChar = "?"
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
MM_referrer = Request.ServerVariables("URL")
if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
Response.Redirect(MM_authFailedURL)
End If
Function Fun_Formata_Texto(Str)
Dim str_texto
str_texto = Str
str_texto = Replace (str_texto, Chr(13), " ")
str_texto = Replace (str_texto, Chr(32), " ")
Fun_Formata_Texto = str_texto
End Function
'OPTION EXPLICIT
dim objInsere, retorno, email, mensagem, retAbre, retLoadTableAnexo, objRemove
mensagem = Fun_Formata_Texto(request("txtmensagem"))
'**************************************************************************************************************************************************************************
if request("op") = "entrada" then 'é porque veio direto da página precede_resposta sem o formato de lista (registro thread detalhe)
session("valor_hidden") = request("post_id")
'response.Write("valor da session: "&session("valor_hidden"))
set objDelTemp = server.CreateObject("Projeto_Forum.coClass_Forum")
retDelTemp = objDelTemp.remove_anexos_notpost_X 'deleta os arquivos que ficaram para traz se o usuário clicou no X da página para fechar...
set objDelTemp = nothing
end if
'**************************************************************************************************************************************************************************
if request("lista") = "s" then
'set objDaLista = Server.CreateObject("Projeto_Forum.coClass_Forum")
'objDaLista.Post_Id = request("hddpost_id")
'retDatLista = objDaLista.resposta_da_lista(request("hddpost_id"))
session("valor_hidden") = request("hddpost_id")
'response.Write(session("valor_hidden")&" ")
'response.Write(request("hddpost_id"))
'set objDaLista = nothing
'esse código é para atualizar a consulta e alimentar as variáveis no delphi para
'disparar o método insere_resposta com o post_id correto de algum dos registros da lista...
set objDelTemp = server.CreateObject("Projeto_Forum.coClass_Forum")
retDelTemp = objDelTemp.remove_anexos_notpost_X 'deleta os arquivos que ficaram para traz se o usuário clicou no X da página para fechar...
set objDelTemp = nothing
end if
'**************************************************************************************************************************************************************************
if request("op") = "I" then 'inserir o registro...
set objInsere = Server.CreateObject("Projeto_Forum.coClass_Forum")
retorno = objInsere.insere_resposta(mensagem,session("MM_UserName"),session("MM_UserAuthorization"),session.SessionID,session("valor_hidden")) 'COM+ insere_resposta
'response.Write("Este é o valor_hidden: "&session("valor_hidden"))
'RESPONSE.Write(" "&retorno)
if (retorno = "0") then%>
<%else if (retorno = "1") then
response.Redirect("detalhar_mensagens.asp?discod="&request("discod")&"&periodo="&request("periodo")&"&grupo="&request("grupo")&"&turmanum="&request("turmanum")&"&fg_cod="&request("fg_cod")&"&forum_cod="&session("forum_cod")&"&tema="&session("tema")&"&op=entrada&disnom="&request("disnom")&"¢ro="&request("centro"))%>
<%end if
end if
end if 'fim if request("op") = "I" then
'**************************************************************************************************************************************************************************
%>
Documento sem título