Unspecified error

Nu har jag hållt på jättelänge med följande kodsnutt, och försökt få ordning på den.. ibland funkar den, ibland funkar bara halva koden och ibland så funkar ingenting utan jag får bara upp Unspecified error !!! Någon som kan se vad det är för fel på min kodsnutt och kan hjälpa mig med att fixa till den?

Tack på förhand, d@le

<%
'***** Skapar Connection-objektet *****'
Set Conn = Server.CreateObject("ADODB.Connection")

'***** Specifierar sökvägen *****'
MdbFilePath = Server.MapPath("db/nyheter_databasen.mdb")

'***** öppnar databasen *****'
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"

sSql = "SELECT TOP 1 * FROM nyheterna order by id desc" 
Set Query = Conn.Execute(sSql) 
%>

<!--- nyheter start --->
<TABLE cellSpacing=0 cellPadding=10 width="240" border=0>
<TBODY>

<% Do Until Query.EOF %>

<TR vAlign=top>
<TD bgColor="<%=sBgcolor%>">
<FONT face="verdana, arial" size=1><B><%=query("dag")%> & <%=query("tid")%></B>
<br><br>
<i><%=query("rubrik")%></i>
<br>

<%=Replace(query("texten"),vbcrlf,"<br>")%>
</font>
</TD></TR>

<% Query.MoveNext : Loop %>

</TBODY></TABLE><!-- nyheter slut --->

<%
Query.Close 
Set Query = Nothing 
%>

<%
Conn.Close 
Set Conn = Nothing 
%>

<%
'***** Skapar Connection-objektet *****'
Set Conn = Server.CreateObject("ADODB.Connection")

'***** Specifierar sökvägen *****'
MdbFilePath = Server.MapPath("db/nyheter_databasen.mdb")

'***** öppnar databasen *****'
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"

SQL = "SELECT * FROM nyheterna ORDER BY ID DESC" 
Set Query = Conn.Execute(SQL) 
%>

<FORM size="1" >
<font face="verdana, Arial, geneva, sans-serif" size="1"> 
<select name="main" size="1" style="font-size: 11; font-family: Arial; font-style: normal; background-color: lightblue;" onChange="if(this.selectedIndex>0) parent.location.href=this.options[this.selectedIndex].value;">

<% 
   texten = query("texten")
%>

<% Do Until Query.EOF %>
<OPTION VALUE="nyhetsarkiv.asp?id=<%=query("id")%>">  <%=query("dag")%> <% response.write left(texten, 25) & "..." %>
<% Query.MoveNext : Loop %>

</SELECT> 
</FORM> 

<%
Query.Close 
Set Query = Nothing 
%>

Kan tyvärr inte på något sätt visa vart felet ligger eftersom det är helt olika.. men jag hoppas ni kan hjälpa mig ändå :)

[Redigerat av d@le den 03 jul 2001]

[Redigerat av d@le den 03 jul 2001]

Kör du med PWS...??

testa att ladda hem den senaste versionen av MDAC på microsoft site

------------------
ibland tror jag att jag kan lite för lite än vad jag kan ....

[Redigerat av icaaq den 03 jul 2001]

lite mer ingående länk kanske vore bra att ha?
http://www.microsoft.com/data/

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
can i borrow your goat?
</A>

:) (dra nåt gammalt över dig @anders) ;)

------------------
ibland tror jag att jag kan lite för lite än vad jag kan ....

[Redigerat av icaaq den 03 jul 2001]