Jump to content


Fabioz

Member Since 21/06/2004
Offline Last Active 03/07/2004, 08:46
-----

Topics I've Started

Cdonts

01/07/2004, 04:15

cara, alguem podia me ajudar, já prcurei por tudo que é site e forum, mas não consigo resolver meu problema.

estou usando um formulari que envia o email travez do CDonts, o script ate funciona, mas o e-mail não chega nunca.

tenho o site hospedado no 7Host e no WebSamba, por nunhum dos doi o e-mail chegou, o que ta avendo,
alguem que sabe ou passou por isso sabe me dizer??? :blink: por favor


o script:

<%
DIM strEmail, strNome, strMensagem, mail, reply, objMail

strEmail = request.form("Email")
strNome = request.form("Name")
strMensagem = request.form("Comments")

mail = "tresdk4@hotmail.com"
reply = request.form("Email")
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = reply
objMail.Subject = "teste"
objMail.To = mail
objMail.Body = "Email: " & strEmail & vbCrLf & _
"Nome: " & strNome & vbCrLf & _
"Comments: " & vbCrLf & strMensagem

objMail.Send
Set objMail = nothing
%>

<P>
<%
strNome = request.form("Nome")
Response.Write Nomex
%>,</P>

<P>Obrigado por enviar.</P>

Enquete

29/06/2004, 13:45

baixei na sessão de asp o arquivo de enquete "chacalenquete" ele vem comum monte de arquivos mas não sei como colocalos no site, já configurei o que ele pede mas como colocalo no "corpo" do site? :)

Contador E Enquete

29/06/2004, 02:44

gostaria de colocar no meu site um sistema de enquete e um simples contador de acesso, já dei uma olhada na parte de asp do site e olhei alguns scripts mas não sei como "colocalos no meu site" alguem poderia me indicar algum e me explicar como aplicalo no meu site


obrigado :lol:

Muda A Fugura

27/06/2004, 14:34

Olá

Eu sei que tem como fazer uma celula com uma figuara mudar de figura quando o mouse passa por cima, mas queria saber se tem como fazer essa mesma celula medar de figura quando o mouse passa por outra celula.

tipo:

celula 1 muda de figura quando o mause passa pela celula 2

tem como?

valeu! ;)

Testem Esse Form-email

24/06/2004, 15:48

Alguem poderia testar esse form-email, porque já não sei mais o que fazer, ela da a mensagemde confirmação, não acusa erro, mas nunca chega o e-mail, pensei que era problema do host, mas testei em outro e não deu, mesma coisa, confirma o enviu mas nunca chega.

se alguem puder testar eu agradesso

o script : enviam.asp

<% Response.Expires = 0 %>
<% REM Previous line is used to work around proxy caching problems. %>
<%

if request("enviar") = "enviar" then

Dim Nomex, Emailx, Mensagemx, Armazenax

Nomex = Request.Form("Nome")
Emailx = Request.Form("Email")
Mensagemx= Request. Form("mensagem")
Armazenax = "<HTML><HEAD><BODY>" + "Nome: " + Nomex + "<BR>" + "Email: " + Emailx + "<BR>" + "Mensagem: " + Mensagemx + "</HTML></HEAD></BODY>"


Response.Write "<br><br><br><br><center><b><font face=tahoma size=2 color=#000666>essa é sua mensagem</center></font></b><br>"

Response.Write Nomex & "<BR>"
Response.Write Emailx & "<BR>"
Response.Write Armazenax & "<BR>"

%>
<%
Set objNewMail = Server.CreateObject ("CDONTS.NewMail")
objNewMail.From = Nomex
objNewMail.To = "tresdk4@hotmail.com"
objNewMail.Subject = "Mensagem da 3DK<b></b>"
objNewMail.BodyFormat = 0
objNewMail.MailFormat = 0
objNewMail.Body = Armazenax
e=objNewMail.Send
Set objNewMail = Nothing

if e then
Response.Write "Mensagem não enviada"
else
Response.Write "Mensagem enviada com sucesso!!!!!!!!!!!!!!!!!!!!"
end if
response.end
end if

%>

valeu

IPB Skin By Virteq