En mindre fejl
Når jeg trykker send så skriver den bare http://www.domain.dk/formmail_bestilling_af_boeger.asp?mode=SendNogen der kan se fejlen? SMTP serveren, email og Navnet m.v. er rettet korrekt til i den rigtige version, men der må være en fejl et sted?
<%
Response.Buffer = True
mode = Request.Querystring("mode")
%>
<% if mode = "" then %>
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Bestilling</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<FORM METHOD="POST" class="css" ACTION="formmail_bestilling_af_boeger.asp?mode=Send">
<INPUT TYPE=HIDDEN NAME="action" VALUE="send">
<p><strong>Hvilke bøger ønsker De at bestille?</strong></p>
<dl>
<dd>
<!--webbot bot="Validation" s-display-name="-" b-value-required="TRUE"
b-disallow-first-item="TRUE" --><select size="1" name="Antal_VM_bog_bind_I">
<option selected>-</option>
<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> Bog</dd>
</dl>
<p style="line-height: 100%"><strong>Forsendelsesoplysninger</strong><strong>:</strong></p>
<dl>
<dd>
<table width="433">
<tr>
<td width="166">Fornavn *
<td width="447">
<!--webbot bot="Validation" b-value-required="TRUE" --><input type="text" name="Fornavn" size="46">
</tr>
<tr>
<td width="166">Efternavn *
<td width="447">
<!--webbot bot="Validation" b-value-required="TRUE"
i-maximum-length="256" --><input type="text" size="46" maxlength="256" name="Efternavn">
</tr>
<tr>
<td width="166">Adresse *
<td width="447">
<!--webbot bot="Validation" b-value-required="TRUE"
i-maximum-length="256" --><input type="text" size="46" maxlength="256" name="Adresse">
</tr>
<tr>
<td width="166">Postnr. *
<td width="447">
<!--webbot bot="Validation" b-value-required="TRUE"
i-minimum-length="4" --><input type="text" name="Postnr" size="9"> By *
<!--webbot bot="Validation" b-value-required="TRUE"
i-maximum-length="256" --><input type="text" size="30" maxlength="256" name="By">
</tr>
<tr>
<td width="166">Telefon
<td width="447"><input type="text" size="46" name="Telefon">
</tr>
<tr>
<td width="166">E-mail
<td width="447"><input type="text" size="46" name="Kunde_mail">
</tr>
</table>
</dd>
</dl>
<p><font size="3"><i>- felter markeret med * SKAL indtastes)</i></font></p>
<p style="line-height: 100%"><strong>Betalingsmetode:</strong></p>
<p style="line-height: 100%"><input type="radio" value="Indbetalingskort" checked name="R1">Indbetaling
forud gennem fremsendt indbetalingskort (leveres PORTOFRIT)</p>
<p style="line-height: 100%"><input type="radio" name="R1" value="Efterkrav_57_kr">Fremsendelse
pr. efterkrav (bogpris + porto kr. 57)</p>
<p><strong>Eventuelle yderligere kommentarer:</strong></p>
<dl>
<dd><textarea name="Ekstra_kommentarer" rows="5" cols="42"></textarea></dd>
</dl>
<p> </p>
<p><input type="submit" value="Afsend bestilling" name="Send"> <input type="reset" value="Ryd formular" name="Ryd bestilling"></p>
</form>
<p><font color="#000000" size="3">- der skal normalt påregnes en
ekspeditionstid på ca. en uge fra afgivelse af bestilling til modtagelse af varen.
Ved forudbetaling pr. indbetalingskort regnes varen i denne sammenhæng først
for bestilt, når betaling er modtaget.</font></p>
<p><font color="#000000" size="3">- prisen for forsendelse pr. efterkrav gælder
pr. bog ved bestilling af enkelteksemplarer. Ved bestilling af flere bøger
samtidig kan denne stykpris undertiden være lidt lavere.<br>
</font></p>
<p><font color="#000000" size="3"><br>
</font><a href="Forside.htm">Tilbage til forsiden</a></p>
<hr>
<h5>
Senest opdateret:
</body>
</html>
<% end if %>
<% if mode = "Send" then
randomize
strTransactident = (Int(100000 * Rnd))
Antal_VM_bog_bind_I = Request.Form("Antal_VM_bog_bind_I")
Fornavn = Request.Form("Fornavn")
Efternavn = Request.Form("Efternavn")
Adresse = Request.Form("Adresse")
Postnr = Request.Form("Postnr")
By = Request.Form("By")
Telefon = Request.Form("Telefon")
Kunde_mail = Request.Form("Kunde_mail")
R1 = Request.Form("R1")
Ekstra_kommentarer = Request.Form("Ekstra_kommentarer")
Set JMail = Server.CreateObject("JMail.SMTPMail")
if navn<>"" Then
strEmail = Request.Form("email")
JMail.ServerAddress = "SMTP serveren"
JMail.AddRecipient strEmail
JMail.AddRecipient "email adr"
JMail.Sender = "Navnet"
JMail.Subject = "Mail sendt fra hjemmeside"
Body = Body & "Kontakt fra DOMAIN.DK / Bestilling af Bøger"
Body = Body & "" & vbCrLf & vbCrLf
Body = Body & " Antal: = " & Antal_VM_bog_bind_I & "" & vbCrLf
Body = Body & " Fornavn: = " & Fornavn & "" & vbCrLf
Body = Body & " Efternavn: = " & Efternavn & "" & vbCrLf
Body = Body & " Adresse: = " & Adresse & "" & vbCrLf
Body = Body & " Postnr: = " & Postnr & "" & vbCrLf
Body = Body & " By: = " & By & "" & vbCrLf
Body = Body & " Telefon nummer: = " & Telefon & "" & vbCrLf
Body = Body & " Email: = " & Kunde_mail & "" & vbCrLf
Body = Body & " Betalingsmåde: = " & R1 & "" & vbCrLf
Body = Body & " Kommentar: = " & Ekstra_kommentarer & "" & vbCrLf
JMail.Body = Body
JMail.Priority = 1
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Execute
Response.CacheControl = "No-cache"
Response.Redirect ("formmail_bestilling_af_boeger_sendt.asp")
else
end if
End if
%>
