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, alltså innehållet kommer inte med??? Det beror nog på att du byter ut värdet i HTML hela tiden Tack du är en klippa...nu fick jag med allt, förutom art.nr, produkt och antal...Där blir det fel på ngtvis Hej,aspsmartmail
-------------------------------------------------------
<!--#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("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
%>Sv: aspsmartmail
testa:
HTML = HTML & "Telefonnummer: " & info(5) & "-" & info(6) & "<br>"
istället för:
HTML= "Telefonnummer: " & info(5) & "-" & info(6) & "<br>"Sv: aspsmartmail
HTML= HTML & "<font face=verdana size=1>"
For i = 0 To Ubound(myArray,2)
IF Len(MyArray(0,i)) > 0 then
HTML= HTML & "Art.nr: " & MyArray(2,i) & "<br>"
HTML= HTML &"Produkt: " & MyArray(3,i) & "<br>"
HTML= HTML &"Antal: " & MyArray(1,i) & "<br>"
HTML= HTML & "-------------------------------------------<br>"
IF i = Ubound(myArray,2) then
HTML= HTML &" <br>"
END IF
END IF
Next
HTML= HTML &"Namn: " & info(0) & "<br>"
HTML= HTML & "Adress: " & info(1) & "<br>"
HTML= HTML &"Postnr: " & info(2) & info(3) & "<br>"
HTML= HTML &"Postadress: " & info(4) & "<br>"
HTML= HTML &"Telefonnummer: " & info(5) & "-" & info(6) & "<br>"
HTML= HTML & "E-post: " & info(7) & "<br>"
HTML= HTML &"Övrigt: " & info(8) & "<br>"
HTML= HTML &"Skickat: " & Now() & "<br>"
HTML= HTML &"</font>" Sv: aspsmartmail
Har du kollat så att den verkligen går in i loopen?
En annan sak, om du använder asp.net skulle jag använda stringbuilder istället för att konkaternera strängar på detta sätt, det blir lite segt om det är sida som besöks ofta.
Mvh