Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
stefano47

Menu Dropw-down

Recommended Posts

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações 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

×