Send mail med ASPmail

Det er nok fordi du bruger strBody flere gange, prøv med:

strBody = "Firma:" & vbcrlf & firma & vbcrlf &_
"Navn: & vbcrlf & vbcrlf & navn & vbcrlf &_

... og så videre.

/Goose

<%
    Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
   
    firma            = Request.Form ("firma")
    kontaktperson        = Request.Form ("kontaktperson")
    funktion        = Request.Form ("funktion")
    adresse            = Request.Form ("adresse")
    postnr            = Request.Form ("postnr")
    by            = Request.Form ("by")
    land            = Request.Form ("land")
    telefon            = Request.Form ("telefon")
    mobil            = Request.Form ("mobil")
    emaile            = Request.Form ("emaile")
    indretning        = Request.Form ("indretning")
    moebler            = Request.Form ("moebler")
    tilbehoer        = Request.Form ("tilbehoer")
    belysning        = Request.Form ("belysning")
    gulvbelaegning        = Request.Form ("gulvbelaegning")
    gardiner        = Request.Form ("gardiner")
   
    Mailer.CharSet            = 2
    Mailer.FromName            = Request.Form ("kontaktperson")
    Mailer.FromAddress        = Request.Form ("emaile")
    Mailer.RemoteHost        = "mail.democritus.dk"
    Mailer.AddRecipient        "Unizone", "anders@democritus.dk"
    Mailer.Subject            = "Tilbagemelding fra unizone.dk"
   
    strBody = "Firma" & VbCrlf
    strBody = strBody & firma & VbCrlf & VbCrlf
   
    strBody = strBody & "Kontaktperson" & VbCrlf
    strBody = strBody & kontaktperson & VbCrlf & VbCrlf
   
    strBody = strBody & "Funktion" & VbCrlf
    strBody = strBody & funktion & VbCrlf & VbCrlf
   
    strBody = strBody & "Adresse" & VbCrlf
    strBody = strBody & adresse & VbCrlf & VbCrlf
   
    strBody = strBody & "Postnr" & VbCrlf
    strBody = strBody & postnr & VbCrlf & VbCrlf
   
    strBody = strBody & "By" & VbCrlf
    strBody = strBody & by & VbCrlf & VbCrlf
   
    strBody = strBody & "Land" & VbCrlf
    strBody = strBody & land & VbCrlf & VbCrlf
   
    strBody = strBody & "Telefon" & VbCrlf
    strBody = strBody & telefon & VbCrlf & VbCrlf
   
    strBody = strBody & "Mobil" & VbCrlf
    strBody = strBody & mobil & VbCrlf & VbCrlf
   
    strBody = strBody & "Email" & VbCrlf
    strBody = strBody & emaile & VbCrlf & VbCrlf & VbCrlf
   
    strBody = strBody & "Indretning" & VbCrlf
    strBody = strBody & indretning & VbCrlf & VbCrlf
   
    strBody = strBody & "Møbler" & VbCrlf
    strBody = strBody & moebler & VbCrlf & VbCrlf
   
    strBody = strBody & "Tilbehør" & VbCrlf
    strBody = strBody & tilbehoer & VbCrlf & VbCrlf
   
    strBody = strBody & "Belysning" & VbCrlf
    strBody = strBody & belysning & VbCrlf & VbCrlf
   
    strBody = strBody & "Gulvbelægning" & VbCrlf
    strBody = strBody & gulvbelaegning & VbCrlf & VbCrlf
   
    strBody = strBody & "Gardiner" & VbCrlf
    strBody = strBody & gardiner & VbCrlf & VbCrlf
       
    Mailer.BodyText            = strBody
   
    if Mailer.SendMail then
      Response.redirect("tak.htm")
    else
      Response.Write "Mail send failure. Error was " & Mailer.Response     
    end if
%>

//>Rune

Ups, skulle have været et svar :o)

/Goose

Det er fordi du definere strBody med nye data'er hver gang...

Hvis du siger
strBody = strBody & "hej"
bliver hej tilføjet til variablen!
hvis du siger
strBody = "hej"
bliver strBody bare = med hej og intet andent

//>Rune

I er for seje!! tak skal i have!

Anytime ;-)
Thx 4 Poinz

//>Rune