Udskrivning af ordebekræftelse fra form
HejsaJeg har en dynamisk form hvor en kunde kan indtaste en lang række oplysninger. Disse bliver så sendt pr. mail, men samtidig med det skal der også vises en kvittering til kunden.
Her er koden, der sender bestillingen:
-------------------------------------
<%
'hent felt Array
if Request.Form <> "" then
Redim Preserve ArrUnsorted(-1)
for each Item in Request.Form
if Instr(1, Item, "-") > 1 then
Redim Preserve ArrUnsorted(Ubound(ArrUnsorted)+1)
ArrUnsorted(Ubound(ArrUnsorted)) = Item
end if
next
ArrSorted = sortArray(ArrUnsorted)
end if
' Hent info fra kontaktside:
modtager = request.form("_mailto")
mailserver = request.form("_mailserver")
subject = request.form("_subject")
ok_side = request.form("_succesDoc")
fejl_side = request.form("_errorDoc")
email_fra = "mail@server.dk"
from_name = request.form("Name")
set mailer = Server.createObject("SMTPsvg.Mailer")
'IF Not EmailAddressOK("mail@server.dk") THEN email_fra = "support@proinfo.dk"
'mailer.RemoteHost = mailserver
mailer.RemoteHost = "mail.server.dk"
mailer.FromName = from_name
mailer.FromAddress = email_fra
mailer.AddRecipient "Firmaprodukt", modtager
mailer.Subject = subject
mailer.ContentType = "text/html"
mailer.CharSet = 2
mailer.Organization = "Firmanavn"
mailer.BodyText = "<Html><Head></Head><Body><table>"
mailer.BodyText = "<tr><td align=left colspan=2 bgcolor=#7DC2DE><font size=2 face=Verdana, Arial, Helvetica, sans-serif><b>" & subject & "</b></font></td></tr>"
for i = 0 to Ubound(ArrSorted)
message = message & "<tr><td valign=top width=200 bgcolor=#E5E5E5><font size=1 face=Verdana, Arial, Helvetica, sans-serif><b>" & Split(ArrSorted(i), "-")(1) & "</b></font></td><td width=200 bgcolor=#F8F8F8><font size=1 face=Verdana, Arial, Helvetica, sans-serif>" & Request.Form(ArrSorted(i)) & "</font></td></tr>"
Next
mailer.BodyText = "<tr><td align=right colspan=2 bgcolor=#7DC2DE><font size=1 face=Verdana, Arial, Helvetica, sans-serif>" & date & " : " & time & "</font></td></tr>"
mailer.BodyText = message & "</table></body></html>"
If mailer.SendMail Then
Response.Clear
Response.Redirect(ok_side)
Set mailer = Nothing
Else
Dim ErrString
ErrString = mailer.Response
Set mailer = Nothing
Response.Clear
Response.Redirect(fejl_side)
End If
function sortArray(arrIn)
for n = 0 to Ubound(arrIn)
lastValue = "¤¤¤¤¤"
for i = 0 to Ubound(arrIn)
if not lastValue = "¤¤¤¤¤" then
thisValue = arrIn(i)
if lastValue > thisValue then
arrIn(i) = lastValue
arrIn(i-1) = thisValue
end if
end if
lastValue = arrIn(i)
next
next
sortArray = arrIn
end function
%>
-------------------------------------
Herefter bliver brugeren sendt over til ok.asp, og på denne side vil jeg så gerne have udskrevet de samme oplysninger som bliver sendt på mailen.
Hvad skal der stå i ok.asp for at få vist samme oplsyninger som sendes pr. mail???
