Fórum 1.0

Fevereiro 5, 2004

é o seguinte! Preciso de um fórum no site da minha igreja Igreja Batista que ainda estou construindo. Não tenho nenhuma experiência com ASP e gostaria de saber qual o motivo do erro dado em minha página quando tento entrar no forum.asp. Diz: A mensagem foi postada com sucesso, você clica em OK e ela pergunta se você quer corrigir o erro Estou mais perdido do que cego em tiroteio

Alguém pode me ajudar?....

Estou usando o Fórum 1.0 que está disponível para download neste site

mesaquejr@louvoresnet.com.br

bolomaster · Fevereiro 5, 2004

POSTA O CODIGO

Fevereiro 5, 2004

Eis o código

<!--#include file="adovbs.inc"-->
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'' CONFIGURAÇÃO DO LAYOUT
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
function header()
%>
<html>
<head>
<title>Fórum de Mensagens</title>
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#A70303" vlink="#A70303" alink="#A70303">
<b><font face="Verdana,Arial,Helvetica" color="#999999" size="5">
f.ó.r.u.m  d.e.  m.s.g.s.</font></b>
<p>
<font face="Verdana, Arial, Helvetica" size="1">
<%
end function

function footer()
%>
</font>
</body></html>
<%
end function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

a = request("acao")
post = request("post")

db = Server.MapPath("forum.mdb")
Set con = Server.CreateObject( "adodb.Connection" )
con.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & db & ";"

if a = "" OR a = "mostrar" then
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'' PÁGINA INICIAL DO FÓRUM, COM TODAS AS MENSAGENS
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
set frs = server.createobject("adodb.recordset")
frs.open "SELECT * FROM forum", con, 1, 3
nmsgs = frs.recordcount

set f = con.execute("SELECT * FROM forum ORDER BY id DESC")
header()
%>
<%if post <> "" AND Session("postforum") = "" then
Session("postforum") = "sim"%>
<script>alert('Sua mensagem foi postada com sucesso!\nSe não estiver vendo ela no fórum, atualize a página')</script>
<%end if%>
Seja bem vindo <%if request.cookies("usuario") <> "" then%>de volta ao Fórum, <%=request.cookies("usuario")%><%else%>ao Fórum<%end if%>! Abaixo estão as <%=nmsgs%> mensagens
postadas pela galera. Sempre lembrando que as mensagens mais novas vem primeiro!
<p><h5><a href="forum.asp?acao=postar">Postar Uma Nova Mensagem</a></h5></p>
<p>
<font face="verdana" size="1">
<%Do While not f.eof

if f("idres") = "0" OR f("idres") = 0 OR IsNull(f("idres")) OR f("idres") = "" OR f("idres") = " " then
set r = con.execute("SELECT * FROM forum WHERE idres = "&f("id")&" ORDER BY id ASC")
%>
•&nbsp;<b>P:</b> <a href="forum.asp?acao=msg&id=<%=f("id")%>"><%=f("assunto")%></a> (<%=f("nome")%> - <%=data("compacto",f("data"))%>)
<%
x = 0
Do While not r.eof 'Respostas
x = x + 1
%>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=999999>•</font>&nbsp;R<%=x%>: <a href="forum.asp?acao=msg&id=<%=r("id")%>"><%=r("assunto")%></a> (<%=r("nome")%> - <%=data("compacto",r("data"))%>)
<%
r.movenext
loop%>
<br>
<%
end if 'Checagem se é resposta ou não

f.movenext
loop
%>
</p>
<%
elseif a = "msg" then
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'' CRIAR A PÁGINA COM A MENSAGEM
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
id = request("id")
set m = con.execute("SELECT * FROM forum WHERE id = "&id)

if m("idres") <> "0" OR m("idres") <> 0 then
 refer = "s"
 refid = m("idres")
 set mr = con.execute("SELECT * FROM forum WHERE idres = "&refid&" AND id <> "&m("id")&" ORDER BY id ASC")
 set ref = con.execute("SELECT * FROM forum WHERE id ="&refid)
else
 refer = "n"
 set mr = con.execute("SELECT * FROM forum WHERE idres = "&id&" ORDER BY id ASC")
end if

