jmail help
Hejsajeg har et problem som jeg gerne vil have dig til af løse. :)
min betalling.asp side ser sådan her ud:
<html lang="en">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>xxxx Bestillings side.</title>
<style type="text/css">
form, input, fieldset fieldset {
margin: 0px;
padding: 0px;
}
form {
background-color: #999999;
color: black;
border: 2px outset silver;
}
fieldset {
margin-top: 3px;
margin-left: 0px;
margin-bottom: 2px;
margin-right: 0px;
border: 3px groove silver;
font: bold 14px Tahoma, sans-serif;
}
label {
margin-left: 4px;
font: bold 13px Verdana, sans-serif;
}
legend {
display: block;
font: bold 13px Verdana, sans-serif;
border: 1px solid black;
background-color: #C0C0C0;
color: black;
}
.orderform {
width: 100%;
border:none;
overflow:visible;
background-color:#d0d0d0;
}
.submit {
margin: 4px;
padding: 2px;
background-color: #D0D0D0;
color: black;
border: 1px solid black;
font: 12px Tahoma, sans-serif;
}
.boxed {
width="360px" ind i <td>
border: 1px solid black;
}
</style>
<script type="text/javascript">
var keysubmit = false;
function process(index) {
// index svarer til den valgte betalingsform
if (index == 0 || index == 2 || index == 5) // sendes
document.getElementById('adresse').style.display="block";
else // afhentes
document.getElementById('adresse').style.display="none";
//if (index == 0 || index == 1) // Dankort
//document.getElementById('konto').style.visibility='visible';
// else // kontant eller pr aftale
// document.getElementById('konto').style.visibility='hidden';
}
</script>
</head>
<body>
<form method="post" action="SendMail.asp" onkeypress="if (event.keyCode==13) keysubmit=true;" onsubmit="return !keysubmit;">
<fieldset>
<legend>Betalingsformular</legend>
<label>
Vælg betalings form:
<select name="Betalingsform">
<optgroup label="Efter aftale">
<option value="Efter aftale, sendes" >Efter aftale, sendes</option>
<option value="Efter aftale, afhentes hos xxxx" >Efter aftale, afhentes hos xxxx</option>
</optgroup>
<optgroup label="Andet">
<option value="Kontant, afhentes hos xxxx">Kontant, afhentes hos xxxx</option>
<option value="Efterkrav">Efterkrav</option>
</optgroup>
</select>
</label>
<br />
<fieldset> <legend>Information:</legend>
<font size="1">Du vil modtage en mail lige så snart bestillingen er modtaget.<br>
(Så husk af skrive din rigtige email nedeunder).</font><br />
<fieldset id="adresse">
<legend>Adresse</legend>
<table cellspacing="0"cellpadding="0"><tr><td width="360px">
<label> Fornavn:
<input class="boxed" type="text" size="8" name="fornavn" />
</label>
<br />
<label> Efternavn:
<input class="boxed" type="text" size="20" name="efternavn" />
</label>
<br />
<label> Vej:
<input class="boxed" type="text" size="30" name="vej" />
Nr/Dør:
<input class="boxed" type="text" size="3" name="nr" />
</label>
<br />
<label> Postnr:
<input class="boxed" type="text" maxlength="4" size="4" name="postnr" />
By/Distrikt:
<input class="boxed" type="text" size="20" name="by" />
</label>
<br />
<label> Email:
<input class="boxed" type="text" size="20" name="Email" />
</label>
<br />
</td><td>
<textarea cols="50" rows="6" style="margin-left:25px;" name="Besked">Evt. besked ved bestilling (kræver email)</textarea>
</td></tr></table>
</fieldset>
<br />
<fieldset>
<legend>Yderligere informationer</legend>
<textarea rows="10" cols="50" class="orderform" readonly="readonly">
Du har bestilt følgende:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("shop.mdb")
If CLng(Session("CartID")) = 0 then
' hop til en side hvor man kan lægge noget i kurven (og danne en kurv)
Else
SQLStr = "Select articles.name as navn, articles.price as pris, shoppingcartitems.articleamount as antal from articles inner join shoppingcartitems on articles.id = shoppingcartitems.articleid where shoppingcartitems.CartID = " & Session("CartID")
Set kurv = Conn.Execute(SQLStr)
total = 0
Do while not kurv.EOF
response.write(kurv("antal") & "stk.")
response.write(" " & kurv("navn"))
response.write(" á " & kurv("pris"))
response.write(" =" & kurv("pris") * kurv("antal"))
response.write("DK" & vbcrlf)
total = total + (kurv("pris") * kurv("antal"))
Kurv.movenext
Loop
response.write(" Ialt " & total & ".-" & vbcrlf)
session("total") = total
End If
%>
</textarea>
</fieldset>
<input class="submit" type="submit" value="afsend" />
</fieldset>
</form>
<p><a href="http://validator.w3.org/check/referer">
<img src="http://www.w3.org/Icons/valid-xhtml10" alt="Valid XHTML 1.0!" height="31" width="88" /></a>
<a class="right" href="http://jigsaw.w3.org/css-validator/">
<img src="http://jigsaw.w3.org/css-validator/images/vcss" alt="Valid CSS!" height="31" width="88" /></a></p>
</body>
</html>
sendmail.asp
Der skulle lige flyttes et par kommentarer:
<%@LANGUAGE = VBSCRIPT%>
<%
' Der er også rettet lidt i den måde, JMail bliver brugt på.
' Get the form data
senderEmail = "mail@mail.dk"
subject = "Bestilling"
recipient = "andre@privat.tele.dk"
' Create the JMail message Object
set msg = Server.CreateOBject( "JMail.SMTPMail" )
' Set logging to true to ease any potential debugging
' And set silent to true as we wish to handle our errors ourself
'msg.Logging = true
'msg.silent = true
' Enter the sender data
msg.Sender = senderEmail
msg.SenderName = name
' Note that as addRecipient is method and not
' a property, we do not use an equals ( = ) sign
msg.AddRecipient recipient
' The subject of the message
msg.Subject = subject
' And the body
msg.body = msg.body & ".:Betalingsform:." & vbcrlf
msg.body = msg.body & "Betalingsform = " & Request.Form("Betalingsform") & vbcrlf & vbcrlf
msg.body = msg.body & ".:Adresse:." & vbcrlf
msg.body = msg.body & "Fornavn = " & Request.Form("Fornavn") & vbcrlf
msg.body = msg.body & "Efternavn = " & Request.Form("Efternavn") & vbcrlf
msg.body = msg.body & "Vej = " & Request.Form("Vej") & vbcrlf
msg.body = msg.body & "Nr = " & Request.Form("Nr") & vbcrlf
msg.body = msg.body & "Postnr = " & Request.Form("Postnr") & vbcrlf
msg.body = msg.body & "By = " & Request.Form("By") & vbcrlf
msg.body = msg.body & "Email = " & Request.Form("Email") & vbcrlf
msg.body = msg.body & "Besked = " & Request.Form("Besked") & vbcrlf & vbcrlf
'Her kommer det nye
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("shop.mdb")
SQLStr = "Select articles.name as navn, articles.price as pris, shoppingcartitems.articleamount as antal from articles inner join shoppingcartitems on articles.id = shoppingcartitems.articleid where shoppingcartitems.CartID = " & Session("CartID")
Set kurv = Conn.Execute(SQLStr)
total = 0
Do while not kurv.EOF
msg.body = msg.body & "Vare: " & kurv("navn") & vbTab & "antal: " & kurv("antal") & vbTab & "stykpris: " & kurv("pris") & "subtotal: " & kurv("pris") * kurv("antal") & vbcrlf
total = total + (kurv("pris") * kurv("antal"))
Kurv.movenext
Loop
msg.body = msg.body & "Pris i alt = " & total
' Her slutter det nye.
' Now send the message, using the indicated mailserver
msg.ServerAddress = "pop3.mail.dk"
msg.Execute
' And we're done! the message has been sent.
session.abandon
response.redirect "default.asp"
%>
<html>
<body>
</body>
</html>
Min ide er:
Når kunden har skrevet sin egen email på betalling.asp så for han den samme mail som jeg oxe modtager i scripetet lige nu.
så hvis det er noget som du ka lave for mig, så bliver jeg bare mega nice glad.
