Submitknap virker ikke i Netscape
Hvorfor subjekt???Koden:
<!-- #include file=\"connection.inc\" -->
<%
if Request.QueryString (\"id\") <> \"\" then
Set Conn = Server.CreateObject(\"ADODB.Connection\")
SQL = \"SELECT * FROM tilbud where ( tilbudid = \" & Request.QueryString(\"id\") & \")\"
Conn.Open Connection
Set rs = Conn.Execute(SQL)
produktnavn = rs(\"produktnavn\")
pris = rs(\"pris\")
end if
%>
<html>
<head>
<title>Bestil Varen!</title>
<style type=\"text/css\">
<!--
.brod { font-family: FranklinGothic, Verdana, Arial, Helvetica, sans-serif; font-size: 10pt; line-height: 13pt; font-weight: bold; color: #000000}
.indl { font-family: FranklinGothic, Verdana, Arial, Helvetica, sans-serif; font-size: 10pt; line-height: 13pt; font-weight: bold; color: #000000 }
.disse { font-family: FranklinGothic, Verdana, Arial, Helvetica, sans-serif; font-size: 10pt; line-height: 13pt; color: #000000 }
-->
</style>
</head>
<body bgcolor=\"#FFFFFF\" leftmargin=\"0\" topmargin=\"0\" marginwidth=\"0\" marginheight=\"0\">
<p align=\"center\"> </p>
<div align=\"center\">
<table width=\"470\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" align=\"center\">
<tr>
<td valign=\"top\" rowspan=\"2\">
<p class=\"indl\"><img src=\"gifs/transp.gif\" width=\"10\" height=\"50\"></p>
</td>
<td valign=\"top\" rowspan=\"2\">
<p class=\"indl\"><img src=\"gifs/kupon.gif\" width=\"160\" height=\"200\"></p>
</td>
<td valign=\"top\" rowspan=\"2\">
<p class=\"indl\"> </p>
<p class=\"indl\">
<form method=\"post\" action=\"send.asp\" name=orderform>
<span class=\"indl\"><b>Tak for at du vil reservere din vare. <br>
Udfyld og indsend reservationen – så sætter vi varen
til side til dig.<br><br></b>
<% if Request.QueryString (\"error\") <> \"\" then Response.Write \"<br><br><font color=red>\" & Request.QueryString (\"error\") & \"</font>\" end if %>
</span></p>
<input type=hidden name=pris value=\"<% if Request.QueryString (\"pris\") <> \"\" then Response.Write Request.QueryString (\"pris\") else Response.Write pris end if %>\">
<input type=hidden name=id value=\"<% if Request.QueryString (\"id\") <> \"\" then Response.Write Request.QueryString (\"id\") end if %>\">
<table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" align=\"left\">
<tr>
<td class=\"brod\"><b>Vare:</b></td>
<td>
<select name=\"produktnavn\">
<option selected><% if Request.querystring(\"produktnavn\") <> \"\" then Response.write Request.querystring(\"produktnavn\") else Response.write produktnavn end if %></option>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
SQL = \"SELECT tilbudid, produktnavn FROM tilbud where ( tilbudid <> \" & Request.QueryString (\"id\") & \") AND (publiceringsdato <= now() AND slutdato >= now())\"
Conn.Open Connection
Set rs = Conn.Execute(SQL)
If Not (rs.BOF Or rs.EOF) Then
Do While Not rs.EOF
Response.Write \"<option>\" & rs(\"produktnavn\") & \"</option>\"
rs.MoveNext
Loop
Else
Response.Write \"<p>Der er ingen tilbud for øjeblikket!</p>\"
End If
Conn.Close
Set Conn = Nothing
%>
</select> </td>
</tr>
<tr>
<td class=\"brod\"><b>Navn:</b></td>
<td>
<input type=\"text\" name=\"Navn\" size=\"30\" value=\"<% if Request.QueryString(\"navn\") <> \"\" then Response.Write Request.QueryString(\"navn\") end if %>\">
<span class=\"disse\"><i>*</i></span> </td>
</tr>
<tr>
<td class=\"brod\"><b>Adresse:</b></td>
<td>
<input type=\"text\" name=\"Adresse\" size=\"30\" value=\"<% if Request.QueryString(\"adresse\") <> \"\" then Response.Write Request.QueryString(\"adresse\") end if %>\">
</td>
</tr>
<tr>
<td class=\"brod\"><b>Postnr.:</b></td>
<td>
<input type=\"text\" name=\"Postnummer\" size=\"30\" value=\"<% if Request.QueryString(\"postnummer\") <> \"\" then Response.Write Request.QueryString(\"postnummer\") end if %>\">
</td>
</tr>
<tr>
<td class=\"brod\"><b>By:</b></td>
<td>
<input type=\"text\" name=\"By\" size=\"30\" value=\"<% if Request.QueryString(\"by\") <> \"\" then Response.Write Request.QueryString(\"by\") end if %>\">
</td>
</tr>
<tr>
<td class=\"brod\"><b>E-mail:</b></td>
<td>
<input type=\"text\" name=\"email\" size=\"30\" value=\"<% if Request.QueryString(\"email\") <> \"\" then Response.Write Request.QueryString(\"email\") end if %>\">
<span class=\"disse\"><i>*</i></span> </td>
</tr>
<tr>
<td class=\"brod\"><b>Afdeling:</b></td>
<td>
<select name=\"Afdeling\">
<option selected><% if Request.querystring(\"afdeling\") <> \"\" then Response.write Request.querystring(\"afdeling\") else Response.write \"Her vil jeg hente min vare...\" end if %></option>
<option>Gentofte</option>
<option>Taastrup</option>
<option>Næstved</option>
<option>Odense</option>
<option>Randers</option>
<option>Ålborg</option>
<option>Aarhus</option>
<option>Ebbe</option>
<option>Casper</option>
<option>Kim</option>
</select>
<i><span class=\"disse\">*</span></i></td>
</tr>
<tr>
<td class=\"brod\"><b></b></td>
<td>
<p>
<input type=\"submit\" name=\"Submit\" value=\" Send \">
</p>
</td>
</tr>
</table>
</td>
<td valign=\"top\" rowspan=\"2\"><img src=\"gifs/transp.gif\" width=\"10\" height=\"50\"></td>
</tr>
<tr> </tr>
<tr>
<td valign=\"top\"> </td>
<td valign=\"top\"> </td>
<td valign=\"top\">
<p> </p>
<p><i class=\"disse\">*Disse felter skal udfyldes!</i></p>
</form>
</td>
<td valign=\"top\"> </td>
</tr>
</table>
</div>
</body>
</html>
