Hej, jag skulle behöva hjälp med att få nedanstående kod som jag gjort ändrad till aspsmartmail från jmail... Jag har försökt men nånstans så spricker det, är det någon som har koll? det som funkar är att det blir skickat och kommer fram, men det som bara kommer med i mailet är avsändarens epostadress samt namn och subject, det är det som skrivs ut men allt det andra finns inte med???
-------------------------------------------------------
<!--#include file="installningar.asp"-->
<%
Response.Buffer = true
namn = Request.Form("namn")
adress = Request.Form("adress")
postnr1 = Request.Form("postnr1")
postnr2 = Request.Form("postnr2")
padress = Request.Form("postadress")
tfn1 = Request.Form("tfn1")
tfn2 = Request.Form("tfn2")
epost = Request.Form("epost")
ovrigt = Request.Form("ovrigt")
info = Array(namn,adress,postnr1,postnr2,padress,tfn1,tfn2,epost,ovrigt)
info2 = ""
For i = 0 to 8
info2 = info2 & info(i)
IF Not i = 8 then
info2 = info2 & "|"
END IF
Next
For i = 0 to 7
IF NOT len(info(i)) <> 0 then
Session("webshopfel") = "Du glömde att fylla i något fält"
session("falt") = info2
Response.Redirect Request.ServerVariables("HTTP_REFERER")
END IF
Next
IF len(info(2)) > 5 then
Session("webshopfel") = "Felaktigt postnummer"
Session("falt") = info2
Response.Redirect Request.ServerVariables("HTTP_REFERER")
END IF
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("../../sys/webshop.mdb")
Session.Lcid = 1053
varde = Request.Cookies(""& Session.SessionID &"")
hamta = Split(varde,"&")
ReDim MyArray(4,Ubound(hamta))
for x = 0 to ubound(hamta)
hamta2 = Split(hamta(x),"=")
IF Len(hamta2(0)) > 0 AND len(hamta2(1)) > 0 then
SQL = "SELECT * FROM produkter WHERE id =" & int(hamta2(0))
Set RecSet = Connect.Execute(SQL)
MyArray(0,x) = hamta2(0)
MyArray(1,x) = hamta2(1)
MyArray(2,x) = RecSet("artnr")
MyArray(3,x) = RecSet("namn")
MyArray(4,x) = RecSet("pris")
RecSet.Close
Set RecSet = nothing
END IF
next
Set mailare = Server.CreateObject("aspSmartMail.SmartMail")
mailare.Server = ""&mailserver&""
mailare.SenderName = ""&namn&""
mailare.SenderAddress = ""&epost&""
mailare.Recipients.Add "minmail@adress.se", "Mottagarens namn"
mailare.Subject = "Beställning"
HTML= "<font face=verdana size=1>"
For i = 0 To Ubound(myArray,2)
IF Len(MyArray(0,i)) > 0 then
HTML= "Art.nr: " & MyArray(2,i) & "<br>"
HTML= "Produkt: " & MyArray(3,i) & "<br>"
HTML= "Antal: " & MyArray(1,i) & "<br>"
HTML= "-------------------------------------------<br>"
IF i = Ubound(myArray,2) then
HTML= " <br>"
END IF
END IF
Next
HTML= "Namn: " & info(0) & "<br>"
HTML= "Adress: " & info(1) & "<br>"
HTML= "Postnr: " & info(2) & info(3) & "<br>"
HTML= "Postadress: " & info(4) & "<br>"
HTML= "Telefonnummer: " & info(5) & "-" & info(6) & "<br>"
HTML= "E-post: " & info(7) & "<br>"
HTML= "Övrigt: " & info(8) & "<br>"
HTML= "Skickat: " & Now() & "<br>"
HTML= "</font>"
mailare.body = ""&html&""
mailare.Priority = 2
mailare.ContentType = "text/html"
mailare.Charset = "iso-8859-1"
mailare.SendMail
Set mailare = nothing
For Each nyckel in Request.Cookies(Session.SessionID)
Response.Cookies(Session.SessionID)(nyckel) = ""
Next
sida = Request.ServerVariables("HTTP_REFERER") & "&skickad=ja"
Response.Redirect sida
%>