zoidberg jeg fatter ikke så meget af det script der er en linje jeg ik kan få til at du se hvad fejlen lyder på Microsoft OLE DB Provider for ODBC Drivers fejl \'80040e37\'
[Microsoft][ODBC Microsoft Access-driver] Microsoft Jet-databasemotoren kan ikke finde inputtabellen eller forespørgslen \"tabel\". Kontroller, at den findes, og at navnet er stavet korrekt.
/freq/midt.asp, linje 27
her er mit script:
<html>
<head>
</head>
<body bgcolor=\"#666666\" text=\"#000000\" link=\"#000000\" vlink=\"#000000\" alink=\"#000000\">
<%
\' Først finder vi ud af hvad vores paging side er på nu
Page = Trim(Request(\"Page\"))
If Page = \"\" Then Page = 1
\' Standard DSNless connection til databasen db.mdb
Set Con = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"database/db.mdb\")
Con.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath
\' Vores SQL-forespørgsel vi ønsker paget
Sql = \"SELECT * FROM tabel\"
\' Så begynder det sjove - her sætter vi vores recordset op...
\' Jeg vil ikke gennemgå alt hvad recordsetkoden gør.
\' Kig evt. i en dokumentation hvis du ikke helt er med på hvad der er hvad... :-)
Set rs = Server.CreateObject(\"ADODB.Recordset\")
rs.CursorType = adOpenStatic
\' Hvor mange records vil have på hver side... her er den sat til 10
rs.PageSize = 10
rs.Open(Sql), Con<---------- linje 27
\' Her laver jeg et lille trick der gør at hvis ens forespørgsel er tom,
\' så får man ikke en fejl
If Not rs.EOF Then
rs.AbsolutePage = cINT(Page)
rowCount = 0
End If
if rs.EOF then
%>
<%
else
Do While Not rs.EOF
besked = rs(\"besked\")
besked = Replace(besked,\":)\",\"<IMG SRC=gfx/s_yes.gif>\")
besked = Replace(besked,\":-)\",\"<IMG SRC=gfx/s_yes.gif>\")
besked = Replace(besked,\":-(\",\"<img src=gfx/s_no.gif>\")
besked = Replace(besked,\":(\",\"<img src=gfx/s_no.gif>\")
besked = Replace(besked,\":)\",\"<img src=gfx/s_yes.gif>\")
besked = Replace(besked,\":(\",\"<img src=gfx/s_no.gif>\")
besked = Replace(besked,\">(\",\"<img src=gfx/s_angry.gif>\")
besked = Replace(besked,\"8)\",\"<img src=gfx/s_shade.gif>\")
besked = Replace(besked,\";)\",\"<img src=gfx/s_wink.gif>\")
besked = Replace(besked,\":D\",\"<img src=gfx/s_happy.gif>\")
besked = Replace(besked,\":P\",\"<img src=gfx/s_tounge.gif>\")
besked = Replace(besked,\"#)\",\"<img src=gfx/s_clown.gif>\")
besked = Replace(besked,\"[s_onfire]\",\"<img src=gfx/s_fire.gif>\")
besked = Replace(besked,\"[s_angel]\",\"<img src=gfx/s_angel.gif>\")
besked = Replace(besked,\"[s_finger]\",\"<img src=gfx/s_finger.gif>\")
besked = Replace(besked,\"[s_finger2]\",\"<img src=gfx/s_finger2.gif>\")
besked = Replace(besked,\"[s_puke]\",\"<img src=gfx/s_puke.gif>\")
besked = Replace(besked,\"[s_sex]\",\"<img src=gfx/s_sex.gif>\")
besked = Replace(besked,\"[s_silly]\",\"<img src=gfx/s_silly.gif>\")
besked = Replace(besked,\"[s_shoot]\",\"<img src=gfx/s_enforcer.gif>\")
besked = Replace(besked,\"[s_sniper]\",\"<img src=gfx/s_camper.gif>\")
besked = Replace(besked,\"[s_chain]\",\"<img src=gfx/s_shoot.gif>\")
besked = Replace(besked,\"[s_rocket]\",\"<img src=gfx/s_rocket.gif>\")
besked = Replace(besked,\"[s_newbie]\",\"<img src=gfx/s_newbie.gif>\")
besked = Replace(besked,vbcrlf,\"<br>\")
%>
<div align=\"center\">
<center>
<table border=\"1\" width=\"60%\" cellspacing=\"0\" cellpadding=\"0\" style=\"border: 1 solid #000000\" bordercolor=\"#000000\" bordercolorlight=\"#000000\" bordercolordark=\"#000000\">
<tr>
<td width=\"50%\" height=\"13\" background=\"overskrift2.gif\"
style=\"border-bottom: 1 solid #000000\">
<div align=\"center\">
<center>
<table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\" >
<a name=\"<%=rs(\"overskrift\")%>\">
<td width=\"50%\" bgcolor=\"#FFC000\"><b><font color=\"#000000\" face=\"Arial Black\">..: </font><font
color=\"#000000\" face=\"Trebuchet MS\"><%=rs(\"overskrift\")%></font><font color=\"#000000\"
face=\"Arial Black\"> :..</font></b></td>
</center>
<td width=\"50%\" valign=\"top\" bgcolor=\"#FFC000\">
<p align=\"right\"><font color=\"#000000\" face=\"Trebuchet MS\" size=\"1\">Af: <%=rs(\"navn\")%><br>Dato: <%=rs(\"dato\")%>
</font></td>
</table>
</div>
</a>
</td>
</tr>
<tr>
<td width=\"50%\" bgcolor=\"#c0c0c0\" valign=\"top\" colspan=\"2\">
<p align=\"center\"><font color=\"black\" face=\"Trebuchet MS\"><%=besked%></font></td>
</tr>
</table>
</center>
</div>
<font color=\"#FFFFFF\" face=\"Trebuchet MS\">
<br>
<%
rs.MoveNext
Loop
Conn.Close
Set Conn = Nothing
end if
%>
</font>
</body>
</html>
håber du kan hjælpe
Ny bruger
Nybegynder
Opret
Preview
