J.mail

Jeg prøver på at lave en check-out kasse til en netbutik, men jeg kan ikke få denne mail til at virke.

I mailen skal der stå navn og adresse osv osv..
og så skal der stå de produkter som kunden har bestilt, problemet er at jeg gerne vil have den til at skifte linie for hvert produkt så det kommer til at stå nogenlunde sådan her:

Du har bestilt:
Varenummer: Beskrivelse: Antal:    Stk. pris: Total:"

1            en ting      3        100      300
2            en dims      2        50      100

<%
Set JMail = Server.CreateObject("JMail.SMTPMail")
Response.Expires = 0

'Her bliver variabler til inputene fra formen defineret
Dim strName, strAddresse, strPostnummer, strBy, strTlf, strEmail


'Resten af dokumentet består én stor IF-ELSE sætning som tjekker om formularen allerede
'er blevet udfyldt, hvis den ikke er viser den formularen, ellers sender scriptet form-mailen
'og skriver en lille response på skærmen til brugeren.
If Request.ServerVariables("CONTENT_LENGTH") <> 0 Then
  ' Følgende linier henter dataen fra form-mailen.
  straid = Trim(Request.Form("aid"))
  strtext = Trim(Request.Form("text"))
  strantal = Trim(Request.Form("antal"))
  stra = Trim(Request.Form("a"))
  strtotal = Trim(Request.Form("total"))
  strid = Trim(Request.Form("id"))
  strfornavn = Trim(Request.Form("fornavn"))
  strefternavn = Trim(Request.Form("efternavn"))
  stradresse = Trim(Request.Form("adresse"))
  strpost = Trim(Request.Form("post"))
  strby = Trim(Request.Form("by"))
  strland = Trim(Request.Form("land"))
  strtlf = Trim(Request.Form("tlf"))
  stremail = Trim(Request.Form("email"))
 
  JMail.ServerAddress = "mail.domæne.dk"
  JMail.sender =  "afsender@domæne.dk"
  JMail.subject = "Bestilling # " & strid
  JMail.AddRecipient "noget@noget.dk"
  JMail.Addrecipient "" & stremail


  JMail.Body = JMail.Body & "Hej " & strfornavn & " " & strefternavn & "," & VbCrLf & VbCrLf
  JMail.Body = JMail.Body & "Vi har modtaget din bestilling."  & VbCrLf
  JMail.Body = JMail.Body & "Du har bestilt følgende: " & VbCrLf
  JMail.Body = JMail.Body & "-------------------------------------------------------------------------------------------------" & VbCrLf
  JMail.Body = JMail.Body & "Varenummer:        Beskrivelse:        Antal:        Stk. pris:        Total:" & VbCrLf
  JMail.Body = JMail.Body & straid & strtext & strantal & strantal & stra & strtotal 
  JMail.Priority = 3

  JMail.Execute
  Response.Redirect "kontakt.asp"
  End If %>