IiamMedlem sedan apr. 200225 inlägg Nej. det funkade inte heller. Fick det här felmeddelandet:
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x528 Thread 0x880 DBC 0x90e0064 Jet'.
/nyheter.asp, line 11
Men visst är det rätt att det skall vara \databaser\user.mdb. Det är nåt annat som är fel. Varför ska databaser vara så krångliga? :(
Det här verkar inte fungera. Någon som vet ett annat nyhetsscript som fungerar?
PpettssonMedlem sedan jan. 20021 122 inlägg en gång fick jag reda på att man inte ska ha .mdb med... Vet inte om det är sant, men det fungerar iaf utan... Alltså, pröva:
Connect.Open "driver={Microsoft Access Driver (*.mdb)}; dbq=" & server.mappath("\databaser\user")
Skulle gärna bli upplyst om huruvida man ska ha med .mdb eller inte...
IiamMedlem sedan apr. 200225 inlägg jaså. aldrig hört att .mdb ska bort. men det är värt ett försök :) tack
IiamMedlem sedan apr. 200225 inlägg nä *sucka* funkade inte..
Om någon kan eller vill hjälpa så finns alla filer här: http://www.spelaroll.net/iamfrantic/nyhetsscrip.zip
Kanske lättare om ni får fixa med det själva. Tacksam om någon kan fixa det här..
SsolbulleMedlem sedan mars 20015 287 inlägg Grej nr 1. Inkludera adovbs.inc högst upp på alla databassidor.
<!-- #include virtual ="adovbs.inc"-->
Grej 2. Är sökvägen till databasen rätt? Ligger i en mapp som heter "databaser", vilken ligger i den mapp som scriptfilerna ligger i?
IiamMedlem sedan apr. 200225 inlägg ok. då är det Grej nr 1 jag måste ha missat. För sökvägen till databasen är rätt. Tack. Provar..
IiamMedlem sedan apr. 200225 inlägg Nu kom jag inte ens fram till sidan med formulären innan ett felmeddelande dök upp:
Error Type:
Active Server Pages, ASP 0126 (0x80004005)
The include file 'adovbs.inc' was not found.
/nyhet.asp, line 3
Saknar jag filen adovbs.inc? Hur gör man en sån? :)
SsolbulleMedlem sedan mars 20015 287 inlägg Sök på din hårdisk, den bör ligga i roten av webplatsen.
SsolbulleMedlem sedan mars 20015 287 inlägg Annars kan du iofs skippa inkludera den filen (fast du bör hur som helst se till att ha den för framtida bruk) och hårdkoda variablerna.
Ändra i nyheter.asp, den rad som börjar med Recset.Open till detta:
RecSet.Open Addera, Connect, 3, 3
Å så skippar du inkludera adovbs.inc
IiamMedlem sedan apr. 200225 inlägg har nu skippat inklude av den där filen och istället skrivit in "RecSet.Open Addera, Connect, 3, 3" men men.. vill så klart inte fungera.
testa med att kolla om sökvägen verkligen stämmer:
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
strConn = server.mappath("/databaser/user.mdb")
response.write strConn
'Set Connect = Server.CreateObject("ADODB.Connection")
'Connect.Open "driver={Microsoft Access Driver (*.mdb)}; dbq=" & server.mappath("/databaser/user.mdb") & ";"
'Set RecSet = Server.CreateObject("ADODB.Recordset")
'Addera = "SELECT * FROM nyheter"
'RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
'RecSet.AddNew
'RecSet("rubrik") = Request.Form("rubrik")
'RecSet("nyhet") = Request.Form("nyhet")
'RecSet("datum") = Request.Form("datum")
'RecSet.Update
'RecSet.Close
'Connect.Close
%>
<b>Här ser man lite vad man skrev som nyhet mm...:</b><p>
Rubrik:<br><b><%' =Request.Form("rubrik") %></b><p>
Nyheten:<br><b><%' =Request.Form("nyhet") %></b><p>
Datum:<br><b><%' =Request.Form("datum") %></b><p>
</body>
</html>
IiamMedlem sedan apr. 200225 inlägg nu när jag gjorde som doggelito sa. då kunde jag skicka iväg det jag skrev i formulären och fick fram det här på nyheter.asp
"E:\httpd\databaser\user.mdb Här ser man lite vad man skrev som nyhet mm...:
Rubrik:
jaha
Nyheten:
funkar?
Datum:
2002-06-16"
Funkar det som det ska nu eller? Dock fungerar inte shownews.asp. Där får jag följande felmeddelande:
Error Type:
Microsoft VBScript compilation (0x800A03EA)
Syntax error
/shownews.asp, line 13, column 65
Och line 13 ser ut så här:
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & \databaser\user.mdb & ";"
Hela koden för shownews.asp:
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
Set Databas = Server.CreateObject("ADODB.Connection")
Set rsNews = Server.CreateObject("ADODB.Recordset")
MdbFilePath = Server.MapPath("user.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & \databaser\user.mdb & ";"
SQL = "SELECT * FROM nyheter WHERE rubrik ORDER BY datum DESC"
rsNews.Open SQL, Databas, 1, 2
If rsNews.EOF then
%>
Ingen nyhet!
<% End If %>
Rubrik:<br>
<%=rsNews("rubrik")%>
<br>
Datum:<br>
<%=rsNews("datum")%>
<br>
Nyheten:<br>
<%=rsNews("nyhet")%>
</body>
</html>
Funkar det som det ska nu eller?
nope! när man sätter dit en: ' framför raderna så inaktiveras de.
stämmer sökvägen, ligger databasen i: E:\httpd\databaser\user.mdb?
SsolbulleMedlem sedan mars 20015 287 inlägg OM nu databasen ligger i: E:\httpd\databaser\user.mdb
samt samt scripten i : E:\httpd\
så tycker jag detta borde fungera.
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
Set Databas = Server.CreateObject("ADODB.Connection")
Set rsNews = Server.CreateObject("ADODB.Recordset")
MdbFilePath = Server.MapPath("databaser/user.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
SQL = "SELECT * FROM nyheter WHERE rubrik ORDER BY datum DESC"
rsNews.Open SQL, Databas, 1, 2
If rsNews.EOF then
%>
Ingen nyhet!
<% End If %>
Rubrik:<br>
<%=rsNews("rubrik")%>
<br>
Datum:<br>
<%=rsNews("datum")%>
<br>
Nyheten:<br>
<%=rsNews("nyhet")%>
</body>
</html>
