Varför????

När jag försöker öppna default.asp kommer detta upp:

fel '80020009'
Undantag inträffade.

/index/vote/default.asp, rad 91

på rad 91 står det:
RSS.Open SQLString, Connection

Använd SQL kommando istället.

SQL = "SELECT * from tabell"
Set RecSet = Connect.Execute(SQL)

Mycket bättre

------------------
GO och gla ASP choklad
There is no Guru!

Här kommer koden:

<%
   Set Connection = Server.CreateObject("ADODB.Connection")
   Connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=C:\Inetpub\wwwroot\index\vote\votes.mdb"
   Set RS = Server.CreateObject("ADODB.Recordset")
   Set RSS = Server.CreateObject("ADODB.Recordset")
   Set RSf = Server.CreateObject("ADODB.Recordset")
   If Request.QueryString.Item("FragaID") > 0 Then
      SQLString = "SELECT Fragor.FragaID, Fragor.Fraga, Fragor.TotAntal, Fragor.Aktiv, Fragor.Start_datum, Fragor.Slut_datum, Svar.SvaraltID, Svar.Svaralt, Svar.Antal FROM Fragor, Svar WHERE Fragor.FragaID=" & Request.QueryString.Item("FragaID") & " AND Svar.FragaID=Fragor.FragaID"
   RS.Open SQLString, Connection
   AntalRoster = RS("TotAntal")
%>
<% =RS("Fraga") %><br><br>
<%
	Do until RS.EOF
%>
<%
   FragaID_cookie = Request.QueryString.Item("FragaID")
   If Request.Cookies("Rostat")(FragaID_cookie) <> "True" And RS("Aktiv") = True Then
%>
<a href=regvote.asp?FragaID=<% =RS("FragaID")%>&SvaraltID=<% =RS("SvaraltID")%>><% =RS("Svaralt")%></a>
<%
   Else
%>
   <% =RS("Svaralt")%>
<%
   End If
   If RS("TotAntal") > 0 Then
%>
 - <% =Round(RS("Antal")/RS("TotAntal")*100,1)%> %
<%
   Else
%>
 - 0%
<%
   End If
%>
<br>
<%
	RS.MoveNext
	Loop
%>
<br>
Totalt antal röster: <b><% =AntalRoster %></b><br>
<br>
<a href="?lista=show">Tidigare Omröstningar</a>
<%
   End If
   If Request.QueryString.Item("lista") = "show"Then
   SQLString = "SELECT Fraga, FragaID, Start_datum, Slut_datum FROM Fragor"
   RSf.Open SQLString, Connection
%>
<%
	Do until RSf.EOF
%>
<a href="?FragaID=<% =RSf("FragaID")%>"><% =RSf("Fraga")%></a> (<% =RSf("Start_datum")%> - <% =RSf("Slut_datum")%> )<br>
<%
	RSf.MoveNext
	Loop
%>
<%
   End If
   If Request.QueryString.Count = 0 Then
   SQLString = "SELECT FragaID FROM Fragor ORDER BY FragaID DESC"
   RSS.Open SQLString, Connection
   Response.Redirect("?FragaID=" & RSS("FragaID"))
%>
<%
   End If
%>
<%
   Connection.Close
%>

Någon kan kanske få den att funka, för jag kan inte det iaf.

[Redigerat av fredrik99 den 03 aug 2000]

Ingen som vet någon lösning?

Gosh! vad grötigt. Kan du ge mig koden på rad 91 är du snäll.

Tack!

------------------
Mvh
Patrik
aka Brimba

www.datormaklarna.se
patrik@datormaklarna.se

Rad 91:

RSS.Open SQLString, Connection

Testa att skriva Response.Write(SQLString) ovanför RSS.Open SQLString, Connection

Så ser du om SQL saten ovan är korekt.

Brukar alltid göra så när jag får fel, man tänker klarare när man ser vad som händer

------------------
fencing for you?
http://www.fencing4u.nu/

Det händer inget kommer fortfarande upp:

Undantag inträffade.

Skriv allra överst

On error resume next

så forsätter den att exekvera resten av asp koden efter felet, så kanske den skriver ut din sql sträng, så kan du se vad dert är för fel!

/Din gycklare i vardagen