Ir ao conteúdo
  • Cadastre-se
Regras do Clube do Hardware

Menu Dropw-down

stefano47

Por stefano47
em Web e banco de dados

Posts recomendados

stefano47
 

stefano47

Postado
Postado

Preciso fazer esse drop-down funcionar, mas não sei como. Precios que as mensagens do fórum sejam enviadas com os assuntos restritos do drop e não estou conseguindo. quando. a mensagem é postada,aparece apenas a letra "n" em vez do item selecionado. Eagora?

Desde já, obrigado.

SEGUE O CÓDIGO DO FÓRUM:

<%

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'' 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">

<div align="center"><font face="Verdana,Arial,Helvetica" color="#999999" size="5">

F Ó R U M

D E

D I S C U S S Ã O</font> </div>

<p align="justify">

<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!

Se não estiver vendo ela no fórum, atualize a página')</script>

<%end if%> <font face="Verdana" size="2">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 pelos colaboradores interessados em participar do processo de implantação de nosso Sistema Gerencial Integrado. Sempre lembrando que as mensagens mais novas vem primeiro!

</font>

<h5>Postar Uma Nova Mensagem</h5></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")

%>

• P: "><%=f("assunto")%> (<%=f("nome")%> - <%=data("compacto",f("data"))%>)

<%

x = 0

Do While not r.eof 'Respostas

x = x + 1

%>

<font color=999999>•</font> R<%=x%>: "><%=r("assunto")%> (<%=r("nome")%> - <%=data("compacto",r("data"))%>)

<%

r.movenext

loop%>

<%

end if 'Checagem se é resposta ou não

f.movenext

loop

%>

</p>

<%

elseif a = "mensagem" 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("mensagem"),vbcrlf,"

")

header()

%>

<table width=100% cellspacing=0 cellpadding=0 border=0>

<tr><td>

<font face=Verdana size=1><font size=2 color=CA6500><%=m("assunto")%> - <%=data("compacto",m("data"))%></font>

Postada por <%=m("nome")%><%if m("email") <> "n" then%>, ">mande um e-mail<%end if%><%if m("hp") <> "n" then%> ou " target="_blank">veja a hp<%end if%>

<%if refer = "s" then%>

Em resposta à "><%=ref("assunto")%>, 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>

<font size=2><%if refer="s" then%>Outras <%end if%>Respostas - "><%=mr("assunto")%> (<%=mr("nome")%> - <%=data("compacto",mr("data"))%>)

<%

mr.movenext

loop

end if

%></p></font>

</p>

<p align="center">

<font face="verdana" size=2>

Voltar às Mensagens | Postar uma Nova Mensagem

</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 marcados com <font color=CA6500>X</font> são obrigatórios.

Nome <font color=CA6500>(X)</font>:

<input type="text" size=50 name="nome" value="<%=request.cookies("usuario")%>">

E-Mail:

<input type="text" size=50 name="email" value="<%=request.cookies("usuario_email")%>">

Endereço da Homepage (com http://):

<input type="text" size=50 name="hp" value="<%=request.cookies("usuario_hp")%>">

Assunto da Mensagem <font color=CA6500>(X)</font>:

<select size="1" name="_options">

<option value="Diretoria">Diretoria</option>

<option value="Contabilidade">Contabilidade</option>

<option value="Informática">Informática</option>

<option value="Tributos">Tributos</option>

<option value="Finanças">Finanças</option>

<option value="Manutenção">Manutenção</option>

<option value="Patrimônio">Patrimônio</option>

<option value="Compras">Compras</option>

<option value="Almoxarifado">Almoxarifado</option>

<option value="Cargos e Salários">Cargos e Salários</option>

<option value="Treinamento">Treinamento</option>

<option value="Administração de Pessoal">Administração de Pessoal</option>

<option value="Benefícios">Benefícios</option>

<option value="Segurança do Trabalho">Segurança do Trabalho</option>

<option value="Recrutamento e Seleção">Recrutamento e Seleção</option>

<option value="Controladoria">Controladoria</option>

<option value="Contratos e Contratações">Contratos e Contratações</option>

<option value="Gestão da Qualidade">Gestão da Qualidade</option>

<option value="Orçamentação de Projetos">Orçamentação de Projetos</option>

<option value="Auditoria Interna">Auditoria Interna</option>

<option value="Gestão Descentralizada">Gestão Descentralizada</option>

</select>

Sua Mensagem <font color=CA6500>(X)</font>:

<textarea name="mensagem" cols="50" rows="5"></textarea>

<input type="submit" value=" Postar Mensagem "> <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&mensagem=<%=Server.URLEncode("Você não preencheu o campo "&c&".

Volte e preencha.")%>";

</script>

<%

end if

end function

campo("nome")

campo("mensagem")

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, mensagem, idres, data) VALUES ('"&n("nome")&"', '"&n("email")&"', '"&n("hp")&"', '"&n("assunto")&"', '"&n("mensagem")&"', "&n("idres")&",'"&Date()&"')"

%>

<script>

location.href="forum.asp?post=sim"

</script>

<%

else

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'' CRIAR PÁGINA DE ERRO, SE OCORRER ALGUM

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

mensagem = request("mensagem")

header()

%>

<%=mensagem%>

<p align="center">

Voltar

</p>

</font>

<%

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

%>

STEFANO47

Link para o comentário
Compartilhar em outros sites

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Ir à lista de tópicos

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

Mais

×
×
  • Criar novo...