Datatype mismatch in criteria expression

Prøv at skrive lidt mere af din ASP side og fortæl i hvilken linie fejlen opstår...
Det ville være en stor hjælp da.

Fejlen:

Microsoft OLE DB Provider for ODBC Drivers error \'80040e07\'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/Default.asp, line 178



Siden:
<%
session(\"login\") = \"1\"
%>
<html>
<head>
<link REL=\"stylesheet\" TYPE=\"text/css\" HREF=\"stylesheets/fun4you.css\">
<title>Fun4you.dk</title>
<style>
#innermenu a{
text-decoration:none;
color:#000000;
}

#innermenu a:hover{
color:#ff0000;

}

font a:hover{
color:#ff0000;
text-decoration:none;
}

font a:visited{
color:#000000;
text-decoration:none;
}

font a{
color:#000000;
text-decoration:none;
}

</style>
</head>
<body>
<div align=\"center\">
  <center>
  <table border=\"0\" width=\"670\" cellspacing=\"0\" cellpadding=\"0\" style=\"border: 2 solid #333333\">
    <tr>
      <td width=\"620\" colspan=\"3\"><img border=\"0\" src=\"images/logo.gif\"></td>
      <td width=\"20%\" valign=\"top\" bgcolor=\"#366599\"><img border=\"0\" src=\"images/spacer1.gif\"><img border=\"0\" src=\"images/Untitled-2.gif\"></td>
    </tr>
    <tr>
      <td width=\"40%\">
        <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\" style=\"border-top: 1 solid #000000; border-bottom: 1 solid #000000\" bgcolor=\"#315C8D\">
          <tr>
            <td width=\"100%\">
              <p align=\"center\"><font size=\"2\"><%=formatdatetime(now(), \"1\")%>, <%=formatdatetime(now(), \"4\")%></font></td>
          </tr>
        </table>
      </td>
      <td width=\"20%\">
        <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\" style=\"border: 1 solid #000000\" bgcolor=\"#22568F\">
          <tr>
            <td width=\"100%\" bgcolor=\"#4975A7\">
              <p align=\"center\"><font size=\"2\"><script language=\"JavaScript1.2\">
