Avatar billede frank74 Nybegynder
11. august 2011 - 04:56 Der er 2 kommentarer og
1 løsning

Fra ASPMail til w3JMail

Hejsa.

Er der nogen der lige kan konvertere dette ASPMail script til w3JMail?

-------------------------

<%
Dim Mailer
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.CharSet = 2
Mailer.FromName  = "XXX"
Mailer.FromAddress= "webmaster@xxx.dk"
Mailer.RemoteHost = "smtp.unoeuro.com"
Mailer.AddRecipient Request.Form ("FirstName") & " " & Request.Form ("LastName"), Request.Form ("Mail")
Mailer.Subject    = "Aktivering!"

Mailer.BodyText  = "Hej" & " " & Request.Form ("FirstName") & " " & Request.Form ("LastName") & vbcrlf & vbcrlf & "Du er blevet oprettet som bruger på www.xxx.dk. For at kunne logge på skal du først aktivere din profil. Dette gøres ved at følge dette link : " & "http://www.xxx.dk/USERS/bruger_aktiver.asp?email=" & Request.Form ("Mail")

  ' Send e-mail og skriv status
  if Mailer.SendMail then
  Response.Redirect "bruger_opret_send.asp"
  no = no + 1
  else
    Response.Write "Der skete en fejl: " & Mailer.Response
  end if
  Set Mailer = Nothing
%>
Avatar billede frank74 Nybegynder
11. august 2011 - 05:02 #1
Hmmm. Ved ikke hvorfor linien med "For at kunne logge på skal du først aktivere..." er blevet skrevet 2 gange... Det skal selvfølgelig se sådan ud ->

--------------------------

<%
Dim Mailer
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.CharSet = 2
Mailer.FromName  = "XXX"
Mailer.FromAddress= "webmaster@xxx.dk"
Mailer.RemoteHost = "smtp.unoeuro.com"
Mailer.AddRecipient Request.Form ("FirstName") & " " & Request.Form ("LastName"), Request.Form ("Mail")
Mailer.Subject    = "Aktivering!"

Mailer.BodyText  = "Hej" & " " & Request.Form ("FirstName") & " " & Request.Form ("LastName") & vbcrlf & vbcrlf &
"Du er blevet oprettet som bruger på www.xxx.dk.
For at kunne logge på skal du først aktivere din profil.
Dette gøres ved at følge dette link : " &
"http://www.xxx.dk/USERS/bruger_aktiver.asp?email=" & Request.Form ("Mail")

  ' Send e-mail og skriv status
  if Mailer.SendMail then
  Response.Redirect "bruger_opret_send.asp"
  no = no + 1
  else
    Response.Write "Der skete en fejl: " & Mailer.Response
  end if
  Set Mailer = Nothing
%>
Avatar billede keysersoze Guru
17. august 2011 - 22:08 #2
Avatar billede frank74 Nybegynder
18. august 2011 - 02:44 #3
Hej keysersoze.

Ja og jeg har også fundet ud af det. Men måske du kan hjælpe med dette i stedet for: http://www.eksperten.dk/spm/945305
Avatar billede 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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

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