Notifikationer

Markér alle som læst Log ud

brownghost Nybegynder

09. januar 2002 - 22:58 Der er 4 kommentarer og
1 løsning

er der en der kan lave den her om til Jmail så det dur for jeg kan ikke få det til at funge :o(( ØvØv

er der en der kan lave den her om til Jmail så det dur for jeg kan ikke få det til at funge :o(( ØvØv

<html>
<head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<title>Recommend Qserve to a friend!</title>
</head>
<body bgcolor=\"#808080\" text=\"#000000\">
<%

Session(\"FromName\") = Request(\"FromName\")
Session(\"FromAddress\") = Request(\"FromAddress\")
Session(\"Subject\") = Request(\"Subject\")
Session(\"BodyText\") = Request(\"BodyText\")

set Mailer = Server.CreateOBject( \"JMail.Message\" )

Mailer.FromName = Session(\"FromName\")
Mailer.FromAddress = Session(\"FromAddress\")
Mailer.RemoteHost = \"smtpgw.activeisp.com\"
Mailer.AddRecipient Request.form(\"Phone\"), Request.form(\"FromAddress\")
Mailer.Subject = \"Check this out I found the coolest IRC script on the net called Qserve\"
Mailer.BodyText = \"One off your friends have recommended Qserve to you..\" & vbcrlf & \"look here to see the script! http://come.to/Qserve\" & vbcrlf & vbcrlf & \"Your friend\'s message is…\" & vbcrlf & vbcrlf & request.form(\"BodyText\") & vbcrlf & vbcrlf & \"Your friends info is..\" & vbcrlf & vbcrlf & Request.form(\"FromName\") & vbcrlf & Request.form(\"Address\") & vbcrlf & vbcrlf & \"Thank You\" & vbcrlf & vbcrlf & \"Team Qserve\"

if Mailer.SendMail then
Response.redirect(\"tak.asp\")
else
Response.Write \"Error sorry your mail was not send ;o( \" &Mailer.Response
end if

Session.Abandon
%>
</body>
</html>

Synes godt om

brownghost Nybegynder

09. januar 2002 - 22:59 #1

sorry det er den her den anden skal jeg ikke bruge...

<html>
<head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<title>send mail asp Qserve Script</title>
</head>
<body>
<%

Session(\"FromName\") = Request(\"FromName\")
Session(\"FromAddress\") = Request(\"FromAddress\")
Session(\"Subject\") = Request(\"Subject\")
Session(\"BodyText\") = Request(\"BodyText\")

Set Mailer = Server.CreateObject(\"SMTPsvg.Mailer\")

Mailer.FromName = Session(\"FromName\")
Mailer.FromAddress = Session(\"FromAddress\")
Mailer.RemoteHost = \"smtpgw.activeisp.com\"
Mailer.AddRecipient \"Qserve Net asp mail form\", \"brownghost@hotmail.com\"
Mailer.Subject = \"#Qserve Question#\" & Session(\"Subject\")
Mailer.BodyText = request.form(\"BodyText\") & vbcrlf & Request.form(\"FromName\") & vbcrlf & Request.form(\"Address\") & vbcrlf & Request.form(\"Zip\") & vbcrlf & Request.form(\"Country\") & vbcrlf & Request.form(\"Phone\")

if Mailer.SendMail then
Response.redirect(\"tak.asp\")
else
Response.Write \"Error sorry your mail was not send :o(\" &Mailer.Response
end if

Session.Abandon
%>
</body>
</html>

Synes godt om

cthun Nybegynder

09. januar 2002 - 23:05 #2

<%

Session(\"FromName\") = Request(\"FromName\")
Session(\"FromAddress\") = Request(\"FromAddress\")
Session(\"Subject\") = Request(\"Subject\")
Session(\"BodyText\") = Request(\"BodyText\")

set Mailer = Server.CreateOBject( \"JMail.Message\" )

msg.FromName = Session(\"FromName\")
msg.From = Session(\"FromAddress\")
msg.AddRecipient Request.form(\"Phone\"), Request.form(\"FromAddress\")
msg.Subject = \"Check this out I found the coolest IRC script on the net called Qserve\"
msg.Body = \"One off your friends have recommended Qserve to you..\" & vbcrlf & \"look here to see the script! http://come.to/Qserve\" & vbcrlf & vbcrlf & \"Your friend\'s message is…\" & vbcrlf & vbcrlf & request.form(\"BodyText\") & vbcrlf & vbcrlf & \"Your friends info is..\" & vbcrlf & vbcrlf & Request.form(\"FromName\") & vbcrlf & Request.form(\"Address\") & vbcrlf & vbcrlf & \"Thank You\" & vbcrlf & vbcrlf & \"Team Qserve\"

if not msg.Send(\"smtp.mail.dk\" ) then
Response.Write \"Error sorry your mail was not send ;o( \" &Mailer.Response
else
Response.redirect(\"tak.asp\")
end if

%>

Synes godt om

cthun Nybegynder

09. januar 2002 - 23:07 #3

husk at ændre msg.send til smtpgw.activeisp.com

Synes godt om

cthun Nybegynder

09. januar 2002 - 23:12 #4

Glem alt... prøv og ændre lidt på det her!!

\' Get the form data
name = Request.Form(\"name\")
senderEmail = Request.Form(\"email\")
subject = \"jac-interactive.dk\"
recipient = \"casper@mailme.dk\"
body = Request.Form(\"body\")
body = body & \" - Fra ip: \" & Request.ServerVariables(\"remote_host\")

\' Create the JMail message Object
set msg = Server.CreateOBject( \"JMail.Message\" )

\' Set logging to true to ease any potential debugging
\' And set silent to true as we wish to handle our errors ourself
msg.Logging = true
msg.silent = true

\' Enter the sender data
msg.From = senderEmail
msg.FromName = name
\' Note that as addRecipient is method and not
\' a property, we do not use an equals ( = ) sign
msg.AddRecipient recipient

\' The subject of the message
msg.Subject = subject

\' And the body
msg.body = body

\' Now send the message, using the indicated mailserver
if not msg.Send(\"smtp.mail.dk\" ) then
Response.write \"<br><br><font face=verdana size=2><div align=center>Couldn\'t send mail. Please try again!</div></font>\"
else
Response.write \"<br><br><font face=verdana size=2><div align=center>Message sent succesfully!</div></font>\"
end if

\' And we\'re done! the message has been sent.

Synes godt om

brownghost Nybegynder

10. januar 2002 - 01:40 #5

takker jeg fik det til at funge :o)

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
ASP classic kopiere database fil på server Af bsn i ASP	7	31/10/202610:20	01/11/202620:28
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS