Persits ASPEMAIL - Hvordan loope i mail.body
Hvordan skal jeg få den til å ta med innholdet i handlekurven????<%
KID = Request.Form("KID")
KEpost = Request.Form("KEpost")
KNavn = Request.Form("KNavn")
KAdresse = Request.Form("KAdresse")
KPostNr = Request.Form("KPostNr")
KSted = Request.Form("KSted")
KTelefon = Request.Form("KTelefon")
error = ""
On Error Resume Next
' Sjekk om handlekurven er tom...
If Session("totalsum") = 0 Then
error = error & "Du har ikke bestillt noen varer! "
End If
txtDato = Date()
txtDato = Day( txtDato ) & "." & Month( txtDato ) & "." & Year( txtDato )
' SKAL ÅPNE TABELLEN ORDRE.
'connStr = "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../db/butikk.mdb")
connStr = "Data Source=" & Server.Mappath("../db/butikk.mdb")& ";Provider=Microsoft.Jet.OLEDB.4.0;"
Set oConn = CreateObject("adodb.connection")
oConn.Open connStr
' Åpne Recordset
Set oRS=Server.CreateObject("ADODB.Recordset")
oRS.CursorLocation = 2 ' adUseServer
'oRS.CursorType = 0 ' adOpenForwardOnly
oRS.CursorType = 2 ' adOpenDynamic
oRS.LockType = 3 ' adLockOptimistic
SQL = "SELECT * FROM tblOrdre"
oRS.Open SQL, oConn, , , &H0001 ' adCmdText
' Legg til ny ordre
oRS.AddNew
oRS("OKID") = KID
oRS("ODato") = txtDato
oRS("OStatus") = "P"
oRS.Update
'Oppdaterer
'oRS.Resync
' Hente ut ordre id
OID = oRS("OID")
' Lukke ordren
oRS.Close
' SKAL ÅPNE TABELLEN ORDRELINJER.
SQL = "SELECT * FROM tblOrdrelinjer"
oRS.Open SQL, oConn, , , &H0001 ' adCmdText
For i=1 To Session("varer")
oRS.AddNew
oRS("OLOID") = OID
oRS("OLPID") = Session("PID" & i)
oRS("OLKvant") = Session("Antall" & i)
oRS.Update
Next
oRS.Close
'**********************************************************
'Starter å sende mailen
Set Mail = Server.CreateObject("Persits.MailSender")
'SMPT server
Mail.Host = "freeteam.no"
'Epost adressen til kunden
Mail.From = KEpost
'Navnet til bestiller
Mail.FromName = KNavn
'Skal sendes til
Mail.AddAddress "e-handel@freeteam.no"
'Overskrift på mailen
Mail.Subject = "Bestilling via www.freeteam.no"
'Hva som kommer med i mailen
Mail.Body = "--- OPPLYSNINGER OM KUNDE ---" & vbCrlf & vbCrlf &_
KNavn & vbCrlf & KAdresse & vbCrlf & KPostNr &_
" " & KSted & vbCrlf & vbCrlf & KEpost & vbCrlf & vbCrlf &_
KTelefon & vbCrlf & vbCrlf &_
"--- OPPLYSNINGER OM KUNDE SLUTT ---" & vbCrlf & vbCrlf &_
"--- BESTILLING START ---" & vbCrlf & vbCrlf &_
%>
<table border="0" width="550" cellpadding="1" cellspacing="0">
<tr>
<th colspan="4" class="tekst"><b>Varer i handlekurv</b></th>
</tr>
<tr>
<th class="tekst" align="left"><b>Produkt navn</b></th>
<th class="tekst" width="51"><b>Pris</b></th>
<th class="tekst" width="40"><b>Antall</b></th>
<th class="tekst" width="35"><b>Total</b></th>
</tr>
<% For i=1 To Session("varer") %>
<tr class="tekst">
<td class="tekst" align="left">
<% =Session("PNavn" & i) %>
</td>
<td class="tekst" align="center" width="51">
<% =Session("PPris" & i) %>
</td>
<td class="tekst" align="center" width="40">
<% =Session("Antall" & i) %>
</td>
<td class="tekst" align="center" width="35">
<% =Session("PPris" & i) * Session("Antall" & i)%>
</td>
</tr>
<% Next %>
</table>
<%
'Session som summerer varene på total ordre
Session("TotalSum") = 0
For i=1 To Session("varer")
Session("TotalSum") = Session("TotalSum") _
+ Session("PPris" & i) * Session("Antall" & i)
Next
%>
<% =Session("TotalSum"%>
<%
"--- BESTILLING SLUTT---"
Mail.Send
'**********************************************************
If error <> "" Then
Response.Clear
%>
<html>
<body onload="window.alert('En feil skjedde! <% =error %>');
window.history.back();">
</body>
</html>
<%
Response.End
End If
Session.Abandon
Response.Redirect("butikk_takk.asp")
%>
