Flash Formular => ASP email

Jeg kan sende dig et script der gør brug af ASP Jmail

hvad er Jmail?

en asp attribut?

Det er et komponent der højst sandsynelig ligger på din server. Det bruges til at eksekvere en e-mail via en form.

Et eksempel hvor \'Navn\' og \'Email\' bliver sendt til din e-mail adresse, og til den e-mail der er indtastet, og der redelegers til tak.asp efter mail er sendt.

<%
Navn = Trim(Request.Form(\"Navn\"))
Email = Trim(Request.Form(\"Email\"))


    Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
   
    JMail.ServerAddress = \"smtp.DITDOMAENE.dk\"

    JMail.Sender = \"DIN_EMAIL@DITDOMAENE.dk\"

    JMail.Sendername = Request.Form(Trim(\"Navn\"))

    JMail.Subject = \"Overskrift  \"

    \' **** Modtager af e-mailen ( f.eks. din@email.dk ) ************
    JMail.AddRecipient \"Din-Email@DITDOMAENE.dk\"
   
    JMail.body = \"Hi \" & vbCrLf & Navn & vbCrLf & vbCrLf & \"Email\" & Email & \"\"
    JMail.Priority = 3

    JMail.AddHeader \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")
    IF NOT Request.Form(\"Email\")=\"\" THEN
    JMail.AddRecipientBCC Request.Form(\"Email\")
    END IF
   
    \' **** Sender E-Mailen ************
    JMail.Execute

Response.Redirect(\"tak.asp\")

%>

OK, send den gerne scriptet til mig.

Tak, det ser sørme godt ud. Jeg afprøver det lige, og vender tilbage.

Æv, det virker ikke, jeg får denne besked fra serveren:

Server object error \'ASP 0177 : 800401f3\'

Server.CreateObject Failed

/flash/email.asp, line 6

Invalid class string

Det er den her linie der er noget i vejen med:
Set JMail = Server.CreateObject(\"JMail.SMTPMail\")


Er der nogen der ude som kan hjælpe?

please!?

Se selv meddelelsen på:
http://www.canedo.dk/flash/promotion.html
=> Gå ned under E-mail på skak-brættet nederst.

Du har ikke JMail komponentet til rådighed på serveren.
Jeg har kigget hos din ISP, og fundet ud af at du kan bruge ASPMail istedet. Fremgamgsmåden er egentligt den samme.
Kig evt. under support hos din udbyder hvordan der skrives til dette:

<%
Set Mailer = Server.CreateObject(\"SMTPsvg.Mailer\")
Mailer.RemoteHost = \"mail.dit-domæne.dk\"
Mailer.FromName = \"John Doe\"
Mailer.FromAddress = \"navn@hostnavn.dk\"
Mailer.AddRecipient Request(\"nameto\"), Request(\"addressto\")
Mailer.Subject = \"Dette er emnet i emailen\"
Mailer.BodyText = Request(\"txtmsg\")

if not Mailer.SendMail then
Response.Write \"Meddelelsen kunne ikke senes... Fejlen er: <br>\"
Response.Write Mailer.Response
else
Response.Write \"Meddelelsen er sendt!\"
end if
%>

/D!ktator.dk