porfavor......

Posted 01/09/2003, 17:41
<form name=form1 action=valida.asp method=post> <tr> <td><b class=verd10>Nome:</b><input class=verd10 size=30 name=nome> </td></tr><tr><td><p><b class=verd10>e-mail:</b> <input class=verd10 size=30 name=email> </p> </td></tr> <tr><td> <table cellspacing=0 cellpadding=0 width=200 border=0> <tbody><tr><td colspan=2><b class=verd10>Avaliação:</b></td> </tr><tr><td> <input class=verd10 type=radio CHECKED value=1 name=avaliacao> <img height=15 src="/imagens/apr_bom.gif" width=15 align=absMiddle> <span class=verd10>boa </span></td> <td> <input class=verd10 type=radio value=0 name=avaliacao> <img height=15 src="/imagens/apr_ruim.gif" width=15 align=absMiddle> <span class=verd10>ruim</span></td> </tr></tbody> </table></td></tr><tr><td> <b class=verd10>Estado:</b> <select name=estado> <option value="" selected> </option> <option value=Acre>Acre</option> <option value=Alagoas>Alagoas</option> <option value=Amapá>Amapá</option> <option value=Amazonas>Amazonas</option> <option value=Bahia>Bahia</option> <option value=Ceará>Ceará</option> <option value="Distrito Federal">Distrito Federal</option> <option value="Espírito Santo">Espírito Santo</option> <option value=Goiás>Goiás</option> <option value=Maranhão>Maranhão</option> <option value="Mato Grosso">Mato Grosso</option> <option value="Mato Grosso do Sul">Mato Grosso do Sul</option> <option value="Minas Gerais">Minas Gerais</option> <option value=Pará>Pará</option> <option value=Paraíba>Paraíba</option> <option value=Paraná>Paraná</option> <option value=Pernambuco>Pernambuco</option> <option value=Piauí>Piauí</option> <option value="Rio de Janeiro">Rio de Janeiro</option> <option value="Rio Grande do Norte">Rio Grande do Norte</option> <option value="Rio Grande do Sul">Rio Grande do Sul</option> <option value=Rondônia>Rondônia</option> <option value=Roraima>Roraima</option> <option value="Santa Catarina">Santa Catarina</option> <option value="São Paulo">São Paulo</option> <option value=Sergipe>Sergipe</option> <option value=Tocantins>Tocantins</option></select></td></tr> <tr> <td><p><b class=verd10>Comentário:</b> <br> <textarea class=verd10 name=comentario rows=4 wrap=VIRTUAL cols=30></textarea> </p> </td></tr><tr><td class=verd10><input class=verd10 type=submit value=Enviar name=Enviar> <input type=hidden value="5617" name=cod> </td> </tr><tr align=right><td align="center"> </td> </tr></form>
<% 'conecao com o banco de dados Set db = Server.CreateObject("ADODB.Connection") conexao = "DBQ=" & Server.MapPath("db.mdb") DB.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & conexao sql = "insert into comentarios (nome, email, avaliacao, estado, comentario) values ('"&(request.form("nome"))&"', '"&(request.form("email"))&"', '"&(request.form("avaliacao"))&"', '"&(request.form("estado"))&"', '"&(request.form("comentario"))&"'" db.execute(sql) %>
<% Set db = Server.CreateObject("ADODB.Connection") conexao = "DBQ=" & Server.MapPath("db.mdb") DB.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & conexao sql = "select * from comentarios" set rs= db.execute(sql) rs.movefirst while not rs.eof %> <span class=verd10> <% if rs("email")=1 then%> <img src=/imagens/1.gif width=15 height=15 hspace=4 vspace=2 align=absmiddle> <%else%> <img src=/imagens/0.gif width=15 height=15 hspace=4 vspace=2 align=absmiddle> <%end if%> <a href=mailto:<%=rs("email")%>><font color=#000099><b><%=rs("nome")%></b></font></a> - <%=rs("estado")%><br> <font color=#333333><b><%=rs("comentario")%><br> <img src=/img/bb1.gif width=400 height=5 vspace=3></span> <% rs.movenext wend %>
Posted 01/09/2003, 17:45
Posted 01/09/2003, 17:50
sim é qse igualcybermix, funcionaria tipow um sistema de Guestbook?
Posted 01/09/2003, 18:34
Posted 02/09/2003, 09:34
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)