"Find fem fejl"

skriv lige din mail-kode her.. og marker linie 219.. du kan evt erstatte din mail-adresse med "***" eller noget i den stil..

/theSurfer

Kommer her

' -> DENNE MAILKOMPONENT ER 'CDONTS'.

    ' -> DETTE ER VARIABLERNE FRA FORMULARFELTERNE.
    Dim strOrderForm_Name
    Dim strOrderForm_Email
    Dim strRecipient_Name
    Dim strRecipient_Email

    strOrderForm_Name = Request.Form("OrderForm_Name")
    strOrderForm_Email = Request.Form("OrderForm_Email")
    strRecipient_Name = "e-shop'en"
    strRecipient_Email = "lemo@gribskovens.dk"

    ' -> DETTE ÅBNER ET MAILSERVEROBJEKT.
    Set objNewMail = Server.CreateObject("CDONTS.NewMail")

    ' -> DETTE ER AFSENDERENS E-MAIL ADRESSE FRA FORMULARFELTET.
    objNewMail.From = strOrderForm_Email

    ' -> DETTE ER AFSENDERENS SVAR E-MAIL ADRESSE FRA FORMULARFELTET.
    objNewMail.Value("Reply-To") = strOrderForm_Email

    ' -> DETTE ER MODTAGERENS E-MAIL ADRESSE.
    objNewMail.To = strRecipient_Email

    ' -> DETTE ER MODTAGERENS E-MAIL ADRESSE.
    ' -> BEMÆRK: DETTE SENDER EN KOPI AF ORDREN TIL AFSENDEREN FRA FORMULAREN.
    objNewMail.To = strOrderForm_Email

    ' -> DETTE ER EMNET PÅ E-MAIL'EN.
    objNewMail.Subject = "e-shop'en - Ordre"

    ' -> DETTE ANGIVER PRIORITETEN: 2 = HØJ, 1 = NORMAL, 0 = LAV.
    objNewMail.Importance = 1

    ' -> DETTE ANGIVER INDHOLDETS TYPE: 0 = HTML, 1 = Plain.
    objNewMail.BodyFormat = 0

    ' -> DETTE ANGIVER E-MAIL'ENS TYPE: 0 = MIME, 1 = Text.
    objNewMail.MailFormat = 1

    ' -> DETTE ER INDHOLDET AF E-MAIL'EN. STANDARDTEKST ER KOMBINERET MED FORMULARVARIABLER.
    objNewMail.Body = OrderMailText

    objNewMail.Send
    Set objNewMail = Nothing

det er fordi du har ' inde i dit navn
alt efter en ' bliver ignoret, og derfor laver din kode fejl.....
lav den evt om til en apostrof-mellemrum

Du har ikke markeret linie 219..

linie 219 & 220

objNewMail.Send
    Set objNewMail = Nothing

cpufan: Har prøvet at slette ' men samme fejl er der stadig.....

' -> DETTE ER MODTAGERENS E-MAIL ADRESSE.
    objNewMail.To = strRecipient_Email

    ' -> DETTE ER MODTAGERENS E-MAIL ADRESSE.
    ' -> BEMÆRK: DETTE SENDER EN KOPI AF ORDREN TIL AFSENDEREN FRA FORMULAREN.
    objNewMail.To = strOrderForm_Email

Til "kopi" bruges CC (Carbon Copy) eller BCC (Blind Carbon Copy), i stedet for TO. Hvis man bruger BCC, vil adressen (det er er angiveti BCC) ikke kunne ses..

hmm..

    ' -> DETTE ANGIVER E-MAIL'ENS TYPE: 0 = MIME, 1 = Text.
    objNewMail.MailFormat = 1

Ifølge http://www.opfinderen.dk/sites/14/ er MIME = 1 og Text = 2..

/theSurfer

hmmmm, jeg har lavet de ændringer du har foreslået, men samme fejl opstår.....

link: http://www.breton.dk/e-shop/default.htm

Er det evt. fordi der mangler dette: objMail.Host = "mailout.b-one.net"?

hmmmm