msg_com_linhas = replace(m("msg"),vbcrlf,"<br>")
header()
%>
<table width=100% cellspacing=0 cellpadding=0 border=0>
<tr><td>
<font face=Verdana size=1><font size=2 color=CA6500><b><%=m("assunto")%> - <%=data("compacto",m("data"))%></b></font><br>
Postada por <%=m("nome")%><%if m("email") <> "n" then%>, <a href="mailto:<%=m("email")%>">mande um e-mail</a><%end if%><%if m("hp") <> "n" then%> ou <a href="<%=m("hp")%>" target="_blank">veja a hp</a><%end if%>
<%if refer = "s" then%><br>Em resposta à <a href="forum.asp?acao=msg&id=<%=ref("id")%>"><%=ref("assunto")%></a>, postada por <%=ref("nome")%><%end if%>
<hr align="left" width=100%>
<table border=0 cellpadding=6 cellspacing=0 width=100% bgcolor=#E5E5E5>
<tr><td>
<font face=Verdana size=1>
<%=msg_com_linhas%>
</font>
</td></tr>
</table>
<p>
<font size=2><b><%if refer="s" then%>Outras <%end if%>Respostas</b> - <a href="forum.asp?acao=postar&idres=<%if refer = "s" then%><%=ref("id")%><%else%><%=m("id")%><%end if%>">Postar Uma Resposta</a></font>
<%
if mr.eof then
%><br>
<%if refer="s" then%>Além desta, não tem nenhuma outra<%else%>Não tem nenhuma<%end if%> resposta pra essa mensagem. <a href="forum.asp?acao=postar&idres=<%if refer = "s" then%><%=ref("id")%><%else%><%=m("id")%><%end if%>">Poste uma você</a>!
<%
else
%><br>
<%
x = 0
Do While not mr.eof
x = x + 1
%><font color=999999>•</font>&nbsp;<b>R<%=x%>:</b> <a href="forum.asp?acao=msg&id=<%=mr("id")%>"><%=mr("assunto")%></a> (<%=mr("nome")%> - <%=data("compacto",mr("data"))%>)<br>
<%
mr.movenext
loop
end if
%></font></p>
<p>&nbsp;</p>
<p align="center">
<font face="verdana" size=2>
<a href="forum.asp">Voltar às Mensagens</a>&nbsp;&nbsp;|&nbsp;&nbsp;<a href="forum.asp?acao=postar">Postar uma Nova Mensagem</a>
</font></p>
</td></tr>
</table>
<%
elseif a = "postar" then
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'' CRIAR A PÁGINA COM O FORMULÁRIO DE POSTAGEM
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
oid = request("idres")
if oid <> "" then
set res = con.execute("SELECT * FROM forum WHERE id ="&oid)
assunto = res("assunto")
resid = oid
else
assunto = ""
resid = 0
end if

header()
%>
<form action="forum.asp?acao=postar2" method="POST">
<input type="hidden" name="idres" value="<%=resid%>">
Preencha o formulário abaixo e poste uma mensagem no fórum. Os
campos<br>marcados com <font color=CA6500><b>X</b></font> são obrigatórios.
<p>
<b>Nome <font color=CA6500>(X)</font>:</b><br>
<input type="text" size=50 name="nome" value="<%=request.cookies("usuario")%>">
<p>
<b>E-Mail:</b><br>
<input type="text" size=50 name="email" value="<%=request.cookies("usuario_email")%>">
<p>
<b>Endereço da Homepage (com http://):</b><br>
<input type="text" size=50 name="hp" value="<%=request.cookies("usuario_hp")%>">
<p>
<b>Assunto da Mensagem <font color=CA6500>(X)</font>:</b><br>
<input type="text" size=50 name="assunto" value="<%=assunto%>">
<p>
<b>Sua Mensagem <font color=CA6500>(X)</font>:</b><br>
<textarea name="msg" cols="50" rows="5"></textarea>
<p>
<input type="submit" value=" Postar Mensagem ">&nbsp;&nbsp;<input type="reset" value=" Limpar os Campos ">
</form>
<%
elseif a = "postar2" then
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'' INSERIR A MENSAGEM NO BANCO DE DADOS
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
function campo©
if request.form© = "" then
%>
<script>
location.href="forum.asp?acao=erro&msg=<%=Server.URLEncode("Você não preencheu o campo <b>"&c&"</b>.<br>Volte e preencha.")%>";
</script>
<%
end if
end function

campo("nome")
campo("assunto")
campo("msg")

function n(cam)
if request.form(cam) = "" then
n = "n"
else
n = request.form(cam)
end if
end function

response.cookies("usuario") = request.form("nome")
response.cookies("usuario").expires = Date() + 365
response.cookies("usuario_email") = request.form("email")
response.cookies("usuario_email").expires = Date() + 365
response.cookies("usuario_hp") = request.form("hp")
response.cookies("usuario_hp").expires = Date() + 365

con.Execute "INSERT INTO forum (nome, email, hp, assunto, msg, idres, data) VALUES ('"&n("nome")&"', '"&n("email")&"', '"&n("hp")&"', '"&n("assunto")&"', '"&n("msg")&"', "&n("idres")&",'"&Date()&"')"
%>
<script>
location.href="forum.asp?post=sim"
</script>
<%
else
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'' CRIAR PÁGINA DE ERRO, SE OCORRER ALGUM
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
msg = request("msg")

header()
%>
<%=msg%>
<p align="center">
<a href="javascript:history.go(-1)">Voltar</a>
</p>
<%
end if 'da açao

footer()

function data(tipo,dt)

ano = Year(dt)
mes = Month(dt)
dia = Day(dt)

select case mes
case 1
mes2 = "Janeiro"
case 2
mes2 = "Fevereiro"
case 3
mes2 = "Março"
case 4
mes2 = "Abril"
case 5
mes2 = "Maio"
case 6
mes2 = "Junho"
case 7
mes2 = "Julho"
case 8
mes2 = "Agosto"
case 9
mes2 = "Setembro"
case 10
mes2 = "Outubro"
case 11
mes2 = "Novembro"
case 12
mes2 = "Dezembro"
end select

if mes < 10 then
mes = "0"&mes
else
mes = mes
end if

response.write dia&" de "&mes2&" de "&ano
end function
%>

Fevereiro 9, 2004

Ninguém me respondeu! Sacanagem hein!

Entrar

Fórum 1.0

Pergunta

Guest Mesaque

Link para o comentário

Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

bolomaster

Link para o comentário

Compartilhar em outros sites

Guest mesaque

Link para o comentário

Compartilhar em outros sites

Guest Mesaque

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades