Email indhold af en FORM med ASPMAIL

Jeg glemte at skrive at der bliver sat en tabel ind i formen med data fra en database som også skal sendes som \"BODY\"

Prøv det her

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
</head>

<body bgcolor=\"#FFFFFF\">
<p>&nbsp; </p>
<form name=\"form1\" method=\"post\" action=\"\">
  <p><%
if Request.Form(\"testfield\") <> \"\" then
Dim Emfrom
Dim Emsub
Dim Emto
Dim Emcc
Dim Embcc
Dim Embody
Dim Emattach

Emfrom = \"kjessen@nordicdata.dk\"
Emsub = \"\"
Emto = \"kj@nordicdata.dk\"
Emcc = \"\"
Embcc = \"\"
Embody = Request.form(\"textfield\")
Emattach = \"\"

Dim ObjCdo
Set ObjCdo = Server.CreateObject(\"CDONTS.NewMail\")
ObjCdo.From = Emfrom
ObjCdo.Subject = Emsub
ObjCdo.To = Emto
ObjCdo.cc = Emcc
ObjCdo.bcc = Embcc
ObjCdo.body = Embody
\' ObjCDO.AttachFile(Emattach)

ObjCdo.send

Set ObjCdo = nothing
end if
%>
    <input type=\"text\" name=\"textfield\">
    <input type=\"submit\" name=\"Submit\" value=\"Submit\">
  </p>
  <p>&nbsp; </p>
</form>
</body>
</html>

Så skulle teksten fra tekstfeltet blive sendt.

Hvad var det så med det html? Det skal vel flettes sammen.

Jeg ville fx. gemme dette i databasen:

<html>
<body>
<table><tr><td>
§tekst§
</td></tr></table>
</body>
</html>

og så hente det ud, lad os kalde det BodyHTML.
Derefter:
Embody = Replace(BodyHTML,\"§Tekst§\",Request.form(\"textfield\"))

Hej lars danielsen  (og ikke IDA)
Jeg har selv fundet en del af løsningen på mit problem, men kan ikke finde ud af at formatere den E-mail der bliver sendt fra siden.

SE KODE :

<html>
<head>
<title>Submit</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
</head>
<body bgcolor=\"#FFFFFF\">
<form name=\"form1\" method=\"post\" action=\"\">
  <p><% For UCCart1__i=0 To UCCart1.GetItemCount()-1 %>
    <input name=\"ProductID\" value=\"<%=(UCCart1.GetColumnValue(\"ProductID\",UCCart1__i))%>\">
    <input name=\"Name\" value=\"<%=(UCCart1.GetColumnValue(\"Name\",UCCart1__i))%>\">
    <input name=\"Price\" value=\"<%=(UCCart1.GetColumnValue(\"Price\",UCCart1__i))%>\">
  </p>
  <p> <% Next \'UCCart1__i %>
  </p>
  <p><%
Dim objCDO

\' Her skabes en reference til CDONTS.NewMail objektet
Set objCDO = Server.CreateObject(\"CDONTS.NewMail\")

\' Her sættes egenskaber og metoder
objCDO.From = \"kjessen@nordicdata.dk\"
objCDO.To = \"kj@nordicdata.dk\"
objCDO.Subject = \"Kære modtager\"
objCDO.Body = Request.Form(\"ProductID\") & Request.Form(\"Name\") & Request.Form(\"Price\")
objCDO.BodyFormat = 0
objCDO.MailFormat = 0
objCDO.Send

\' Husk at fjerne dit objekt fra hukomelsen
Set objCDO = Nothing
%> </p>
  <p>
    <input type=\"submit\" name=\"Submit\" value=\"Submit\">
  </p>
</form>
</body>
</html>

PROBLEMET er at min Email ser sådan her ud :

150-30144-000, 150-40120-0003½, 3½kr 99,00, kr 689,00.
og skulle se nogenlunde sådan her ud :

150-30144-000    3½          kr 99,00
150-40120-000    3½          kr 689,00

evt. mere flere linier endnu....

HVORDAN GØR JEG, håber du kan hjælpe.
Der kunne godt være flere points på højkant.

Denne side sender en mail hver gang den indlæses. I mit forslag er der en if, der registrerer om der er skrevet noget i feltet textfield (Der var lige en lille slåfejl, jeg skrev testfield).

Der må helst ikke være flere felter i formen der har samme name, så får du kun det sidste hvis du bruger Request.Form(\"Navn\") Fx.

Giv dem navne so m Navn1, Navn2.

Jeg vil gerne hjælpe, men har dårlig tid i dag. Håber det kan vente, evt til i aften??

Lukkes ,