Trådstart#1
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]
