webForumDet fria alternativet

Object required på vissa ställen

ASP

13 svar · 109 visningar · startad av Hazze

Medlem sedan jan. 20002 453 inlägg
Frågan#1

Håller på att sätta samman en liten funktion så att medlemmerna kan uppdatera sin användarprofil. Problemet är när jag ska länka till själva sidan. Använder den här koden:

<% Set Databas2 = Server.CreateObject("ADODB.Connection")
MdbFilePath2 = Server.MapPath("medlemmar.mdb")
Databas2.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath2 & ";"
SQL = "Select * From members Where login = '" & session("namn") & "'"
Set rsAndra = Databas.Execute(SQL)
Response.Write "<a href='installningar.asp'><img src='img/menu/left_5.JPG' border='0' width='136' height='8'></a><br>"%>

Det fungerar på enstaka sidor men på de andra sidorna får jag följande vidriga felmeddelande:

Microsoft VBScript runtime error '800a01a8'

Object required: ''

Någon? :)

------------------
It aint over until the fat lady sings...

[Redigerat av Hazze den 22 jul 2001]

Medlem sedan juni 20019 024 inlägg
#2
<% Set Databas2 = Server.CreateObject("ADODB.Connection")
MdbFilePath2 = Server.MapPath("medlemmar.mdb")
Databas2.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath2 & ";"
SQL = "Select * From members Where login = '" & session("namn") & "'"
[b]Set rsAndra = Databas2.Execute(SQL)[/b]
Response.Write "<a href='installningar.asp'><img src='img/menu/left_5.JPG' border='0' width='136' height='8'></a><br>"%>

databas2 ska det väl vara?

------------------
Peter D

Medlem sedan dec. 20003 563 inlägg
#3

Det ser ut som om du bara öppnat Databas2. Antagligen den ända? ;)

<% 
Set Databas2 = Server.CreateObject("ADODB.Connection")
MdbFilePath2 = Server.MapPath("medlemmar.mdb")
Databas2.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath2 & ";"
SQL = "Select * From members Where login = '" & session("namn") & "'"
Set rsAndra = [b]Databas2.Execute(SQL)[/b]
Response.Write "<a href='installningar.asp'><img src='img/menu/left_5.JPG' border='0' width='136' height='8'></a><br>"
%>

------------------
MVH // Cyprys
Cyprys
Synd att du inte kan köpa en voodoojordglob och sedan snurra på den fort som fan och skrämma skiten ur alla.

[Redigerat av cyprys den 22 jul 2001]

Medlem sedan jan. 20002 453 inlägg
#4

Tack för hjälpen. Borde man ha upptäckt själv :r

------------------
It aint over until the fat lady sings...

Medlem sedan jan. 20002 453 inlägg
#5

Slänger in ett litet problem till här:

Kod:

<% 
Set Databas = Server.CreateObject("ADODB.Connection")
Set rsAndra = Server.CreateObject("ADODB.Recordset")
MdbFilePath = Server.MapPath("medlemmar.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";" 
SQL = "select * from members where login =" & session("namn") 
rsAndra.Open SQL, Databas, 1, 2 
If rsAndra.EOF then %>

Felmeddelande:

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

:q

------------------
It aint over until the fat lady sings...

[Redigerat av Hazze den 22 jul 2001]

Medlem sedan dec. 20003 563 inlägg
#6

Lite fel med fnuttarna där bara

<% 
Set Databas = Server.CreateObject("ADODB.Connection")
Set rsAndra = Server.CreateObject("ADODB.Recordset")
MdbFilePath = Server.MapPath("medlemmar.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";" 
SQL = "select * from members where login ='" & session("namn") &"' "
rsAndra.Open SQL, Databas, 1, 2 
If rsAndra.EOF then 
%>

------------------
MVH // Cyprys
Cyprys
Synd att du inte kan köpa en voodoojordglob och sedan snurra på den fort som fan och skrämma skiten ur alla.

Medlem sedan dec. 200012 464 inlägg
#7

Vilken datatyp har kolumnen login?

Det kanske skall vara

SQL = "select * from members where login ='" & session("namn") & "'"

(som i ditt första inlägg).

------------------
essentitia preter non sans multiplicandum

Medlem sedan jan. 20002 453 inlägg
#8

Fungerar som det ska nu. Danke!
Kan fylla på med ytterligare en liten undran i min frågetråd :)

Håller på med en omröstning. Koden ligger i en includefil och ser ut såhär:

<%	Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver  *.mdb)};dbq=d:\clients\ho\ho\ho\snabbfraga.mdb" Set RecordSet = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT Fraga FROM fraga"   RecordSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>

Felmeddelandet lyder:

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

Precis som i föregående fråga så fungerar omröstningen bara på vissa sidor. Någon? :)

------------------
It aint over until the fat lady sings...

[Redigerat av Hazze den 22 jul 2001]

[Redigerat av Hazze den 22 jul 2001]

Medlem sedan dec. 200012 464 inlägg
#9

Har du inkluderat adovbs.inc eller på annat sätt definierat konstanterna adOpenStatic?

Visa = "SELECT Fraga FROM fraga" RecordSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>

Det går inte att ha flera statement på samma rad så där, i så fall måste du ha ett kolon mellan dem.

------------------
essentitia preter non sans multiplicandum

Medlem sedan juni 20019 024 inlägg
#10

Testa med

Visa = "SELECT Fraga FROM fraga" RecordSet.Open Visa, Connect, 3, 3

------------------
Peter D

Medlem sedan jan. 20002 453 inlägg
#11

Hallå på er och tack för era snabba svar :)

Har gjort de förändringar ni föreslagit, dock utan resultat. Samma felmeddelande.

------------------
It aint over until the fat lady sings...

Medlem sedan dec. 200012 464 inlägg
#12

Saknas en parentes här

Connect.Open "driver={Microsoft Access Driver [b]([/b]*.mdb)};dbq=d:\clients\ho\ho\ho\snabbfraga.mdb"

------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 22 jul 2001]

Medlem sedan jan. 20002 453 inlägg
#13

Hmm... måste försvunnit när jag lade in koden här :)

Någon annan idé?

------------------
It aint over until the fat lady sings...

Medlem sedan jan. 20002 453 inlägg
#14

Struntar helt enkelt i den här omröstningen :)

------------------
It aint over until the fat lady sings...

257 ms totalt · 4 externa anrop · v20260731065814-full.6fe65c25
121 ms — deklarationer (db)
0 ms — hämta statistik (cache)
131 ms — hämta tråd, inlägg och bilagor (db)
123 ms — ändringar (db)