H Hazze Medlem sedan jan. 2000 2 453 inlägg Frågan 22 juli 2001 12:53 #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]
Pace Medlem sedan juni 2001 9 024 inlägg <% 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
cyprys Medlem sedan dec. 2000 3 563 inlägg 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]
H Hazze Medlem sedan jan. 2000 2 453 inlägg Tack för hjälpen. Borde man ha upptäckt själv :r
------------------
It aint over until the fat lady sings...
H Hazze Medlem sedan jan. 2000 2 453 inlägg 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]
cyprys Medlem sedan dec. 2000 3 563 inlägg 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.
L LarsG Medlem sedan dec. 2000 12 464 inlägg 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
H Hazze Medlem sedan jan. 2000 2 453 inlägg 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]
L LarsG Medlem sedan dec. 2000 12 464 inlägg 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
Pace Medlem sedan juni 2001 9 024 inlägg Testa med
Visa = "SELECT Fraga FROM fraga" RecordSet.Open Visa, Connect, 3, 3
------------------
Peter D
H Hazze Medlem sedan jan. 2000 2 453 inlägg 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...
L LarsG Medlem sedan dec. 2000 12 464 inlägg 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]
H Hazze Medlem sedan jan. 2000 2 453 inlägg 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...
H Hazze Medlem sedan jan. 2000 2 453 inlägg Struntar helt enkelt i den här omröstningen :)
------------------
It aint over until the fat lady sings...