Problemer med en bestillingsformular
Hejsa,Jeg har problemer med en bestillingsformular.
Har lavet den med Jmail, men den virker ikke...
Hvad kan der være galt?
<!-- #include file="conn.asp" -->
<%
openConn()
strName = Request.Form("name")
strAdress = Request.Form("adress")
strzip = Request.Form("zip")
strTlf = Request.Form("tlf")
strLeveringFra = Request.Form("leveringfra")
strLeveringTil = Request.Form("leveringtil")
strAfhentesFra = Request.Form("afhentesfra")
strAfhentesTil = Request.Form("afhentestil")
%>
<html>
<head>
<style type="text/css">
p, td, th, body {
font-family: Verdana, Tahoma, Arial, Sans-serif;
font-size: 10pt;
color: #000000;
}
p, td, th, body {
font-family: Verdana, Tahoma, Arial, Sans-serif;
font-size: 8pt;
color: #000000;
}
h1 {
font-family: Verdana, Tahoma, Arial, Sans-serif;
font-size: 12pt;
color: #000000;
}
input {
font-family: Verdana, Tahoma, Arial, Sans-serif;
font-size: 9pt;
color: #000000;
border: 1px solid #660000;
}
a {
font-family: Verdana, Tahoma, Arial, Sans-serif;
font-size: 8pt;
color: #000000;
text-decoration: none;
border-bottom: 1px solid #660000;
}
a:hover {
font-family: Verdana, Tahoma, Arial, Sans-serif;
font-size: 8pt;
color: #000000;
text-decoration: none;
border-bottom: 1px dotted #660000;
}
</style>
</head>
<body>
<form method="post" action="oversigt.asp?mode=send">
<h1>Oversigt</h1>
<p><b>Du har bestilt:</b><br>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="50"><i>Antal:</i></td>
<td width="100"><i>Kategori:</i></td>
<td width="250"><i>Produkt:</i></td>
<td width="150"><i>Mål:</i></td>
<td width="150"><i>Ekstra:</i></td>
<td width="75"><i>Stk. Pris:</i></td>
<td width="75"><i>Pris i alt:</i></td>
</tr>
<%
mode = request.querystring("mode")
if mode = "send" then
PrisIalt = 0
MailBody = MailBody & "<h1>Oversigt</h1><p><b>Du har bestilt:</b><br><table border='0' cellpadding='0' cellspacing='0'><tr><td width='50'><i>Antal:</i></td><td width='100'><i>Kategori:</i></td><td width='250'><i>Produkt:</i></td><td width='150'><i>Mål:</i></td><td width='150'><i>Ekstra:</i></td><td width='75'><i>Stk. Pris:</i></td><td width='75'><i>Pris i alt:</i></td></tr>"
strSQL1 = "SELECT vare.id FROM vare"
Set rs1 = connection.Execute(strSQL1)
While NOT rs1.EOF
If Request.Form("antal" & rs1("id")) <> "" Then
strAntal = Request.Form("antal" & rs1("id"))
strSQL2 = "SELECT vare.id, vare.name, vare.size, vare.ekstra, vare.pris, vare.kategori FROM vare WHERE vare.id =" & rs1("id")
Set rs2 = connection.Execute(strSQL2)
While NOT rs2.EOF
strPrisialt = Request.Form("antal" & rs1("id")) * rs2("pris")
PrisIalt = PrisIalt + strPrisialt
strSQL3 = "SELECT kategori.id, kategori.name FROM kategori WHERE kategori.id =" & rs2("kategori")
Set rs3 = connection.Execute(strSQL3)
MailBody = MailBody & "<tr><td>" & strAntal & "</td><td>" & rs3("name") & "</td><td>" & rs2("name") & "</td><td>" & rs2("size") & "</td><td>" & rs2("ekstra") & "</td><td>" & rs2("pris") & "</td><td>" & strprisialt & "</td></tr>"
MailBody = MailBody & "</table>" & Prisialt & "<br><b>Kontaktinformationer</b><br><table border='0' cellpadding='0' cellspacing='0'><tr><td width='100'>Navn:</td><td>" & strName & "</td></tr><tr><td>Adresse:</td><td>" & stradress & "</td></tr><tr><td>Postnr. & by:</td><td>" & strzip & "</td></tr><tr><td>Telefonnr.:</td><td>" & strTlf & "</td></tr><tr><td colspan='2' height='10'></td></tr><tr><td colspan='2' height='10'>Levering</td></tr><tr><td>Fra kl.:</td><td>" & strLeveringfra & "</td></tr><tr><td>Til kl.</td><td>" & strLeveringtil & "</td></tr><tr><td colspan='2' height='10'></td></tr><tr><td>Afhentes:</td></tr><tr><td>Fra kl.</td><td>" & strAfhentesfra & "</td></tr><tr><td>Til kl.</td><td>" & strAfhentestil & "</td></tr></table>"
Session("MailBody") = MailBody
Set jmail = Server.CreateObject("JMail.Message")
jmail.AddRecipient "mail@adresse.dk", "Kundenavn"
jmail.From = "NO_REPLY@danaweb.dk"
jmail.Subject = "Bestilling sendt fra hjemmesiden"
jmail.HTMLBody = MailBody
jmail.Body = "Dit emailprogram kan ikke vise HTML mails, kontakt venligst DanaWeb for yderlige information."
jmail.Send( "post.danaweb.dk" )
%>
<tr>
<td><%= strAntal%></td>
<td><%=rs3("name")%></td>
<td><%=rs2("name")%></td>
<td><%=rs2("size")%></td>
<td><%=rs2("ekstra")%></td>
<td><%=rs2("pris")%></td>
<td><%=strPrisialt%></td>
</tr>
<%
rs2.MoveNext
Wend
End if
rs1.MoveNext
Wend %>
</table></p>
Pris ialt: <%=PrisIalt%><br><br>
<br><b>Kontaktinformationer</b><br>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="100">Navn:</td>
<td><%= strName %></td>
</tr>
<tr>
<td>Adresse:</td>
<td><%= strAdress %></td>
</tr>
<tr>
<td>Postnr. & by:</td>
<td><%= strZip %></td>
</tr>
<tr>
<td>Telefonnr.:</td>
<td><%= strTlf %></td>
</tr>
<tr>
<td height="10" colspan="2"></td>
</tr>
<tr>
<td colspan="2">Levering:</td>
</tr>
<tr>
<td>Fra kl.:</td>
<td><%= strleveringfra %></td>
</tr>
<tr>
<td>Til kl.:</td>
<td><%= strleveringtil %></td>
</tr>
<tr>
<td height="10" colspan="2"></td>
</tr>
<tr>
<td colspan="2">Afhentes:</td>
</tr>
<tr>
<td>Fra kl.:</td>
<td><%= strAfhentesfra %></td>
</tr>
<tr>
<td>Til kl.:</td>
<td><%= strAfhentestil %></td>
</tr>
</table>
<%
'MailBody = MailBody & "</table>" & Prisialt & "<br><b>Kontaktinformationer</b><br><table border='0' cellpadding='0' cellspacing='0'><tr><td width='100'>Navn:</td><td>" & strName & "</td></tr><tr><td>Adresse:</td><td>" & stradress & "</td></tr><tr><td>Postnr. & by:</td><td>" & strzip & "</td></tr><tr><td>Telefonnr.:</td><td>" & strTlf & "</td></tr><tr><td colspan='2' height='10'></td></tr><tr><td colspan='2' height='10'>Levering</td></tr><tr><td>Fra kl.:</td><td>" & strLeveringfra & "</td></tr><tr><td>Til kl.</td><td>" & strLeveringtil & "</td></tr><tr><td colspan='2' height='10'></td></tr><tr><td>Afhentes:</td></tr><tr><td>Fra kl.</td><td>" & strAfhentesfra & "</td></tr><tr><td>Til kl.</td><td>" & strAfhentestil & "</td></tr></table>"
%>
<br>
<i>Kontroller venligst at de indtastede informationer er korrekte.</i><br>
<a href="java script:this.history.go(-1);">Ret i formular</a><input TYPE="button" VALUE="Send E-mail">
</body>
</html>
<%'Session("MailBody") = MailBody
'Set jmail = Server.CreateObject("JMail.Message")
'jmail.AddRecipient "mail@adresse.dk", "Kundenavn"
'jmail.From = "NO_REPLY@danaweb.dk"
'jmail.Subject = "Bestilling sendt fra hjemmesiden"
'jmail.HTMLBody = MailBody
'jmail.Body = "Dit emailprogram kan ikke vise HTML mails, kontakt venligst DanaWeb for yderlige information."
'jmail.Send( "post.danaweb.dk" )
End if %>
</form>
<%
closeConn()
%>
