PHP til ASP-kode

Hvis du skal kunne sende mails med ASP, har du brug for at der ligger en mail-komponent på serveren. Gør der det? Hvis ja, hvilken komponent er det så?

Der ligger en sendmail.asp i en Scripts-mappe.
Den indeholder dette:
<%
  Function SendMail(ModtagerEmail, SenderEmail, SenderNavn, Subject, Body, BodyFromFile)
    'On error resume next

    Set JMail = Server.CreateObject("JMail.SMTPMail")
    JMail.ServerAddress = Mailserver
 
    'JMail.silent = true     
    JMail.Sender        = SenderEmail
    JMail.SenderName    = SenderNavn
    JMail.Subject      = Subject
    JMail.AddRecipient ModtagerEmail
    JMail.Priority = 3       
    JMail.Body = Body
    JMail.Execute
    If (JMail.ErrorCode  > 0) or (Err.Number <> 0) then
      SendMail = false
    else
      SendMail = true 
    end if       
    set JMail = nothing
    'On error goto 0                 
  end function
%>

Giver det mening..?

Ja, så kan du jo bare inkludere den i siden og så gemme navn og email i adresser.txt. Jeg vil mene at der var noget i stil med dette ("scripts" i includelinien er så den mappe hvor scriptet ligger):

<!-- #include file="scripts/sendmail.asp" -->
<%
dim tilemail, fraemail, emne, besked
dim fso, t

fraemail = "din@mail.adresse.dk"
tilemail = "xxx@xxx.net"
emne = "emne"
besked = navn & vbCrLf
besked = besked & mail & vbCrLf

SendMail tilemail, fraemail, "robottens navn", emne, besked, ""

set fso = server.createobject("Scripting.FileSystemObject")
set t = fso.OpenTextFile(Server.MapPath("adresser.txt"), 8)
t.writeline navn & ", " & email & vbCrLf
t.close
set t = nothing
set fso = nothing
%>

Perfect!
Med et par små tilrettelser fra en kreativ sjæl, så spiller det.

Smid et svar, så ryger der lidt på kontoen.

Velbekomme :)

Tak for point :)