Jmail pluds Vedhæft

Hejsa

Jeg bruger dette script til at afsende emails direkte fra min side:

<%@ Language=VBScript %>
<%
    Dim Firma, Navn, Adresse, Bynavn, Postnummer, Email, Telefonnummer, Fax, Bemaerkninger, BodyText

    Firma                    = Request("firma")
    Navn                    = Request("navn2")
    Adresse                = Request("adresse")
    Postnummer        = Request("postnummer")
    Bynavn                = Request("bynavn")
    Email                    = Request("email")
    Telefonnummer    = Request("telefonnummer2")
    Bemaerkninger    = Request("Bemaerkninger")

    Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
    Mailer.ContentType = "text/html"
    Mailer.FromName  = "Party-House.dk - Kontakt form"
    Mailer.FromAddress= "Robot@Party-House.dk"
    Mailer.RemoteHost = "mail.party-house.dk"
    Mailer.AddRecipient "Mark Zweidorff", "mark@party-house.dk"
    Mailer.Subject    = "Party-House.dk - Kontakt form"

    BodyText = "<font face=verdana size=1><b>Nedenstående ønsker at blive kontaktet: </b><br><br>"
    BodyText = BodyText & "<table border=0 cellspacing=0 cellpadding=0 width=300>"
    BodyText = BodyText & "<tr><td width=150><font face=verdana size=1><b>Firma</b></td><td>&nbsp;</td><td width=150>&nbsp;&nbsp;<font face=verdana size=1>" & Firma & "</td></tr>"
    BodyText = BodyText & "<tr><td><font face=verdana size=1><b>Navn</b></td><td>&nbsp;</td><td>&nbsp;&nbsp;<font face=verdana size=1>" & Navn & "</td></tr>"
    BodyText = BodyText & "<tr><td><font face=verdana size=1><b>Adresse</b></td><td>&nbsp;</td><td>&nbsp;&nbsp;<font face=verdana size=1>" & Adresse & "</td></tr>"
    BodyText = BodyText & "<tr><td><font face=verdana size=1><b>Postnr/By</b></td><td>&nbsp;</td><td>&nbsp;&nbsp;<font face=verdana size=1>" & Postnummer & " " & Bynavn & "</td></tr>"
    BodyText = BodyText & "<tr><td><font face=verdana size=1><b>Email</b></td><td>&nbsp;</td><td>&nbsp;&nbsp;<font face=verdana size=1>" & Email & "</td></tr>"
    BodyText = BodyText & "<tr><td><font face=verdana size=1><b>Telefon</b></td><td>&nbsp;</td><td>&nbsp;&nbsp;<font face=verdana size=1>" & Telefonnummer & "</td></tr>"
    BodyText = BodyText & "</table>"
    BodyText = BodyText & "<font face=verdana size=1><b>Bemærkning: </b><br><font face=verdana size=1>" & Bemaerkninger & "</font>"
    BodyText = BodyText & "<br><br><font face=verdana size=1>Mvh.<br> Party-House.dk's mailing system."

    Mailer.BodyText  = BodyText
    if Mailer.SendMail then
      Response.Redirect "kontakt.asp?msg=Deres meddelse er nu afsendt."
    else
      Response.Write "Mail send failure. Error was " & Mailer.Response
    end if


%>

Jeg mangler nu en vedhæft funktion hvor folk kan vedhæfte et billed.

På forhånd tak.