Hente data fra database

Lad os lige se dit SQL kald...

    <%
Conn_String = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"link.mdb\")
    Set Conn=Server.CreateObject(\"ADODB.Connection\")
    Conn.Open Conn_String
    sql = \"select * from cat order by ID\"
    set rs = Conn.Execute (sql)
   
   
   
%>

al koden

ok lige to sek...

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
</head>

<body bgcolor=\"#FFFFFF\"  leftmargin=\"0\" topmargin=\"0\" > <table width=\"400\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" align=\"center\">
        <tr>
          <td align=\"right\"><font face=\"Verdana\" size=\"1\"><b><font color=\"#000000\">Vis
            <input type=\"radio\" value=\"10\" checked name=\"num\">
            10&nbsp;
            <input type=\"radio\" name=\"num\" value=\"20\">
            20&nbsp;
            <input type=\"radio\" name=\"num\" value=\"30\">
            30 sider pr.søgning.</font></b></font></td>
        </tr>
      </table>
      </form>
              <%
Conn_String = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"link.mdb\")
    Set Conn=Server.CreateObject(\"ADODB.Connection\")
    Conn.Open Conn_String
    sql = \"select * from cat order by ID\"
    set rs = Conn.Execute (sql)
   
   
   
%>
      <table width=\"500\" border=\"0\" cellspacing=\"0\" cellpadding=\"2\" align=\"center\" class=\"border\">
  <tr bgcolor=\"8A91A1\">
    <td colspan=\"2\" class=\"td\"><font face=\"verdana\" color=\"White\" size=\"2\">Kategorier:</font></td>
  </tr>
  <tr>
       
              <%
    Do while NOT rs.EOF
    ColNum = 1
    Do while ColNum < 3
   
    %>   

               
<TD ALIGN=LEFT VALIGN=top WIDTH=\"250\" ><font  face=\"Verdana\" size=2 color=\"#3366cc\"><b><a href=\"showsub.asp?CatID=<%=rs(\"id\")%>&cat=<%=rs(\"cat\")%>\"><%=rs(\"cat\")%> </a></b></font>
                    <%
            ParentID = rs(\"id\")
           
            sqlcount = \"SELECT count(url) FROM link2 where parentid=\'\" & rs(\"id\") & \"\' and show=yes\"
Set RScounts = Conn.Execute(sqlcount)

rcounts = RScounts(0)
Response.Write (\"<font face=verdana color=#5d5d5d size=1>(\" & rcounts & \")</font>\")
Response.Write \"<br>\"
        subsql = \"SELECT  top 3 * FROM subcat where catID=\'\" & ParentID & \"\'\"
   
      set rssubcat = conn.Execute(subsql)
count = rssubcat.RecordCount
count = 1
      do while not rssubcat.EOF and count<=3           
           
            %>   
           
            <font face=\"Verdana\" size=1color=\"#3366cc\"><a href=\"showlink.asp?CatID=<%=rssubcat(\"subcatID\")%>&parentID=<%=rs(\"id\")%>&parentname=<%=rs(\"cat\")%>&Subname=<%=rssubcat(\"Subcatname\")%>\"><%=rssubcat(\"subcatname\")%></a>&nbsp;&nbsp;</font>
                   
            <%
           
            rssubcat.movenext
            loop
           
            %>
           
           
            </TD>
           
<%
if NOT rs.EOF then
rs.MoveNext
end if
ColNum = ColNum + 1
if NOT rs.EOF then
%>

<TD ALIGN=LEFT VALIGN=top WIDTH=\"250\"><font face=\"Verdana\" size=2 color=\"#3366cc\"><b><a href=\"showsub.asp?CatID=<%=rs(\"id\")%>&cat=<%=rs(\"cat\")%>\"><%=rs(\"cat\")%></a></B></font>
       
        <%
            ParentID = rs(\"id\")
            sqlcount = \"SELECT count(url) FROM link2 where parentid=\'\" & rs(\"id\") & \"\' and show=yes\"
Set RScounts = Conn.Execute(sqlcount)

rcounts = RScounts(0)
Response.Write (\"<font face=verdana color=#5d5d5d size=1>(\" & rcounts & \")</font>\")
Response.Write \"<br>\"
        subsql = \"SELECT  top 3 * FROM subcat where catID=\'\" & ParentID & \"\'\"
   
      set rssubcat = conn.Execute(subsql)
count = rssubcat.RecordCount
count = 1
      do while not rssubcat.EOF and count<=3           
           
            %>   
           
            <font face=\"Verdana\" size=1color=\"#3366cc\"><a href=\"showlink.asp?CatID=<%=rssubcat(\"subcatID\")%>&parentID=<%=rs(\"id\")%>&parentname=<%=rs(\"cat\")%>&Subname=<%=rssubcat(\"Subcatname\")%>\"><%=rssubcat(\"subcatname\")%></a>&nbsp;&nbsp;</font>
                   
            <%
           
            rssubcat.movenext
            loop
           
            %>
           
           
            </TD>
<%
end if
ColNum = ColNum + 1
Loop
%>

    </TR>

   

<%
if NOT rs.EOF then 
rs.MoveNext 
end if
Loop
%>


      </font></td>
        </tr>
      </table>
    <% rs.close
    Conn.Close
    set Conn = nothing
    %>

      2
      <p>&nbsp;</p>
    </td>
  </tr>
</table>
</body>
</html>

Jeg har haft samem problem.
Det er fordi at databasen er acces 2000 eller en anden.
en standard IIS understøtter kun access 97
Hvis du installere access2000 på din webserver eller gemmer din database som acces 97 så virker det.

//Atomizer

Problemet er bare at jeg har PWS og ikke IIS
og jeg kan ikke gemme min database som 97...

Hmm, hvad med at installere den seneste udgave af MDAC. ?
<http://www.activeserverpages.dk/download/default.asp?mode=download&id=154>

jeg har selv fundet udaf mit problem men ellers tak