Problem med script

Kan du finde frem til den exacte linie der giver fejlen ? (Og så sende den hertil)

/Morten

<%
SQL = "Select DISTINCT(Titel) From koersler"
Set rs27 = Conn.Execute(SQL)  <--- Denne linie laver fejlen!
If Not (rs27.bof or rs27.eof) then
Do While Not rs27.eof

SQL = "Select * From koersler Where Titel = '"& rs27("Titel") &"'"
Set rs = Conn.Execute(SQL)

Må jeg se der hvor du definerer Conn

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb")
Conn.Open DSN

If Request("status") = "aktiv" Then
Set rs2 = Conn.Execute("Select * From koersler Where id = " & Request("aid") & "")
If Not (rs2.bof or rs2.eof) then
Ti = rs2("Titel")
SQL2 = "Update koersler Set Status = False Where Titel = '"& Ti &"'"
Conn.Execute(SQL2)
End If

Elseif Request("status") = "lukket" Then

Set rs2 = Conn.Execute("Select * From koersler Where id = " & Request("aid") & "")
If Not (rs2.bof or rs2.eof) then
Ti = rs2("Titel")
SQL2 = "Update koersler Set Status = True Where Titel = '"& Ti &"'"
SQL3 = "Update koersler Set Status = False Where NOT Titel = '"& Ti &"'"
Conn.Execute(SQL2)
Conn.Execute(SQL3)
End If

Elseif Request("slet") = "ok" Then

Set rs7 = Conn.Execute("SELECT Count(id) as antal From koersler")
If rs7("antal") > 1 then

Set rs2 = Conn.Execute("Select * From koersler Where id = " & Request("id") & "")
If Not (rs2.bof or rs2.eof) then
Ti = rs2("Titel")
SQL2 = "Delete From koersler Where Titel = '"& Ti &"'"
Conn.Execute(SQL2)
End If
Else
%>

Prøv at lave din DNA om til

DNS = "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=" & Server.Mappath("db.mdb") & ";" & "Jet OLEDB:Database Password=mypassword"

Jeg mener du bare kan slette password-delen hvis du ikke bruger det.

/morten

he he DNA = DNS