Fel Con...

28 svar · 603 visningar · startad av Rassoul 16 sep. 2003 · sida 2 av 2

Frågan, av Rassoul 16 sep. 2003

Vet inte vad felet med denna stränga... Set connect = Server.CreateObject("ADODB.Connection") connect.Open("Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Server.MapPath("db.mdb")) Set RecSet = Server.CreateObject("ADODB.RecordSet") SQL = "SELECT FROM cd" RecSet.open SQL , connect, adOpenStatic, adLockOptimistic Det gjer felmesset: Microsoft JET Database E

Läs frågan i sin helhet →

RassoulMedlem sedan aug. 200321 inlägg

17 sep. 2003 17:37#21

Nu får jag felet:

Feltyp:
Körningsfel i Microsoft VBScript (0x800A01A8)
Objekt krävs.: ''
/cd/Default.asp, line 7

Default.asp:

<%
Set connect = Server.CreateObject("ADODB.Connection")
connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")
SQL = "SELECT * FROM [cd]"
set rs = connect.execute(SQL)
RecSet.open SQL , connect, 1, 3
Do Until RecSet.EOF
%>

<html>
<head>
</head>
<body text="#000000">
<img scr="<%=RecSet("Bild")%>" border="0" alt="<%=RecSet("Datum")%>">_CD nr:<%=RecSet("ID")%> 
Namn:<%=RecSet("Namn")%> 
Info:<%=Server.HTMLencode(RecSet("ovrig"))%> 
Antal Låtar:<%=RecSet("Latar")%>
Betyg:<%=RecSet("Betyg")%>

<%
RecSet.MoveNext
Loop
RecSet.Close
%>
<body text="#FFFFFF" bgcolor="#000000">

Jesper TMedlem sedan nov. 20017 144 inlägg

17 sep. 2003 17:43#22

Ta bort detta: RecSet.open SQL , connect, 1, 3

RassoulMedlem sedan aug. 200321 inlägg

17 sep. 2003 17:56#23

Ja men nu står det:
Feltyp:
Körningsfel i Microsoft VBScript (0x800A01A8)
Objekt krävs.: 'RecSet'
/cd/Default.asp, line 7

RassoulMedlem sedan aug. 200321 inlägg

17 sep. 2003 18:20#24

Fixade det men nu står det:
Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A0404)
'While', 'Until' eller satsslut förväntas.
/cd/defaulta.asp, line 22, column 3
do Loop
--^

Jesper TMedlem sedan nov. 20017 144 inlägg

17 sep. 2003 19:06#25

Nu verkar det vara ett virrvarr av fel, var vänlig och posta din befintliga kod så man ser helheten.
Byter du "recset" till "rs" så måste det självfallet vara konsekvent.
Och du, ta och läs lite här: http://www.webforum.nu/showthread.php?s=&threadid=55116&forumid=22, speciellt den första bulleten.

OveRRidEMedlem sedan feb. 200112 078 inlägg

18 sep. 2003 00:19#26

Kanske lite slarvigt av mig att inte skriva RecSet istället för Rs. :r

<!-- #Include File="adovbs.inc" --> 

<% 
Set connect = Server.CreateObject("ADODB.Connection") 
connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb") 
SQL = "SELECT * FROM [cd]" 
set RecSet = connect.execute(SQL) 
Do Until RecSet.EOF 
%> 

<html> 
<head> 
</head> 
<body text="#000000"> 
<b><img scr="<%=RecSet("Bild")%>" border="0" alt="<%=RecSet("Datum")%>">_CD nr:<%=RecSet("ID")%></b><br> 
Namn:<%=RecSet("Namn")%><br> 
Info:<%=Server.HTMLencode(RecSet("ovrig"))%><br> 
Antal Låtar:<%=RecSet("Latar")%> 
Betyg:<%=RecSet("Betyg")%> 

<% 
RecSet.MoveNext 
Loop 
RecSet.Close 
[b]Set RecSet = nothing[/b]
%> 
<body text="#FFFFFF" bgcolor="#000000">

RassoulMedlem sedan aug. 200321 inlägg

18 sep. 2003 12:05#27

TACK SÅ MYCKET!!!!

RassoulMedlem sedan aug. 200321 inlägg

18 sep. 2003 12:40#28

J***lar nu funkar inte Admin delen...
Felmess:
Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A03FB)
'Loop' förväntas.
/cd/admin_lagtillny.asp, line 24

Lägger jag till Loop får jag ett annat felmess.

Här är admin_lagtillny.asp:

<%
Set connect = Server.CreateObject("ADODB.Connection")
connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")
SQL = "SELECT * FROM [cd]"
set RecSet = connect.execute(SQL)
Do Until RecSet.EOF

RecSet.AddNew
RecSet("Datum") = Now()
RecSet("Ovrig") = Request.Form("text")
RecSet("Namn") = Request.Form("namn")
    If Request.Form("Bild") = "" Then Recset("Bild") = Ingenbild.jpg else
RecSet("Bild") = Request.Form("Bild")
RecSet("Betyg") = Request.Form("Betyg")
RecSet("latar") = Request.Form("Latar")

RecSet.Update
RecSet.Close
Set RecSet = Nothing
connect.Close
Set connect = Nothing
Response.Redirect "default.asp"
%>

OveRRidEMedlem sedan feb. 200112 078 inlägg

18 sep. 2003 22:57#29

Å så kan vi väl åtminstone försöka att använda kod-taggarna?

Du skall väl inte loopa nåt i den där koden. Snarare kolla ifall recset är populerad eller inte.

<!-- #Include File="adovbs.inc" --> 
<% 
Set connect = Server.CreateObject("ADODB.Connection") 
connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb") 
SQL = "SELECT * FROM [cd]" 
set RecSet = connect.execute(SQL) 
if not recset.eof  

RecSet.AddNew 
RecSet("Datum") = Now() 
RecSet("Ovrig") = Request.Form("text") 
RecSet("Namn") = Request.Form("namn") 
If Request.Form("Bild") = "" Then Recset("Bild") = Ingenbild.jpg else 
RecSet("Bild") = Request.Form("Bild") 
RecSet("Betyg") = Request.Form("Betyg") 
RecSet("latar") = Request.Form("Latar") 

RecSet.Update 

end if

RecSet.Close 
Set RecSet = Nothing 
connect.Close 
Set connect = Nothing 
Response.Redirect "default.asp" 
%>