ASP \"Unknown runtime error\"

ingen :(

hmm...har du sat din paging side op rigtigt ?

skulle jeg indsætte koden her ?

her:
<table width=\"100%\" height=\"24\" style=\'border: 1 solid #000000\' cellspacing=\'1\' cellpadding=\'3\' bgcolor=\"#eeeeee\" border=\"0\">
                      <tr>
                        <td height=\"16\" align=\"center\" bgcolor=\"#eeeeee\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">File
                          name</font></b></td>
                        <td height=\"16\" align=\"center\" bgcolor=\"#eeeeee\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Date
                          added</font></b></td>
                        <td height=\"16\" align=\"center\" bgcolor=\"#eeeeee\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Provider</font></b></td>
                        <td height=\"16\" align=\"center\" bgcolor=\"#eeeeee\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"><b>Support</b></font></td>
                      </tr>
                      <tr bgcolor=\"#FFFFFF\">
                        <%
intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If
%>
<%
    dim Connection,SQLstringK,KRS
    Set Connection = Server.CreateObject(\"ADODB.Connection\")
    Connection.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\"&Server.MapPath(\"../bilal_kalpe.mdb\")
    SQLstringK=\"select * from appz ORDER BY dato DESC\"
    SET KRS=Connection.Execute(SQLstringK)
%>
<%
If Not (KRS.BOF Or KRS.EOF) Then
    KRS.PageSize = 10
    KRS.AbsolutePage = intPage
    intRecCount = KRS.PageSize
    intPageCount = KRS.PageCount
%>
<%while not KRS.EOF%>
                        <td width=\"21%\" bgcolor=\"#FFFFFF\">
                          <div align=\"center\"><font face=tahoma size=1> <%=KRS(\"name\")%>
                            </font></div>
                        </td>
                        <td width=\"28%\" bgcolor=\"#FFFFFF\"> 
                          <div align=\"center\"><font face=tahoma size=1>
                            <%=KRS(\"dato\")%> </font></div>
                        </td>
                        <td width=\"27%\" bgcolor=\"#FFFFFF\">
                          <div align=\"center\"><font face=tahoma size=1>
                            <%=KRS(\"provider\")%> </font></div>
                        </td>
                        <td width=\"16%\" bgcolor=\"#FFFFFF\">
                          <div align=\"center\"><font face=tahoma size=1>
                            <%=KRS(\"download\")%> </font></div>
                        </td>
                      </tr>
                    </table>
<%
intRecCount = intRecCount - 1
KRS.MoveNext
wend
end if

KRS.close
set KRS =nothing
connection.close
set connection = nothing
%> 
<form method=\"GET\" action=\"appx.asp\"><% Response.Write \"Gå til side \"
For intNum = 1 To intPageCount
Response.Write \"<input type=submit value=\" & intNum & \" name=page class=knap id=knap>\"
Next %></form>

kan du ikke komme med hele koden?

ups....never mind

mascot ?

mascot > kan du mon indsætte din kode her, så kan jeg bare skifte oplysningerne også vil den virker :o)

?

kan du så ikke lige skrive din kode uden der ligger noget med paging ??

                      <table width=\"100%\" height=\"24\" style=\'border: 1 solid #000000\' cellspacing=\'1\' cellpadding=\'3\' bgcolor=\"#eeeeee\" border=\"0\">
                      <tr>
                        <td height=\"16\" align=\"center\" bgcolor=\"#eeeeee\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">File
                          name</font></b></td>
                        <td height=\"16\" align=\"center\" bgcolor=\"#eeeeee\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Date
                          added</font></b></td>
                        <td height=\"16\" align=\"center\" bgcolor=\"#eeeeee\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Provider</font></b></td>
                        <td height=\"16\" align=\"center\" bgcolor=\"#eeeeee\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"><b>Support</b></font></td>
                      </tr>
                      <tr bgcolor=\"#FFFFFF\">
<%option explicit%>
<%
    dim Connection,SQLstringK,KRS
    Set Connection = Server.CreateObject(\"ADODB.Connection\")
    Connection.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\"&Server.MapPath(\"../test.mdb\")
    SQLstringK=\"select * from appz ORDER BY dato DESC\"
    SET KRS=Connection.Execute(SQLstringK)


%>
<%while not KRS.EOF%>
                        <td width=\"21%\" bgcolor=\"#FFFFFF\">
                          <div align=\"center\"><font face=tahoma size=1> <%=KRS(\"name\")%>
                            </font></div>
                        </td>
                        <td width=\"28%\" bgcolor=\"#FFFFFF\">
                          <div align=\"center\"><font face=tahoma size=1> <%=KRS(\"dato\")%>
                            </font> </div>
                        </td>
                        <td width=\"27%\" bgcolor=\"#FFFFFF\">
                          <div align=\"center\"><font face=tahoma size=1> <%=KRS(\"provider\")%>
                            </font> </div>
                        </td>
                        <td width=\"16%\" bgcolor=\"#FFFFFF\">
                          <div align=\"center\"><font face=tahoma size=1> <%=KRS(\"download\")%>
                            </font> </div>
                        </td>
                      </tr>
                      <%
   
    KRS.MoveNext
wend
   
KRS.close
set KRS =nothing
connection.close
set connection = nothing
%>

jeg skriver lidt om på din løkke hvis det ikke gør noget...

om du kan li det eller ej her kommer det:

<%option explicit%>
<table width=\"100%\" height=\"24\" style=\'border: 1 solid #000000\' cellspacing=\'1\' cellpadding=\'3\' bgcolor=\"#eeeeee\" border=\"0\">
                      <tr>
                        <td height=\"16\" align=\"center\" bgcolor=\"#eeeeee\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">File
                          name</font></b></td>
                        <td height=\"16\" align=\"center\" bgcolor=\"#eeeeee\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Date
                          added</font></b></td>
                        <td height=\"16\" align=\"center\" bgcolor=\"#eeeeee\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">Provider</font></b></td>
                        <td height=\"16\" align=\"center\" bgcolor=\"#eeeeee\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"><b>Support</b></font></td>
                      </tr>
                      <tr bgcolor=\"#FFFFFF\">
<%
intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

dim Connection,SQLstringK,KRS
SQLstringK=\"select * from appz ORDER BY dato DESC\"
SET KRS=Connection.Execute(SQLstringK)
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"../test.mdb\")
krs.Open strSQL, strDSN, 1
If Not (krs.BOF Or krs.EOF) Then
    krs.PageSize = 10
    krs.AbsolutePage = intPage
    intRecCount = krs.PageSize
    intPageCount = krs.PageCount
    Response.Write \"<p><b>Side \" & intPage & \" af \" & intPageCount & \"</b></p>\"
    Do While Not krs.EOF And intRecCount > 0
%>
                          <td width=\"21%\" bgcolor=\"#FFFFFF\">
                          <div align=\"center\"><font face=tahoma size=1> <%=KRS(\"name\")%>
                            </font></div>
                        </td>
                        <td width=\"28%\" bgcolor=\"#FFFFFF\">
                          <div align=\"center\"><font face=tahoma size=1> <%=KRS(\"dato\")%>
                            </font> </div>
                        </td>
                        <td width=\"27%\" bgcolor=\"#FFFFFF\">
                          <div align=\"center\"><font face=tahoma size=1> <%=KRS(\"provider\")%>
                            </font> </div>
                        </td>
                        <td width=\"16%\" bgcolor=\"#FFFFFF\">
                          <div align=\"center\"><font face=tahoma size=1> <%=KRS(\"download\")%>
                            </font> </div>
                        </td>
                      </tr>
                      <%
<%    intRecCount = intRecCount - 1
    krs.MoveNext
    Loop
End If
krs.Close
Set krs = Nothing

Response.Write \"<p>Gå til side \"
For intNum = 1 To intPageCount
    Response.Write \"<a href=paging.asp?page=\" & intNum & \">\" & intNum & \"</a> \"
Next

Response.Write \"<p>\"
If Clng(intPage) > 1 Then
    Response.Write \"<a href=paging.asp?page=\" & intPage - 1 & \">&lt;&lt;</a>\"
Else
    Response.Write \"&lt;&lt;\"
End If

Response.Write \"&nbsp;\"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write \"<a href=paging.asp?page=\" & intPage + 1 & \">&gt;&gt;</a> \"
Else
    Response.Write \"&gt;&gt;\"
End If
%></form>

hvis du får fejl igen så send databasen og filerne til: sa49@mail1.stofanet.dk

jeg har fundet databasen i et andet spm.....der er foresten fejl i den der kode jeg har skrevet...jeg retter den lige

ok :o) venter...

jaja...jeg arbejder på det men selv når jeg bruger den kode som jeg normalt bruger virker det ikke :(

ok...kan du så ik sende mig din database + din kode..så skal jeg nok skifte på tingene...på forhånd tak for hjælpen :o)

PS: hvis der er noget i databasen som er personligt...så kunne du måske lave en eks til mig :o) og send den til mig på denne mail jamal@web-zone.dk tak :o)

nu ved jeg godt 10 point er alt for lidt for det arbejde som du skal lave, så jeg skifter det til 30 :o)

der er intet i den db der er personeligt.....det er til en tagwall så det skulle jeg da ikke mene...jeg skal nok sende den til dig...

venter :o) sig lige til når du sender den !

jeg sender den nu....

neeeeeeeeeeejjjjj....jeg kan ik lide den måde du har lavet den på :( sorry !

mascot > jeg har fået det til at virke :o) tak for hjælpen :o)

np...