Fórum 1.0

February 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 · February 5, 2004

POSTA O CODIGO

February 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
%>

February 9, 2004

Ninguém me respondeu! Sacanagem hein!

Sign In

Fórum 1.0

Question

Guest Mesaque

Link to comment

Share on other sites

3 answers to this question

Recommended Posts

bolomaster

Link to comment

Share on other sites

Guest mesaque

Link to comment

Share on other sites

Guest Mesaque

Link to comment

Share on other sites

Join the conversation

Forum Statistics

Browse

Activity