var ie5=(document.getElementById&&navigator.appName.indexOf(\"Internet Explorer\")!=-1)

if (ie5){
document.write(\'<span style=\"position:relative;width:150px;height:15px;border:0px solid black;font:bold 9pt Verdana;padding:0px\" onClick=\"showhide(1);event.cancelBubble=1\" ><span style=\"cursor:hand;width:100%\"><font size=\"2\" face=\"arial\">Menu</font> </span>\')
document.write(\'<div id=\"innermenu\" style=\"position:absolute;left:2;top:16;width:240px;height:100px;border:1px solid black;background-color:white;overflow-y:scroll;visibility:hidden;\">\')
}

function gl(linkname,dest){
document.write(\'<b><a href=\"\'+dest+\'\">\'+linkname+\'</a></b><br>\')
}

function showhide(state){
var cacheobj=document.getElementById(\"innermenu\").style
if (state==0)
cacheobj.visibility=\"hidden\"
else
cacheobj.visibility=cacheobj.visibility==\"hidden\"? \"visible\" : \"hidden\"
}

//Specify your links here- gl(Item text, Item URL)
if (ie5){
gl(\"JavaScript Kit\",\"http://www.javascriptkit.com\")
gl(\"Dynamic Drive\",\"http://www.dynamicdrive.com\")
gl(\"Free Web Templates\",\"http://www.freewebtemplates.com\")
gl(\"Freewarejava.com\",\"http://freewarejava.com\")
gl(\"MSNBC\",\"http://www.msnbc.com\")
gl(\"Google\",\"http://www.google.com\")
gl(\"Yahoo\",\"http://www.yahoo.com\")
gl(\"CNN\",\"http://cnn.com\")
//Extend this list as needed


}

if (ie5){
document.onclick=function(){showhide(0)}
document.write(\'</div></span>\')
}

</script></font></td>
          </tr>
        </table>
      </td>
      <td width=\"20%\">
        <table border=\"0\" width=\"100%\" style=\"border-top: 1 solid #000000; border-bottom: 1 solid #000000\" cellspacing=\"0\" cellpadding=\"0\">
          <tr>
            <td width=\"100%\" bgcolor=\"#608AB9\">
              <p align=\"center\"><font size=\"2\">Admin</font></td>
          </tr>
        </table>
      </td>
      <td width=\"20%\">
        <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\" style=\"border: 1 solid #000000\" bgcolor=\"#82A3C8\">
          <tr>
            <td width=\"100%\">
              <p align=\"center\"><font size=\"2\"><b>Community</b></font></td>
          </tr>
        </table>
      </td>
    </tr>
    <tr>
      <td width=\"80%\" colspan=\"3\" bgcolor=\"#EAEAEA\" valign=\"top\">
<%
    set conn = Server.CreateObject(\"ADODB.Connection\")
    conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"db/news.mdb\")
    SQL = \"select top 8 * from news\"
    Set RS = conn.Execute(SQL)
    do while not rs.eof
    %><br>
<div align=\"center\">
          <table border=\"0\" valign=\"top\" width=\"90%\" cellspacing=\"0\" cellpadding=\"0\" style=\"border: 1 solid #000000\">
            <tr>
              <td width=\"100%\" bgcolor=\"#315C8D\">
                <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\" style=\"border-bottom: 1 solid #000000\">
                  <tr>
                    <td width=\"100%\"><b><font color=\"#C2D2E4\"><%=rs(\"overskrift\")%></font></b></td>
                  </tr>
                  <tr>
                    <td width=\"100%\" bgcolor=\"#82A3C8\"><font size=\"2\" color=\"#000000\"><b><%=rs(\"forfatter\")%> - <%=formatdatetime(rs(\"tid\"), \"1\")%>, <%=formatdatetime(rs(\"tid\"), \"3\")%></b></font></td>
                  </tr>
                </table>
              </td>
            </tr>
            <tr>
              <td width=\"100%\" bgcolor=\"#FFFFFF\"><font size=\"2\"><%=rs(\"body\")%></font></td>
            </tr>
          </table>
        </div>


    <%
    rs.movenext
    loop
    rs.close
    set rs = nothing
    %>
        <p align=\"center\">&nbsp;</td>
      <td width=\"20%\" rowspan=\"2\" bgcolor=\"#c2d2e4\" style=\"border-left: 1 solid #000000\" bgcolor=\"#C2D2E4\">
        <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\" height=\"100%\">
          <tr>
            <td width=\"100%\" bgcolor=\"#C2D2E4\">
            <%
            if session(\"login\") = \"\" then
            %>
            <form action=\"login.asp\" method=\"post\">
            <input type=\"hidden\" name=\"page\" value=\"index.asp\">
            <input type=\"text\" value=\"Brugernavn\" size=\"10\"  style=\"font-family: Arial; font-size: 10 pt; letter-spacing: 1pt; border: 1 solid #000000\" name=\"brugernavn\">
            <input type=\"password\" size=\"10\"  style=\"font-family: Arial; font-size: 10 pt; letter-spacing: 1pt; border: 1 solid #000000\" name=\"password\"><br>
            <div align=\"center\"><input type=\"submit\" value=\" Login \" style=\"background-color: #ffffff; font-family: Arial; font-size: 10 pt; letter-spacing: 1pt; border: 1 solid #000000\"></div>
            <font size=\"2\"><div align=\"center\"><a href=\"recover.asp\">Send kode</a> <b>|</b> <a href=\"opret.asp\">Opret bruger</a></div>
            </form>
            <%
            else
            %><font size=\"2\" face=\"arial\">
           
            <%
    set conn = Server.CreateObject(\"ADODB.Connection\")
    conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"db/news.mdb\")
    numLogin = session(\"login\")
    SQL = \"select * from brugere where id = \'\" & numLogin & \"\'\"
    Set RS = conn.Execute(SQL)
    do while not rs.eof
    %>
           
            ..<a href=\"brugerinfo.asp
            </font>
           
            <%
            rs.movenext
            loop
end if
            %>
           
           
            </td>
          </tr>
        </table>
        <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\" style=\"border-top: 1 solid #000000; border-bottom: 1 solid #000000\" bgcolor=\"#82A3C8\">
          <tr>
            <td width=\"100%\">
              <p align=\"center\"><b><font size=\"2\">Ævlekassen</font></b></td>
          </tr>
        </table>
        <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\" bgcolor=\"#C2D2E4\">
          <tr>
            <td width=\"100%\">
            <font size=\"2\"><%
    set conn = Server.CreateObject(\"ADODB.Connection\")
    conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"db/news.mdb\")
    SQL = \"select top 3 * from aevl\"
    Set RS = conn.Execute(SQL)
    do while not rs.eof
    %>
    <b><%=rs(\"forfatter\")%></b> : <%=rs(\"body\")%><br>
    <%
    rs.movenext
    loop
    rs.close
    set rs = nothing
    %><br>Hvis du vil ævle, så klik <a href=\"aevl.asp\">her</a>
           
            </font></td>
          </tr>
        </table>
        <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\" bgcolor=\"#82A3C8\" style=\"border-top: 1 solid #000000; border-bottom: 1 solid #000000\">
          <tr>
            <td width=\"100%\">
              <p align=\"center\"><b><font size=\"2\">Links</font></b></td>
          </tr>
        </table>
        <table border=\"0\" width=\"100%\" bgcolor=\"#C2D2E4\" cellspacing=\"0\" cellpadding=\"0\" height=\"100%\">
          <tr>
            <td width=\"100%\" height=\"100%\">
              <p align=\"center\"><a href=\"http://www.pacroon.dk\"><img border=\"0\" src=\"http://www.pacroon.dk/mainframe/images/content/advertise/pacbutton2.gif\"></a><br>
              <br>
              <a href=\"http://www.nocture.dk\"><img border=\"0\" src=\"images/nocture.jpg\"></a><br>
              <br>
            </td>
          </tr>
        </table><table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\" bgcolor=\"#82A3C8\" style=\"border-top: 1 solid #000000; border-bottom: 1 solid #000000\">
          <tr>
            <td width=\"100%\">
              <p align=\"center\"><b><font size=\"2\">Statistik</font></b></td>
          </tr>
        </table>
        <table border=\"0\" width=\"100%\" bgcolor=\"#C2D2E4\" cellspacing=\"0\" cellpadding=\"0\" height=\"100%\">
          <tr>
            <td width=\"100%\" height=\"100%\">
<font size=\"1\">Brugere : <%
    set conn = Server.CreateObject(\"ADODB.Connection\")
    conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"db/news.mdb\")
    SQL = \"select count (*) as brugere from brugere\"
    Set RS = conn.Execute(SQL)
%><%=rs(\"brugere\")%>
<%
rs.close
set rs = nothing
%><br>
Ævleindlæg : <%
    set conn = Server.CreateObject(\"ADODB.Connection\")
    conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"db/news.mdb\")
    SQL = \"select count (*) as aevl from aevl\"
    Set RS = conn.Execute(SQL)
%><%=rs(\"aevl\")%>
<%
rs.close
set rs = nothing
%><br>
IP : <%=request.servervariables(\"remote_addr\")%><br></font>
            </td>
          </tr>
        </table><br>
      </td>
    </tr>
    <tr>
      <td width=\"80%\" height=\"20\" colspan=\"3\">
        <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\" bgcolor=\"#C2D2E4\" style=\"border-top: 1 solid #000000\" height=\"100%\">
          <tr>
            <td width=\"100%\">
              <p align=\"center\"><font size=\"1\" color=\"#608AB9\">copyright :
              philip dahlstrøm, 2002 - All rights reserved</font></td>
          </tr>
        </table>
      </td>
    </tr>
  </table>
  </center>
</div>


</body>

Yes
Så skal jeg bare lige vide hvilken linie der er nummer 178
...

            <%
    set conn = Server.CreateObject(\"ADODB.Connection\")
    conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"db/news.mdb\")
    numLogin = session(\"login\")
    SQL = \"select * from brugere where id = \'\" & numLogin & \"\'\"
    Set RS = conn.Execute(SQL)
    do while not rs.eof
    %>

Linje 178:
    Set RS = conn.Execute(SQL)

Du laver en masse databasen forbindelser i din ASP...
Er det fordi der kun i visse tilfælde vises dele af koden eller vises hele siden med alle database kald på een gang?

Det betyder ikke noget.....

Dette:
set conn = Server.CreateObject(\"ADODB.Connection\")
    conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"db/news.mdb\")

behøves du som det første kun have een gang per side... Hvis du laver det rigtigt...
Men jeg kan ikke lige se hvorfor den ikke vil godtage din RS

Du kan da evt prøve at ændre navene på dine resultset til fx rs1 rs2 rs3 rs4 rs5
Og se om det kan hjælpe..
Ellers ved jeg det ikke

Jeg har fundet en løsning selv!

Hvorda?

n

Jeg tager ikke ID, som session, men brugernavnet...

mmmkay
smart