>>>zeptic
Det er åbenbart ikke nødvendigt at ændre (\",00\") til \",00\". da det virker fint nu!
>>>alle
Nogle gange når jeg har \"glemt\" at bruge >vbcrlf< så virker siden bare ikke. Og nogle gange vil den også gerne have >vbcrlf _< og jeg har ingen steder kunne finde noget på tryk der forklare hvad i hulen helv.... det skal bruges til:-)
Jeg bruger det IKKE til at hive i data fra en DB, så langt er jeg endnu ikke kommet. Det er bare en ret simpel mailform som jeg nu har brugt en uge på at få til at køre som den skal. Jeg har nederst vedlagt alt koden fra både
http://freestyle.dk/mailformtest/index.asp og
http://freestyle.dk/mailformtest/send.asp hvis det kan bruges til noget *S*
PS: Hvor kan man få et fornuftigt ASP kursus som ikke starter med: Dette er en cmoputer?
//Beach
Index.asp:
<html><!-- #BeginTemplate \"/Templates/kabler.dwt\" -->
<head>
<!-- #BeginEditable \"doctitle\" -->
<title>Untitled Document</title>
<!-- #EndEditable -->
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
<link rel=\"stylesheet\" href=\"../kabler/deko_null.css\" type=\"text/css\">
</head>
<!-- #BeginEditable \"scriprs\" --><!-- #EndEditable -->
<body scroll=\"no\" text=\"#000000\" bgcolor=\"#3399CC\" link=\"#000000\" vlink=\"#000000\" alink=\"#000000\">
<table width=\"750\" border=\"5\" cellspacing=\"0\" cellpadding=\"0\" align=\"center\" height=\"400\" bordercolor=\"#000000\">
<tr>
<td background=\"../kabler/images/k2_bg.jpg\" valign=\"middle\" align=\"center\">
<table width=\"700\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" height=\"350\">
<tr>
<td valign=\"top\">
<div align=\"center\">
<p><a href=\"../kabler/index.htm\"><img src=\"../kabler/images/logo_bwd.gif\" width=\"700\" height=\"50\" border=\"0\"></a></p>
<!-- #BeginEditable \"text\" --> <br><form method=\"POST\" action=\"send.asp\" onsubmit=\"return validate(this);\" name=\"fcustomer\">
<table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" align=\"left\" width=\"700\">
<tr valign=\"top\">
<td width=\"80\">
<p><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">Navn:</font></p>
</td>
<td width=\"240\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">
<input name=navn size=\"30\" value=\"<%= Session(\"navn\") %>\">
</font></td>
<td width=\"100\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">E-mail:</font></td>
<td><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">
<input name=email size=\"30\" value=\"<%= Session(\"email\") %>\">
</font></td>
</tr>
<tr valign=\"top\">
<td width=\"80\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">Adresse:</font></td>
<td width=\"240\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">
<input name=adresse size=\"30\" value=\"<%= Session(\"adresse\") %>\">
</font></td>
<td width=\"100\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">Nr.
og evt. sal:</font></td>
<td><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">
<input name=nummermm size=\"30\" value=\"<%= Session(\"nummermm\") %>\">
</font></td>
</tr>
<tr valign=\"top\">
<td width=\"80\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">Postnummer:</font></td>
<td width=\"240\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">
<input name=postnummer size=\"30\" maxlength=\"4\" value=\"<%= Session(\"postnummer\") %>\">
</font></td>
<td width=\"100\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">By:</font></td>
<td><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">
<input name=by size=\"30\" value=\"<%= Session(\"by\") %>\">
</font></td>
</tr>
<tr valign=\"top\">
<td colspan=\"4\">
<hr>
</td>
</tr>
<tr valign=\"top\">
<td colspan=\"2\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">Ønsker
at bestille følgende:</font></td>
<td width=\"100\"> <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">
<select name=\"antal\" size=\"1\">
<option value=\"1\">1</option>
<option value=\"2\">2</option>
<option value=\"3\">3</option>
<option value=\"4\">4</option>
<option value=\"5\">5</option>
<option value=\"6\">6</option>
<option value=\"7\">7</option>
<option value=\"8\">8</option>
<option value=\"9\">9</option>
<option value=\"10\">10</option>
</select>
stk.</font></td>
<td>
<p><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">01/
UTP netværkskabel - krydsede 1 meter<br>
Til kroner 31,00 pr. kabel inkl. porto <br>
<img src=\"tom_1X1p.gif\" width=\"1\" height=\"10\"></font></p>
</td>
</tr>
<tr valign=\"top\">
<td colspan=\"2\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\"></font><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">Jeg
ønsker at betale på følgende måde:</font></td>
<td width=\"100\"> <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">
<select name=\"betaling\" size=\"1\">
<option value=\"forudbetaling\">Forudbetaling</option>
<option value=\"opkr\">Opkrævning</option>
</select>
</font></td>
<td>
<div align=\"right\"> <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">
<br>
<input type=\"submit\" value=\" Send \" name=\"submit\">
<input type=\"Reset\" value=\" Reset \" name=\"Reset\">
</font></div>
</td>
</tr>
<tr valign=\"top\">
<td colspan=\"4\">
<div align=\"left\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\"><br>
Forudbetaling: Varen sendes straks ved modtagelse af betaling,
med Post Danmark.<br>
Opkrævning: Varen sendes samme dag med Post Danmark
som brev. Pris +25,00</font></div>
</td>
</tr>
</table>
<!-- #EndEditable --></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
<!-- #EndTemplate --></html>
>>>>>>>>>>>>>>>>>>
send.asp
<html>
<!-- #BeginTemplate \"/Templates/kabler.dwt\" -->
<head>
<!-- #BeginEditable \"doctitle\" -->
<title>Send mail til Beach Webdesign</title>
<!-- #EndEditable -->
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
<link rel=\"stylesheet\" href=\"../kabler/deko_null.css\" type=\"text/css\">
</head>
<!-- #BeginEditable \"scriprs\" --><!-- #EndEditable -->
<body scroll=\"no\" text=\"#000000\" bgcolor=\"#3399CC\" link=\"#000000\" vlink=\"#000000\" alink=\"#000000\">
<table width=\"750\" border=\"5\" cellspacing=\"0\" cellpadding=\"0\" align=\"center\" height=\"400\" bordercolor=\"#000000\">
<tr>
<td background=\"../kabler/images/k2_bg.jpg\" valign=\"middle\" align=\"center\">
<table width=\"700\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" height=\"350\">
<tr>
<td valign=\"top\">
<div align=\"center\">
<p><a href=\"../kabler/index.htm\"><img src=\"../kabler/images/logo_bwd.gif\" width=\"700\" height=\"50\" border=\"0\"></a></p>
<!-- #BeginEditable \"text\" -->
<div align=\"left\">
<font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\">
<%
Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ServerAddress = \"websmtp.freestyle.dk\"
Name = Request.Form(\"navn\")
Senderemail = Request.Form(\"email\")
Subject = \"Emnet er: \" & Request.Form(\"betaling\")
kommentar = Request.Form(\"betaling\")
JMail.Sender = Senderemail
JMail.Subject = betaling
JMail.AddRecipient \"beach@pc.dk\"
JMail.Body = \"Navn : \" & Request.Form(\"navn\") & vbcrlf _
& \"Adresse: \" & Request.Form(\"adresse\") & vbcrlf _
& \"nummer og sal: \" & Request.Form(\"nummermm\") & vbcrlf _
& \"Postnummer: \" & Request.Form(\"postnummer\") & vbcrlf _
& \"By: \" & Request.Form(\"by\") & vbcrlf _
& \"e-mail: \" & Request.Form(\"email\") & vbcrlf & vbcrlf _
& \"Betaling: \" & Request.Form(\"betaling\")
JMail.Priority = 2
JMail.AddHeader \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")
JMail.Execute
Response.Write \"Navn : \" & Request.Form(\"navn\") & vbcrlf _
& \"<br>Adresse: \" & Request.Form(\"adresse\") & vbcrlf _
& \"<br>nummer og sal: \" & Request.Form(\"nummermm\") & vbcrlf _
& \"<br>Postnummer: \" & Request.Form(\"postnummer\") & vbcrlf _
& \" By: \" & Request.Form(\"by\") & vbcrlf _
& \"<br>e-mail: \" & Request.Form(\"email\") & vbcrlf _
& \"<br><br>Antal ønsket kabler: 01/ UTP netværkskabel - krydsede 1 meter til kroner 31,00 pr. kabel: \" & Request.Form(\"antal\") & (\" stk.\") & vbcrlf _
& \"<br>Betaling: \" & Request.Form(\"betaling\")
%>
<br>
<%
betaling = Request.Form(\"betaling\")
If betaling = \"forudbetaling\" Then
Response.Write (\"Forudbetaling skal ske til Unibank Reg: 0136 Konto: 8365601373\") & vbcrlf _
& Response.Write (\" Forsendelsen vil blive afsendt straks betalingen er registreret på vores Konti. \") & vbcrlf _
& Response.Write (\" Husk venligst at anføre Deres navn eller E-mail adresse ved indbetaingen. \")
Else
Response.Write (\"Forsendelsen vil ske med postopkrævning. Postopkrævning koster kr. 25,- som der er lagt til totalbeløbet.\")
End If
%>
<br>
<%
antal = Request.Form(\"antal\")
betaling = Request.Form(\"betaling\")
If betaling = \"forudbetaling\" Then
Response.Write (\"<br>Totalbeløbet inkl. porto udgør kr. \" & antal*31 & (\",00\") & vbcrlf )
Response.Write (\"<br>De vil modtage en E-mail med ordrebekraftelse samt en E-mail når betaling er modtaget og pakken er afsendt.\")
Else
Response.Write (\"<br>Totalbeløbet inkl. porto og postopkrævning udgør kr. \" & antal*31+25 & (\",00\") & vbcrlf )
Response.Write (\"<br>De vil modtage en E-mail med ordrebekraftelse samt en E-mail når pakken er afsendt.\")
End If
%>
</font>
</div>
</div>
<!-- #EndEditable --></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
<!-- #EndTemplate -->
</html>
