form mail sorter felter
hej har fået lavet følgende script til vidersendelse af en forms indhold på mail.problemet er den smider felterne fra formen ind i mailen hulter til bulter.... så hvis nogen ved hvordan man kan ordne det i rækkefølge vil jeg blive glad !
script :
<%
\' Henter data fra formularer og tilbagemelder hvis der mangler data
error=0
\' Obligatoriske data
If Request(\"mail-server\")<>\"\" then
MailHost = Request(\"mail-server\")
else
Response.write \"The field \'\'mail-server\'\' is missing<br>\"
error=1
end if
if request(\"mail-sendto\")<>\"\" then
MailAddress = Request(\"mail-sendto\")
else
Response.write \"The field \'\'mail-sendto\'\' is missing<br>\"
error=1
end if
if request(\"mail-sender\")<>\"\" then
MailFrom = Request(\"mail-sender\")
else
Response.write \"The field \'\'mail-sender\'\' is missing<br>\"
error=1
end if
\' Slut Obligatoriske data
\' Stop hvis der er fejl
if error=1 then
Response.write \"There were errors - mail not send!\"
Response.end
end if
MailSubject = Request(\"mail-subject\")
MailRedir = Request(\"mail-redir\")
\' Sætter opdeleren imellem feltnavn og indhold
If Request(\"mail-delim\") <> \"\" then
Delim=\" \" & Request(\"mail-delim\") & \" \"
else
Delim=\" : \"
end if
\' Henter alle formulardata fra felter og lægger dem ned i body-delen af brevet
\' sorterer også \"mail-\" felter fra, så de ikke kommer til at stå i body
For Each FormField In Request.Form
If instr(formfield,\"mail-\")=0 then
MailText=MailText & FormField & Delim & Request.Form(FormField) & vbCrLf
end if
Next
\' Slut indhentning af data
\' Opretter mailobjekt - i dette tilfælde JMail
Set Mail = Server.CreateObject(\"JMail.SMTPMail\")
Mail.ServerAddress = MailHost
Mail.Subject = MailSubject
Mail.AddRecipient MailAddress
Mail.Sender = MailFrom
Mail.Body = MailText
On Error Resume Next
\' Sender mail
Mail.Execute
\' Fejltjek
If Err <> 0 Then
Response.write \"Error in mail delivery!<br>\"
Response.write \"Error:\" & Err.Description
else
\' Hvis der er redirect på redirectes der (duh!), ellers skrives der bare at mailen er afleveret
If MailRedir <> \"\" then
Response.redirect MailRedir
else
Response.write \"Mail delivered!\"
Response.end
end if
end if
%>
