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çã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á 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> Masculino</b>
</td>
<td class="1" valign="top" width="50%">
<input type="radio" name="sexo" value="feminino"> <b> 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 & Júnior - A Arte Do Coraçã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 & Jú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 & Júnior - Cadê você que não está?</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çã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," ", " ")
b = replace(b,"<","<")
b = replace(b,">",">")
%>
<table width="500" align="center">
<tr>
<td class="1" valign="top" align="center">
<div id="barra">Esta é uma declaração para você <span style="color:#ffff00;text-transform:uppercase"><%=h%> <%=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çã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ção de amor para você<br><br>"
mailbody = mailbody & "<span style=""color:#000000;font-family:Verdana;font-size:12"">Você poderá ver a declaração feita para você 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ê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ço de Amor de: " & c & " Para você :)</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ço de Declaração de amor!!!
<br>
<br>
Sua declaraçã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ão tenha enviado corretamente a sua declaraçã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>
