Det er vel mere optimalt at blive på samme side...?
Nedenstående skulle bare sende mailen, vise en lille besked over formularen og ellers lade brugeren sende en ny anbefaling.
<html>
<head>
<title>Basket-Kort.dk - opkøb og bytte</title>
<META NAME="author" CONTENT="
www.basket-kort.dk"> <META NAME="Description" CONTENT="Danmarks største basketkortmarket med købog bytte for private">
<META NAME="Keywords" CONTENT="brugt, køb, salg, bytte, handel, sælges, købes, handelsplads, søges, tilbydes, byttes">
<META NAME="Robots" CONTENT="ALL">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="style.css" TYPE="text/css">
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!-- ImageReady Slices (Kopi (2) af basket_2.psd) -->
<table id="Tabel_01" width="782" height="968" border="0" cellpadding="0" cellspacing="0">
<tr>
<td colspan="6"> <a href="default.asp"><img src="billeder/main_image.gif" alt="" width="775" height="156" border="0"></a></td>
<td width="10"> <img src="billeder/spacer.gif" width="1" height="156" alt=""></td>
</tr>
<tr>
<td colspan="3"> <a href="default.asp"><img src="billeder/left_menu.gif" alt="" width="245" height="28" border="0" usemap="#Map"></a></td>
<td colspan="2"> <a href="default.asp"><img src="billeder/basket_2_03.gif" alt="" width="87" height="28" border="0" usemap="#Map3"></a></td>
<td valign="top" width="448" height="85" rowspan="2" background="billeder/basket_2_04.gif" style="background-image: url(billeder/basket_2_04.gif"><table width="443" height="77" border="0">
<tr>
<td height="28"><div align="center"><font size="2"><font color="#FFFFFF">
<!<!--#include file="include/top_menu.asp"-->
</font></font></div></td>
</tr>
<tr>
<td> </td>
</tr>
</table></td>
<td> <img src="billeder/spacer.gif" width="1" height="28" alt=""></td>
</tr>
<tr>
<td colspan="2" rowspan="2"> <a href="default.asp"><img src="billeder/sub_image.gif" alt="" width="235" height="84" border="0" usemap="#Map2"></a></td>
<td colspan="2"> <img src="billeder/corner.gif" width="70" height="57" alt=""></td>
<td width="27"> <img src="billeder/basket_2_07.gif" width="27" height="57" alt=""></td>
<td> <img src="billeder/spacer.gif" width="1" height="57" alt=""></td>
</tr>
<tr>
<td colspan="4" rowspan="2"> </td>
<td> <img src="billeder/spacer.gif" width="1" height="27" alt=""></td>
</tr>
<tr>
<td width="231"> <img src="billeder/menu.gif" width="231" height="21" alt=""></td>
<td width="4" rowspan="3"> <img src="billeder/basket_2_10.gif" width="4" height="600" alt=""></td>
<td> <img src="billeder/spacer.gif" width="1" height="21" alt=""></td>
</tr>
<tr valign="top">
<td height="628" background="billeder/basket_2_11.gif">
<!<!--#include file="include/menu.asp"-->
</td>
<td colspan="4">
<%
'~~~~~~~~~~~~~~~~~~~~~ Lavet af (C)Søren Peter Fynboe 2000 ~~~~~~~~~~~~~~~~~~~~~
'~~~~~~~~~~~~~~~~~~~~~ Support på spf@mail1.stofanet.dk/ ICQ UIN #33029955 ~~~~~~~~~~~~~~~~~~~~~
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
' Konfigurér med smtp-server, afsender og tekst
' Brug vbCrLf til linjeskift i indholdet (body)
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'_______________________________________________________________________________________________
navn = request("navn")
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
htmlmessage = "<html><head><title>Anbefaling</title></head>" & _
"<body>Hej!<br>" & _
"Det er " & navn & "<br><br>" & _
"vil vise dig dette her link<br><br>" & _
"<a href=""
http://www.basket-kort.dk/" & request.servervariables("SCRIPT_NAME") & """>" & _
"
http://www.basket-kort.dk/" & request.servervariables("SCRIPT_NAME") & "</a><br>" & _
"Dette er Danmarks største Basket kort website." & _
"</body></html>"
textmessage = "Hej!" & vbCrLf & _
"Det er " & navn & vbCrLf & vbCrLf & _
" Tjek dette her link ud" & vbCrLf & vbCrLf & _
"
http://www.basket-kort.dk/" & request.servervariables("SCRIPT_NAME") & vbCrLf & _
"Dette er Danmarks største Basket kort website." & vbCrLf & vbCrLf
set msg = Server.CreateObject("JMail.Message")
msg.From = "info@basket-kort.dk"
msg.FromName = "Basket-kort.dk Mailrobot"
msg.AddRecipient request("ad")
msg.Subject = "Anbefaling"
msg.HTMLBody = htmlmessage
msg.Body = textmessage
if msg.Send( "smtp.cliche.dk" ) then
response.write "<p>Din anbefaling er nu sendt.</p>"
else
response.write "<p>Der er sket en fejl!</p>"
end if
end if %>
<form action="default.asp" METHOD="POST">
<table cellpadding="2" cellspacing="2" border="1">
<tr>
<td><div align="center">
<center>
<h2>Anbefal Minside</h2>
</center>
</div></td>
</tr>
<tr>
<td><input TYPE="TEXT" onFocus="this.form.ad.select()" value="Modtagerens e-mail?"
NAME="ad" SIZE="17"> </td>
</tr>
<tr>
<td><input TYPE="TEXT" onFocus="this.form.navn.select()" value="Afsenderens navn?"
NAME="navn" SIZE="17"> </td>
</tr>
<tr>
<td><input name="submit" type="submit" value="Send"> </td>
</tr>
</table>
</form>
</td>
<td> <img src="billeder/spacer2.gif" width="1" height="311" alt=""></td>
</tr>
<tr valign="top">
<td height="49"> </td>
<td colspan="4"> <div align="center" class="produkt-antal">
<!<!--#include file="include/bund.asp"-->
</div></td>
<td> <img src="billeder/spacer.gif" width="1" height="49" alt=""></td>
</tr>
<tr>
<td height="2"> <img src="billeder/spacer.gif" width="231" height="1" alt=""></td>
<td> <img src="billeder/spacer.gif" width="4" height="1" alt=""></td>
<td width="10"> <img src="billeder/spacer.gif" width="10" height="1" alt=""></td>
<td width="61"> <img src="billeder/spacer.gif" width="60" height="1" alt=""></td>
<td> <img src="billeder/spacer.gif" width="27" height="1" alt=""></td>
<td> <img src="billeder/spacer.gif" width="443" height="1" alt=""></td>
<td></td>
</tr>
</table>
<!-- End ImageReady Slices -->
<map name="Map">
<area shape="poly" coords="4,22" href="#">
</map>
<map name="Map2">
<area shape="poly" coords="142,54" href="#">
</map>
<map name="Map3">
<area shape="poly" coords="37,25" href="#">
</map>
</body>
</html>
