Netscape problem

Halløj

Jeg har dette lille script. Det virker fint i IE. Men i netscaper returneres en \"The parameter is incorrect\" fejl.

Jeg tror det har noget med response.redirect at gøre. Men hvad mener du?

Her er form 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>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
<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\">&nbsp;</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\">&nbsp;</p>
        <p class=\"indl\">

        <form method=\"post\" action=\"send.asp\" name=orderform>
        <b>Tak for at du vil reservere din vare. <br>
          Udfyld og indsend reservationen &#150; s&aring; s&aelig;tter vi varen
          til side til dig.<br>
          </b>
          <% if Request.QueryString (\"error\") <> \"\" then Response.Write \"<br><br><font color=red>\" & Request.QueryString (\"error\") & \"</font>\" end if %>
          </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=\"<%= Request.QueryString (\"id\") %>\">
          <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><span class=\"disse\"><i>*</i></span> </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>Her vil jeg hente min vare...</option>
                  <option>Gentofte</option>
                  <option>Taastrup</option>
                  <option>N&aelig;stved</option>
                  <option>Odense</option>
                  <option>Randers</option>
                  <option>&Aring;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=\"reset\" name=\"Reset\" value=\"  Slet  \">
                  <input type=\"submit\" name=\"Submit\" value=\"  Send  \" onclick=\"document.forms.orderform.submit()\">
                </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\">&nbsp;</td>
      <td valign=\"top\">&nbsp;</td>
      <td valign=\"top\">
        <p>&nbsp;</p>
        <p><i class=\"disse\">*Disse felter skal udfyldes!</i></p>
      </form>
      </td>
      <td valign=\"top\">&nbsp;</td>
    </tr>
  </table>
</div>
</body>
</html>

Og her modtager siden:

  <%
      produktnavn = Request.form(\"produktnavn\")
      navn = Request.Form(\"navn\")
      adresse = Request.Form(\"adresse\")
      postnummer = Request.Form(\"postnummer\")
      by = Request.Form(\"by\")
      email = Request.Form(\"email\")
      afdeling = trim(Request.Form(\"afdeling\"))
      pris = Request.Form(\"pris\")
      tilbudid = Request.Form(\"id\")
     
      %>
      <!-- #include file=\"valider.inc\" -->
      <% if len(navn) < 1 then
      Response.Redirect (\"bestil.asp?error=Udfyldt venligst feltet navn!&id=\" & tilbudid & \"&produktnavn=\'\" & produktnavn & \"&navn=\" & navn & \"\'&adresse=\" & adresse & \"&postnummer=\" & postnummer & \"&by=\" & by & \"&email=\" & email & \"&afdeling=\" & afdeling & \"&pris=\" & pris )
      end if
      %>
      <% if len(navn) < 6 then
      Response.Redirect (\"bestil.asp?error=Dit navn skal minimum være 5 karakterer&id=\" & tilbudid & \"&produktnavn=\" & produktnavn & \"&navn=\" & navn & \"&adresse=\" & adresse & \"&postnummer=\" & postnummer & \"&by=\" & by & \"&email=\" & email & \"&afdeling=\" & afdeling & \"&pris=\" & pris )
      end if
      %>
     
      <% if valider(email) = false then
      Response.Redirect (\"bestil.asp?error=Der er fejl i e-mail adressen&id=\" & tilbudid & \"&produktnavn=\" & produktnavn & \"&navn=\" & navn & \"&adresse=\" & adresse & \"&postnummer=\" & postnummer & \"&by=\" & by & \"&email=\" & email & \"&afdeling=\" & afdeling & \"&pris=\" & pris )
      end if
      %>
     
      <%
      if afdeling = \"Her vil jeg hente min vare...\" then
      Response.Redirect (\"bestil.asp?error=Vælg venligst en afdeling&id=\" & tilbudid & \"&produktnavn=\" & produktnavn & \"&navn=\" & navn & \"&adresse=\" & adresse & \"&postnummer=\" & postnummer & \"&by=\" & by & \"&email=\" & email & \"&afdeling=\" & afdeling & \"&pris=\" & pris )
      end if
      %>
<%
\'Afsender mail om ordrebekræftelse
Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ServerAddress = \"post.tele.dk:25\"
JMail.Sender = \"superradio@superradio.dk\"
JMail.Subject = \"Bekræftelse af reservering\"
JMail.AddRecipient email
JMail.body = \"Kære \" & navn & vbcrlf & vbcrlf &_
\"Tak for din reservation af \" & produktnavn & \" til \" & pris & \",-.\" & vbcrlf & vbcrlf &_
\"Du kan nu afhente din vare i Super Radio \" & afdeling & \". Henvend dig til en ledig sælger.\" & vbcrlf & vbcrlf &_
\"Husk at varer bestilt i denne uge ikke kan afhentes senere end førstkommende lørdag kl. 17.00.\" & vbcrlf & vbcrlf &_
\"Med venlig hilsen\" & vbcrlf &_
\"Super Radio \" & afdeling

JMail.Priority = 3
JMail.AddHeader \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")
JMail.Execute
%>     
<%
\'Bestemmelse af afdeling
if afdeling = \"Gentofte\" then
afdeling_mail = \"JVE@fredgaard.dk\"
end if

if afdeling = \"Taastrup\" then
afdeling_mail = \"KAN@fredgaard.dk\"
end if

if afdeling = \"Næstved\" then
afdeling_mail = \"KRJ@fredgaard.dk\"
end if

if afdeling = \"Odense\" then
afdeling_mail = \"PBL@fredgaard.dk\"
end if

if afdeling = \"Randers\" then
afdeling_mail = \"MIB@fredgaard.dk\"
end if

if afdeling = \"Ålborg\" then
afdeling_mail = \"JNY@fredgaard.dk\"
end if

if afdeling = \"Aarhus\" then
afdeling_mail = \"JOJ@fredgaard.dk\"
end if

if afdeling = \"Kim\" then
afdeling_mail = \"klj@johansen-design.dk\"
end if
if afdeling = \"Casper\" then
afdeling_mail = \"casper@berg-reklame.dk\"
end if

if afdeling = \"Ebbe\" then
afdeling_mail = \"berg@berg-reklame.dk\"
end if

\'Afsender mail om ordre til valgt afdeling
Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ServerAddress = \"post.tele.dk:25\"
JMail.Sender = \"superradio@superradio.dk\"
JMail.Subject = \"Reservering\"
JMail.AddRecipient afdeling_mail
JMail.body = \"En kunde har ønsket at reservere \" & produktnavn & \" til \" & pris & \",-.\" & vbcrlf & vbcrlf &_
\"Kundens data er:\" & vbcrlf & vbcrlf &_
\"Navn: \" & navn & vbcrlf &_
\"Adresse: \" & adresse & vbcrlf &_
\"Postnummer & by: \" & postnummer & \" \" & by & vbcrlf &_
\"Email: \" & email
JMail.Priority = 3
JMail.AddHeader \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")
JMail.Execute
%>
<HTML>
<HEAD>
<META NAME=\"GENERATOR\" Content=\"Microsoft Visual Studio 6.0\">
<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>
<body bgcolor=\"#FFFFFF\" leftmargin=\"0\" topmargin=\"0\" marginwidth=\"0\" marginheight=\"0\">
<p align=\"center\">&nbsp;</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\">&nbsp;</p>
        <p class=\"indl\">

      <p class=\"indl\"><b>K&aelig;re <%= navn %><br>
          <br>
          Tak for din reservation af <%= produktnavn %> til <%= pris %>,-.</b></p>
        <p class=\"indl\"><b>Du kan nu afhente din vare i Super Radio <%= afdeling %>.
          Henvend dig til en ledig s&aelig;lger.</b></p>
        <p class=\"indl\"><b> Husk at varer bestilt i denne uge ikke kan afhentes
          senere end f&oslash;rstkommende l&oslash;rdag kl. 17.00.</b></p>
      </td>
      <td valign=\"top\">&nbsp;</td>
    </tr>
  </table>
</div>

</BODY>
</HTML>