Database

Hvad gør jeg forkert

Fejl:

The application is using arguments that are of the wrong type, are out of acceptable range, or are in conflict with one another.

Kode:

<% @LANGUAGE = VBScript %>
<%
Option Explicit

Dim DB, mSagsnr, conn
mSagsnr = request.querystring(\"Sagsnr\")




  Set DB = Server.CreateObject (\"ADODB.Connection\")
  DB.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"../Ejendomme.mdb\")
Dim RS
  Set RS = Server.CreateObject (\"ADODB.Recordset\")
 
 
 
  \'RS.Open \"SELECT Kunde.Foto1, Kunde.Beliggenhed, Kunde.Postnr, Kunde.By, Kunde.Kontant, Kunde.Netto, Kunde.Kvm, Kunde.Grund, Kunde.Sagsnr FROM Kunde WHERE (((Kunde.Dato) In (Select Max(Dato) From Kunde)))\", DB

  RS.Open \"SELECT * FROM Kunde Where Sagsnr =\" & mSagsnr, conn
 
 
  If RS.EOF And RS.BOF Then
    Response.Write \"There are 0 records.\"
   
  Else
    RS.MoveFirst
    While Not RS.EOF
         
     
      %>
     
<div align=\"center\">
<center>
     
      <table BORDER=\"0\" width=\"150\" cellspacing=\"0\" cellpadding=\"0\">
          <tr>
            <td colspan=\"2\" width=\"159\" height=\"21\"><font color=\"#0066FF\"><b>Nyeste
              Ejendom.......</b></font></td>
          </tr>
          <tr>                                                                                   
            <td colspan=\"2\" width=\"159\" height=\"100\"><a href=\"de.asp?Sagsnr=<%Response.Write RS.Fields (\"Sagsnr\")%>\"><img border=\"2\" src=\"<%Response.Write RS.Fields (\"Foto1\")%>\" width=\"155\" height=\"94\" style=\"position: relative; border-style: solid; border-color: #0066FF\" align=\"center\"></a></td>
          </tr>
          <tr>
            <td colspan=\"2\" width=\"159\" height=\"21\"><b><font size=\"2\"><%Response.Write RS.Fields (\"Beliggenhed\")%></font></b></td>
          </tr>
          <tr>
            <td colspan=\"2\" width=\"159\" height=\"21\"><font size=\"2\"><%Response.Write RS.Fields (\"postnr\")%>&nbsp;&nbsp;<%Response.Write RS.Fields (\"By\")%></font></td>
          </tr>
          <tr>
            <td width=\"50\" height=\"21\"><b><font size=\"2\">Kontant:</font></b></td>
            <td align=\"right\" height=\"21\" width=\"107\">
              <p align=\"right\" style=\"word-spacing: 0; margin: 0\"><font size=\"2\"><%Response.Write RS.Fields (\"Kontant\")%>Kr.</font></td>
          </tr>
          <tr>
            <td width=\"50\" height=\"21\"><b><font size=\"2\">Netto:</font></b></td>
            <td align=\"right\" height=\"21\" width=\"107\">
              <p align=\"right\" style=\"word-spacing: 0; margin: 0\"><font size=\"2\"><%Response.Write RS.Fields (\"Netto\")%>Kr.</font></td>
          </tr>
          <tr>
            <td width=\"50\" height=\"20\"><b><font size=\"2\">Grund:</font></b></td>
            <td align=\"right\" height=\"20\" width=\"107\">
              <p align=\"right\" style=\"word-spacing: 0; margin: 0\"><font size=\"2\"><%Response.Write RS.Fields (\"Grund\")%>m²</font></td>
          </tr>
          <tr>
            <td width=\"50\" height=\"21\"><b><font size=\"2\">Kvm:</font></b></td>
            <td align=\"right\" height=\"21\" width=\"107\">
              <p align=\"right\" style=\"word-spacing: 0; margin: 0\"><font size=\"2\"><%Response.Write RS.Fields (\"Kvm\")%>m²</font></td>
          </tr>
          <tr>
              <td width=\"50\" valign=\"top\" height=\"20\">
              </td>
              <td width=\"107\" valign=\"top\" height=\"20\">

              </td>
            </tr>
          <tr>
              <td width=\"50\" valign=\"top\" height=\"21\">
              </td>
              <td width=\"107\" valign=\"top\" height=\"21\">

              </td>
            </tr>
          </table>

     
     
</center>
</div>

     
     
      <%
    RS.MoveNext
    Wend
  End If
  %>


/Databaser/test/test.asp, line 20