Qual O Erro?

marcos_804 · Outubro 17, 2004

GALERA ESTAVA TENTANDO CRIAR UMA PAGINA ONDE O USUARIO CRIARIA UMA DECLARACAO DE AMOR A SUA AMADA, MAS O NEGOCI SIMPLISMENTE não ABRE, alguém SABE O QUE FAÇO PARA DESCOBRIR O ERRO?

SE QUISEREM AI VAI O CODIGO

<html>

<head>
<title>Declara&ccedil;&atilde;o - Feita por Marcos Oliveira</title>
<style>
a{color:#000000;text-decoration:none}
a:hover{color:#ff0000;text-decoration:underline}
img{border:2px solid #000000}

#barra {width:100%;font-family:verdana;font-size:12;color:#ffffff;font-weight:bold;padding-top:2;;text-align:center;height:19;background-color:#E23F42}

.1{font-family:verdana;font-size:11;color:#000000}

.2{font-family:verdana;font-size:11;color:#ff0000;border:1px solid #000000}
</style>
</head>

<body bgcolor="#ffffff">
<%
declara = request.form("declara")
If IsEmpty(declara) or declara = "" then

%>
<div align="center">
  <center>
<form action="declara.asp" method="POST">
<table width="600" colspan="2" style="border: 1 solid #000000">
  <tr>
    <td colspan="2" class="1" align="center" style="border: 1 solid #000000">
      <div id="barra">Escolha o que vir&aacute; como fundo na sua mensagem</div><br>
      <input type="radio" name="image" value="imagens/coracao.gif" checked><img src="imagens/coracao.gif">
      <input type="radio" name="image" value="imagens/teAmo.gif"><img src="imagens/teAmo.gif">
      <input type="radio" name="image" value="imagens/vemParaMim.gif"><img src="imagens/vemParaMim.gif">
      <input type="radio" name="image" value="imagens/teQuero.gif"><img src="imagens/teQuero.gif">
    </td>
  </tr>
  <tr>
    <td width="55%" rowspan="8" valign="top" class="1" style="border: 1 solid #000000">
    <div id="barra">Digite sua mensagem aqui</div>
      <textarea rows="1" class="2" cols="20" name="mensagem" style="width: 354; height: 193"></textarea>
    </td>
    <td width="40%" valign="top" class="1">      
      Seu Nome      
    </td>
  </tr>
  <tr>
    <td width="40%" valign="top" class="1">
      <input type="text" name="Snome" class="2" value="">
    </td>
  </tr>
  <tr>
    <td width="40%" valign="top" class="1">      
      Seu E-mail      
    </td>
  </tr>
  <tr>
    <td width="40%" valign="top" class="1">
      <input type="text" name="Semail" class="2" value="">
    </td>
  </tr>
  <tr>
    <td width="40%" valign="top" class="1">
      Nome da(o) Amada(o)      
    </td>
  </tr>
  <tr>
    <td width="40%" valign="top" class="1">
      <input type="text" name="Namada" class="2" value="">
    </td>
  </tr>
  <tr>
    <td width="40%" valign="top" class="1">      
      E-mail da(o) Amada(o)      
    </td>
  </tr>
  <tr>
    <td width="40%" valign="top" class="1">
      <input type="text" name="Eamada" class="2" value="">
    </td>
  </tr>
  <tr>
    <td class="1" colspan="2" valign="top">
      <div id="barra">Escolha o seu sexo</div><br>
      <table width="100%" class="1" border="0">
        <tr>
          <td class="1" valign="top" width="50%">
            <input type="radio" name="sexo" value="masculino" checked> <b>&nbsp;&nbsp;&nbsp;Masculino</b>
          </td>
          <td class="1" valign="top" width="50%">
            <input type="radio" name="sexo" value="feminino"> <b>&nbsp;&nbsp;&nbsp;Feminino</b>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td class="1" colspan="2">
      <div id="barra">Escolha o som de Fundo</div><br>
    </td>
  </tr>
  <tr>
    <td class="1" width="50%">
      <input type="radio" value="som/Black_Eyed_Peas-Shut_up" name="fundo"><a href="som/Black_Eyed_Peas-Shut_up.mid">Black Eyed Peas - Shut Up</A><br>
      <input type="radio" value="som/Britney_Spears-Toxic" name="fundo"><a href="som/Britney_Spears-Toxic.mid">Britney Spears - Toxic</A><br>
      <input type="radio" value="som/Celine_Dion-Because_you_loved_me" name="fundo"><a href="som/Celine_Dion-Because_you_loved_me.mid">Celine Dion - Because You Loved Me</A><br>
      <input type="radio" value="som/Celine_Dion-My_heart_will_go_on" name="fundo"><a href="som/Celine_Dion-My_heart_will_go_on.mid">Celine Dion - My Heart Will Go On</A><br>
      <input type="radio" value="som/Celine_Dion-Power_of_love" name="fundo"><a href="som/Celine_Dion-Power_of_love.mid">Celine Dion - Power Of Love</A><br>
    </td>
    <td class="1" width="50%">
      <input type="radio" value="som/Sandy_e_Junior-A_Arte_Do_Coracao" name="fundo"><a href="som/Sandy_e_Junior-A_Arte_Do_Coracao.mid">Sandy &amp; J&uacute;nior - A Arte Do Cora&ccedil;&atilde;o</A><br>
      <input type="radio" value="som/Sandy_e_Junior-A_Lenda" name="fundo"><a href="som/Sandy_e_Junior-A_Lenda.mid">Sandy &amp; J&uacute;nior - A Lenda</A><br>
      <input type="radio" value="som/Sandy_e_Junior-Cade_Voce_Que_Nao_Esta" name="fundo"><a href="som/Sandy_e_Junior-Cade_Voce_Que_Nao_Esta.mid">Sandy &amp; J&uacute;nior - Cad&ecirc; voc&ecirc; que n&atilde;o est&aacute;?</A><br>
      <input type="radio" value="som/Celine_Dion-All_By_Myself" name="fundo"><a href="som/Celine_Dion-All_by_my_self.mid">Celine Dion - All By Myself</a><br>
    </td>
  </tr>
  <tr>
    <td class="1" colspan="2" align="center">
      <br>
      <input type="hidden" name="declara" value="1">
      <input type="submit" value="Ver como Ficou a Declara&ccedil;&atilde;o" style="background-color:#ff0000;color:#ffff00;font-family:verdana;font-size:11;font-weight:bold;border:1px solid #000000">
    </td>
  </tr>
</table>
  </center>
</form>
<%
End if
If declara = 1 Then

a = request.form("image")
c = request.form("Snome")
d = request.form("Semail")
e = request.form("Namada")
f = request.form("Eamada")
g = request.form("fundo")

h = request.form("sexo")
if h = "masculino" Then
h = "Querida" else
h = "Querido"
end if

b = server.HTMLencode(request.form("mensagem"))
b = replace(b, vbCrLf, "<br>")
b = replace(b," ", "&nbsp;")
b = replace(b,"<","&lt;")
b = replace(b,">","&gt;")
%>

<table width="500" align="center">
  <tr>
    <td class="1" valign="top" align="center">
      <div id="barra">Esta &eacute; uma declara&ccedil;&atilde;o para voc&ecirc; <span style="color:#ffff00;text-transform:uppercase"><%=h%> &nbsp;<%=e%></span></div><br>
      <span style="font-family:Monotype Corsiva;font-size:20;font-weight:bold">De: <font color="ff0000"><%=c%></font></span><br>
      <span style="font-family:Monotype Corsiva;font-size:20;font-weight:bold">Para: <font color="ff0000"><%=e%></font></span>
    </td>
  </tr>
  <tr>
    <td valign="top" class="1" align="center" background="<%=a%>">
      <br>
      <span style="background-color:#ffff00;padding:3;font-family:Monotype Corsiva;font-size:20;font-weight:bold">
        <%=b%>
      </span>
    </td>
  </tr>
  <tr>
    <td class="1" valign="top" align="center">
      <form action="declara.asp" method="POST">
        <input type="hidden" name="image" value="<%=a%>">
        <input type="hidden" name="Snome" value="<%=c%>">
        <input type="hidden" name="Semail" value="<%=d%>">
        <input type="hidden" name="Namada" value="<%=e%>">
        <input type="hidden" name="Eamada" value="<%=f%>">
        <input type="hidden" name="fundo" value="<%=g%>">
        <input type="hidden" name="sexo" value="<%=h%>">
        <input type="hidden" name="mensagem" value="<%=b%>">
        <input type="hidden" name="declara" value="2">
        <input type="submit" value="Gravar Declara&ccedil;&atilde;o" style="background-color:#ff0000;color:#ffff00;font-family:verdana;font-size:11;font-weight:bold;border:1px solid #000000">
      </form>
    </td>
  </tr>
</table>
<embed width="128" height="128" hidden src="<%=g%>.mid">

<%
End if
If declara = 2 then
session.LCID = 1046
Randomize
passe = int(rnd*9999999999) + 1
a = request.form("image")
c = request.form("Snome")
d = request.form("Semail")
e = request.form("Namada")
f = request.form("Eamada")
g = request.form("fundo")
h = request.form("sexo")
b = request.form("mensagem")
data = date()

hora = hour(time) + 1
minutos = minute(time)
Ahora = hora & " : " & minutos

Set conn = Server.CreateObject("ADODB.Connection")
DSNtemp ="DRIVER={Microsoft Access Driver(*.mdb)};"
DSNtemp = dsntemp & "DBQ=" & server.MapPath("declaracao.mdb")
conn.Open DSNtemp
SQL = "INSERT INTO declara(passe, image, Snome, Semail, Namada, Eamada, fundo, sexo, mensagem, Ahora, data)"
SQL = SQL & "VALUES('" & passe & "', '" & a & "', '" & c & "', '" & d & "', '" & e & "', '" & f & "', '" & g & "', '" & h & "', '" & b & "', '" & Ahora & "', '" & data & "')"
conn.Close

set conn = Server.CreateObject("ADODB.Connection")
DSNtemp="DRIVER={Microsoft Access Driver(*.mdb)};"
DSNtemp = dsntem & "DBQ=" & Server.MapPath("declaracao.mdb")
conn.Open DSNtemp
SQL = "SELECT * FROM declara WHERE Snome =" & a & " AND passe =" & passe & " AND Namada = " & e & " ORDER BY ID DESC;"
set rs = conn.Execute.(SQL)
id = rs("id")
conn.close

dim mailbody
scriptname = Request.servervariables("script_name")
scriptname = Replace(scriptname, "declara.asp", "verDeclara.asp")
scriptname = "http://" & Request.ServerVariables("server_name") & scriptname
mailbody = "<span style=""color:#ff0000;font-weight:bold;text-transform:uppercase;font-family:verdana;font-size:13"">" & c & "</span><span style=""color:#000000;font-family:Verdana;font-size:12""> enviou uma declara&ccedil;&atilde;o de amor para voc&ecirc;<br><br>"
mailbody = mailbody & "<span style=""color:#000000;font-family:Verdana;font-size:12"">Voc&ecirc; poder&aacute; ver a declara&ccedil;&atilde;o feita para voc&ecirc; no endere&cceil;o:<br<br></span>"
mailbody = mailbody & scriptname & "?id=" & id & "&passe=" & passe &"<br><br>"
mailbody = mailbody & "<span style=""font-family:Verdana;color:#ff0000;font-size:12"">Desejamos que o amor de voc&ecirc;s dure para sempre!</span><br><br>"
mailbody = maildoby & "<hr>Desenvolvido por: <a target=""_blank"" href=""http://www.mundomarcos.official.ws""><span style=""color:#000000;font-weight:bold;font-family:Verdana;font-size:12;text-decoration:none"">www.mundomarcos.official.ws</a>"

blablabla = "<span style=""font-family:verdana;font-size:13;color:#ff0000;font-weight:bold"">:) Uma declara&ccedil;o de Amor de: " & c & " Para voc&ecirc; :)</span>"

set SMTP = Server.CreateObject("Jmail.SMTPMail")
SMTP.ServerAdress = "Endereo do servidor"
SMTP.Sender = d
SMTP.AddRecipient f
SMTP.Subject = blablabla
SMTP.Body = mailbody
SMTP.Execute
%>
<table width="500" align="center" border="0">
  <tr>
    <td valign="top" class="1" style="font-family:Monotype Corsiva;font-size:25;font-weight:bold">
      Obridado Por desfutar do nosso Servi&ccedil;o de Declara&ccedil;&atilde;o de amor!!!
      <br>
      <br>
      Sua declara&ccedil&atilde;o foi enviada para: <span style="text-decoration:underline;color:#ff0000;font-weight:bold"><%=e%></span><br>
      Quem enviou foi: <span style="text-decoration:underline;color:#ff0000;font-weight:bold"><%=c%></span><br><br>
      <span style="font-weight:normal;font-family:verdana;font-size:11">Caso n&atilde;o tenha enviado corretamente a sua declara&ccedil;&atilde;o envie este link a(o) sua(eu) amada(o)<br><br>
        http://www.mundomarcos.official.ws/verDeclara.asp?id=<%=id%>&pass=<%=passe%>
      </span>      
    </td>
  </tr>
</table>
id = 22
passe = 1
</body>

dark0 · Outubro 17, 2004

o que acontece?

tem mensagem de erro?

Se a pagina não mostra nada, convenhamos que, ou tem erro de logica, ou o servidor ta com problema.

Pois, pelo menos o codigo HTML deveria aparecer, não?

Entrar

Qual O Erro?

Pergunta

marcos_804

Link para o comentário

Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

dark0

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades