Hvad skyldes denne fejl ?

kode tak

-------------------------------------------------------
stem.inc:
-------------------------------------------------------
<%
' -----------------------------------------------------
' Function Stem(id) - id = id i stem.mdb
' --------------------------------------------------------------
function stem(id)

  font    = "<font size='2' face='Verdana'>"
  faktor  = 2
  barcolor = "#206090"

  Set RsVote = Server.CreateObject("ADODB.Connection")
  DBPath = "DBQ=" & server.mappath("stem.mdb")
  RsVote.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

  Sql = "Select * from T_Vote where Id = " & id
  Set Record =  RsVote.Execute(Sql)
  If Not Record.EOF then
    If (Len(Request.Cookies("stem")(CSTR(id))))  then
      Dim Valg(5)
      valg(1) = Record("valg1")
      valg(2) = Record("valg2")
      valg(3) = Record("valg3")
      valg(4) = Record("valg4")
      valg(5) = Record("valg5")
Response.Write "<table border='0' WIDTH=300><tr><TD COLSPAN='3'><B><CENTER>"
      response.write font & Record("Beskrivelse")  & "</center></B></TD></TR>"

      Sql = "Select count(*) as Found from T_VoteResult where VoteId = " & id
      Set Record =  RsVote.Execute(Sql)
      Ialt = Record("found")
Response.Write "<tr>"

      For i = 1 to 5
        If valg(i) <> "" then
          Sql = "Select count(*) as Found from T_VoteResult where VoteId = " & id & " and vote = '" & Valg(i) & "'"
          Set Record = RsVote.Execute(Sql)
          Procent = 100/Ialt * Record("Found")
          response.write "<td>" & font & Valg(i) & "</td><td>" & font & Round(procent) & "%</td><td><hr STYLE='height: 5pt;' width='" & Procent * faktor & "' align='left' color='" & barcolor & "'></td></tr>"
        end if
      Next
    strSQL = "SELECT COUNT(ID) AS Antal FROM T_Voteresult WHERE voteid = " & id & ""
    Set rs2 = RsVote.Execute(strSQL)

If rs2("antal") = "1" Then

      Response.Write "<tr><td colspan='3' align='left'><CENTER><FONT SIZE='1'>" & rs2("Antal") &" stemme</FONT></CENTER></td></tr>"
    Else
    Response.Write "<tr><td colspan='3' align='left'><CENTER><FONT SIZE='1'>" & rs2("Antal") &" stemmer</FONT></CENTER></td></tr>"
End If

      Response.Write "</table>"
    else
      session("retur") = Request.ServerVariables("SCRIPT_NAME")
%>
<html>
<head>
<META NAME="Generator" CONTENT="Stone's WebWriter 3.5">
<title>Stem</title>
</head>
<body>
<TABLE BORDER="0" WIDTH="300">
<TR>
    <TD>
<CENTER><B>
<% response.write font & Record("Beskrivelse") %></B></CENTER>
<form method='POST' action='stemreg.asp'>
<input type='hidden' name='Voteid' value='<%= Id %>'>
<%
tmp_valg = Record("valg1")
If tmp_valg <> "" then
%>
<input type='radio' value='<%= tmp_valg %>' name='R1'>&nbsp;<%= tmp_valg %><br>
<%     
end if 
tmp_valg = Record("valg2")
If tmp_valg <> "" then
%>
<input type='radio' value='<%= tmp_valg %>' name='R1'>&nbsp;<%= tmp_valg %><br>
<%     
end if 
tmp_valg = Record("valg3")
If tmp_valg <> "" then
%>
<input type='radio' value='<%= tmp_valg %>' name='R1'>&nbsp;<%= tmp_valg %><br>
<%     
end if 
tmp_valg = Record("valg4")
If tmp_valg <> "" then
%>
<input type='radio' value='<%= tmp_valg %>' name='R1'>&nbsp;<%= tmp_valg %><br>
<%     
end if 
tmp_valg = Record("valg5")
If tmp_valg <> "" then
%>
<input type='radio' value='<%= tmp_valg %>' name='R1'>&nbsp;<%= tmp_valg %><br>
<%
end if
%>
<CENTER><p>&nbsp;
<input type='submit' value='Stem' name='B1'>&nbsp;&nbsp;
<input type='reset' value='Slet' name='B2'></p>
</CENTER>
</TD></TR></TABLE>
</form>
</body>
</html>
<%
    end if
  else
    response.write font & "Id findes ikke"
  end if
end function
%>
-------------------------------------------------------
stem.inc:
-------------------------------------------------------

-------------------------------------------------------
                      Linje 13:
-------------------------------------------------------
  RsVote.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
-------------------------------------------------------
                      Linje 13:
-------------------------------------------------------

Ved du noget ?

du skal lukke RsVote før du kan lave en .execute på den igen

sorry wrong thread...

Hva mener du ?

Hallo.......

Jeg troede jeg svarede på noget andet :-|

Men når jeg nu er her: Prøv med

DBPath = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("stem.mdb")

Nå, jeg lukker. Jeg har fundet fejlen:

Der var bare overbelastning på serveren ;),

Takker for hjælpen...