hvorfor??

hmm.. prøv lige med denne:

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}DBQ=" & Server.MapPath(strDatabase)

men hvad er det du vil?

//>Rune

Prøv evt. med at udskift strDNS med 1 og 1 med 3

rs.Open strSQL, 1, 3

Det er hvis du vil skrive til databasen!

//>Rune

se her:
http://www.online-help.dk/test/soeg.asp
det er en søgemaskine der søge i nogen databaser...
vil du se noget kode???
prøv at se på siden og søg på buha og kryds bruger!

prøv:
<%
Set Conn = Server.CreateObject("ADODB.Connnection")
Conn.Open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("" & strDatabase & "")
SQL = "SELECT * FROM DinTabel"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql, conn, 1, 3
%>

Mvh
Mr.Meincke

medions > du kan sagtens bruge "rs.Open sql, conn, 1, 3" uden at du skal skrive/opdatere i databasen...

Men der er jo også:

<%
Set Conn = Server.CreateObject("ADODB.Connnection")
Conn.Open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("" & strDatabase & "")
Set rs = Conn.Execute("SELECT * FROM DinTabel")
%>

det er et pagnings script! prøv at se fejlen linje 103 det er:
    rs.AbsolutePage = intPage (hvis jeg har talt rigtigt!)

Vil i se koden eller hvad..her er noget af den:
Set rs = Server.CreateObject("ADODB.RecordSet")
If strS = Bruger Then
strSQL = "SELECT * FROM " & strTabel & " where brugernavn ='%" & strOrd & "%' order by " & strSort & ""
else
strSQL = "SELECT * FROM " & strTabel & " where kom=" & strKom & " and overskrift ='%" & strOrd & "%'  order by " & strSort & ""
End if
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath(strDatabase)
rs.Open strSQL, strDSN, 1
'100
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 10
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Do While Not rs.EOF And intRecCount > 0
Response.Write "<a href=""" & strLink
If strKom = "true" and strS = "tortur" Then
response.write rs("tor_id")
Else
response.write rs("id")
End if
response.write """>" & rs(" & strSkrive & ") & "</a><br>"
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
End If
rs.Close
Set rs = Nothing
If Clng(intPage) > 1 Then
    Response.Write "<a href=links.asp?page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
response.write "fandt ikke noget!!"
End If

det ser rigtigt ud....

her er et script (paging script) fra en af mine sider:

<table bgcolor="#CFCFCF" align="center" border="0" cellpadding="0" cellspacing="1" width="470" height="*">
        <tr>
            <td width="395" valign="top"><span class="MainText"><font color="#000000">&nbsp;<b>Side navn / Beskrivelse</b></font></span></td>
            <td width="150" valign="top"><span class="MainText"><font color="#000000">&nbsp;<b>Hits</b></font></span></td>
            <td width="75" valign="top"><span class="MainText"><font color="#000000">&nbsp;<b>Sprog</b></font></span></td>
        </tr>
<% if Request("sortby") = "" then
    strSorterEfter = "Sidenavn"
    else
    strSorterEfter = Request("sortby")
end if %>
<% if Request("mode") = "" then
    strSorterMode = "asc"
    else
    strSorterMode = Request("mode")
end if %>
<%
strOrd = Request("ord")
strOrd = Replace(strOrd,"'","''")
strOrd = Replace(strOrd,"+","AND ")
strOrd = Replace(strOrd,"-","NOT ")
%>
<%
intPage = Request("side")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If
if intPage = "" then
    intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Soeg WHERE Soegeord LIKE '%" & strOrd & "%' order by " & strSorterEfter & " " & strSorterMode & ""
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/myuniverse/db.mdb")
rs.Open strSQL, strDSN, 1
%>
<%
if rs.EOF then
%>
        <tr>
            <td bgcolor="#FFFFFF" width="395" valign="top"><span class="MainText"><font color="#000000">&nbsp;Der var ingen sider, som passede med <b><%=Request("ord")%></b>.</font></span></td>
            <td bgcolor="#FFFFFF" width="150" valign="top"></td>
            <td bgcolor="#FFFFFF" width="75" valign="top"></td>
        </tr>
<%
else
%>
<%
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 10
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Do While Not rs.EOF And intRecCount > 0
%>
        <tr>
            <td bgcolor="#FFFFFF" width="395" valign="top"><span class="MainText"><font color="#000000">&nbsp;<font style="width: 300;"><a href="./redirect.asp?id=<%=rs("id")%>" class="SvarLink" target="_blank"><b><%=rs("Sidenavn")%></b></a> - <%=rs("beskrivelse")%></a></font></span></td>
            <td bgcolor="#FFFFFF" width="150" valign="top"><span class="MainText"><font color="#000000">&nbsp;<%=rs("Hits")%></font></span></td>
            <td bgcolor="#FFFFFF" width="75" valign="top"><span class="MainText"><font color="#000000">&nbsp;<%=rs("Sprog")%></font></span></td>
        </tr>
            <%
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
End If
End If
rs.Close
Set rs = Nothing
%>
        <tr>
            <td width="395" valign="top"><span class="MainText"><font color="#000000"><b>Gå til side</b> <%
For intNum = 1 To intPageCount
%>
<a href="res.asp?sortby=<%=strSorterEfter%>&mode=<%=strSorterMode%>&side=<%= intNum %>&kat=<%=Request("kat")%>&ord=<%=strOrd%>" class="BottomLink" <% if intNum+0 = Request("side")+0 then %>style="color: #000080; font-weight: bold;"<% end if %>><%= intNum%></a>
<%
Next
%><% if intPageCount = "" then %><font color="#808080">&laquo; tilbage</font> <font color="#808080">fremad &raquo;</font><% else %> - <% if intPage = 1 then %><font color="#808080">&laquo; tilbage</font><% else %><a href="res.asp?sortby=<%=strSorterEfter%>&mode=<%=strSorterMode%>&side=<%= intPage - 1%>&kat=<%=Request("kat")%>&ord=<%=strOrd%>" class="BottomLink">&laquo; tilbage</a><% end if %>&nbsp;<% if intPage+0 = intPageCount then %><font color="#808080">fremad &raquo;</font><% else %><a href="res.asp?sortby=<%=strSorterEfter%>&mode=<%=strSorterMode%>&side=<%= intPage + 1%>&kat=<%=Request("kat")%>&ord=<%=strOrd%>" class="BottomLink">fremad &raquo;</a><% end if %><% end if %></font></span></td>
            <td width="150" valign="top"><span class="MainText"><font color="#000000">&nbsp;Sider i alt</font></span></td>
            <td width="75" valign="top"><span class="MainText"><font color="#000000">&nbsp;<b><%=intPageCount%></b></font></span></td>
        </tr>
        </table>

ja ikke.... men vil i prøve at downloadet det?? sætte lige nogen flere points i!

det virker tjek selv:

http://www.friserverplads.dk/myuniverse/02

jeg har næsten brugt det samme til www.online-help.dk/test/links.asp her er kode:

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Links order by " & strSort & ""
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("links.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
If intPage = 1 Then
rs.PageSize = 10
Response.Write "<a href=""links.asp?mode=gå&id=" & rs("id") & """>" & rs("LinkURL") & "</a>(" & rs("points") & ")<br>" & rs("beskrivelse") & "<br>"
strId = rs("id")
else
    rs.PageSize = 10
End if
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Do While Not rs.EOF And intRecCount > 0
If strId = rs("id") Then
Else
        Response.Write "<a href=""links.asp?mode=gå&id=" & rs("id") & """>" & rs("LinkURL") & "</a>(" & rs("points") & ")<br>"
End if
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
End If
rs.Close
Set rs = Nothing
If Clng(intPage) > 1 Then
    Response.Write "<a href=links.asp?page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
End If
For intNum = 1 To intPageCount
    Response.Write "<a href=links.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=links.asp?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
End If
se det er samme og her virker det??

fandt ikke fejlen men tak for interessen!

takker for points :)

Thx 4 Poinz
//>Rune