30. maj 2003 - 16:18
Der er
32 kommentarer og 2 løsninger
Hvor er fejlen i min ASP fil, Hjælp, gerne hurtigt svar
Hej Alle Er der nogen der kan hjælpe med, hvad der er galt i nedenstående fil ??? Connection.asp filen virker godt nok !!! Tusind Tak <!--#include file="connection.asp"--> <html> <head> <title>Vis alle</title> </head> <h1>Information</h1> <% P_kat=Request.QueryString("kat") P_sprog=Request.QueryString("sprog") Dim objRec, DBforbindelse Set DBforbindelse = Server.Createobject("ADODB.Connection") Set objRec = DBforbindelse.execute(strSQL) strSQL = "SELECT * FROM artikel WHERE sprog="& P_sprog & " AND " & "kategori=" & P_kat & "ORDER BY id" Do While Not objRec.EOF Response.Write "<br>" & objRec("overskrift") & "</br>" Response.Write "<br>" Response.Write Replace(objRec("indhold"),Vbcrlf,"<BR>") objRec.MoveNext Response.Write "<br>" Loop objRec.Close Set objRec = Nothing %> </body></html>
Annonceindlæg fra Bluecircle
Slettet bruger
30. maj 2003 - 16:20
#1
Hvilken fejl får du?
Prøv at udkifte linjen strSQL = "SELECT * FROM artikel WHERE sprog="& P_sprog & " AND " & "kategori=" & P_kat & "ORDER BY id" med strSQL = "SELECT * FROM artikel WHERE sprog="& P_sprog & " AND " & "kategori=" & P_kat & " ORDER BY id"
Jeg får følgende fejl: ADODB.Connection error '800a0e78' Operation is not allowed when the object is closed. /hca/artikel-visalle35.asp, line 15
Prøv at åbne din database-forbindelse først .... DBforbindelse.Open Set objRec = DBforbindelse.execute(strSQL) ...
Min connection.asp ser således ud, hvis det kan hjælpe, men den virker fint andre steder !
<%
CONST ConnectionString = "Driver={Microsoft Access Driver (*.MDB)}; DBQ=\\serv001.storage.crusade.dk\data\userdata\d\
www.dresden.dk\databaser\artikler.mdb;UID=;PWD=;" Set DBforbindelse = Server.Createobject("ADODB.Connection")
DBforbindelse.Open ConnectionString
%>
Åbne database forbindelse ???? Gør den ikke det i connection filen ??
Jo, prøv det her <!--#include file="connection.asp"--> <html> <head> <title>Vis alle</title> </head> <h1>Information</h1> <% P_kat=Request.QueryString("kat") P_sprog=Request.QueryString("sprog") Dim objRec Set objRec = DBforbindelse.execute(strSQL) strSQL = "SELECT * FROM artikel WHERE sprog="& P_sprog & " AND " & "kategori=" & P_kat & "ORDER BY id" Do While Not objRec.EOF Response.Write "<br>" & objRec("overskrift") & "</br>" Response.Write "<br>" Response.Write Replace(objRec("indhold"),Vbcrlf,"<BR>") objRec.MoveNext Response.Write "<br>" Loop objRec.Close Set objRec = Nothing %>
Alletiders, MEN - Nu siger den: Siden kan ikke vises ????
Hmm... Mærkeligt. Er du sikker på at du efterspørger artikel-visalle35.asp?
JA, jeg kalder den faktisk således: artikel-visalle35.asp?sprog='dk'&kat='6' Og det var også sådan jeg kaldte den, da jeg ikke havde connection.asp filen med.....
Mit problem er, at filen virkede fint, da jeg havde database kaldet i selve filen, men nu når jeg anvender connection.asp, funker det bare ikke..... ...og det haster bare pokkers meget
Vil du se filen, uden connection.asp linket ??
Hvor ligger filen connection.asp?
Ja ja, det skal jeg nok. Skal bare lige have dette til at fungere.... Tak for opmærksomheden.
Slettet bruger
30. maj 2003 - 16:49
#17
:)
Hvorfor lader du så ikke bare være med at bruge include?
Det er jo fordi, at jeg skal bruge asp filen mange gange, og sker der ændringer eller lign. i database kaldet er det da det smarteste kun at skulle rette et sted !! Er du ikke enig ?
Jo, men hvis det ikke virker?
Hvad skriver den udover "Siden kan ikke vises" ?
Det er den der standard Windows side: Siden kan ikke vises Der er problemer med den side, du prøver at åbne, og den kan ikke vises. ------------------------------------------------------------------------------ Prøv følgende: Klik på knappen Opdater, eller prøv igen senere. Klik på Søg for at søge efter oplysninger på Internettet. Du kan også se en liste over relaterede websteder. HTTP 500 - Intern serverfejl Internet Explorer
Prøv at slå det her fra: IE: Funktioner -> Internetindstillinger -> Avanceret -> Vis meddelser om uskadelige HTTP-fejl
Det var smart ! Nu lyder fejlmeddelsen: Information Microsoft OLE DB Provider for ODBC Drivers error '80040e0c' Command text was not set for the command object. /artikel-visalle35.asp, line 13
Du skal lige havde byttet rundt på disse to linjer, så du får lavet strSQL inden den bliver execute'et Set objRec = DBforbindelse.execute(strSQL) strSQL = "SELECT * FROM artikel WHERE sprog="& P_sprog & " AND " & "kategori=" & P_kat & "ORDER BY id"
Det var det. Mange mange tak. Hilsen en meget glad mand..........
Eagleeye - Vil du ikke lige give et svar, så jeg HURTIGT kan dele point ud !!! ASP-filen kan ikke optimeres mere, vel ??
Optimeres tror jeg ikke men du kan tilføje et par linjer som lukker for forbindelsen til datbasen til sidt i filen, det vil være en god ting. DBforbindelse.Close Set DBforbindelse = Nothing
Optimering: ... Set objRec = DBforbindelse.execute(strSQL) objRec.ActiveConnection = Nothing DBforbindelse.Close Set DBforbindelse = Nothing ...
Det skal altså se ud: <html> <head> <title>Vis alle</title> </head> <h1>Information</h1> <!--#include file="connection.asp"--> <% P_kat=Request.QueryString("kat") P_sprog=Request.QueryString("sprog") Dim objRec strSQL = "SELECT * FROM artikel WHERE sprog="& P_sprog & " AND " & "kategori=" & P_kat & "ORDER BY id" Set objRec = DBforbindelse.execute(strSQL) objRec.ActiveConnection = Nothing DBforbindelse.Close Set DBforbindelse = Nothing Do While Not objRec.EOF Response.Write "<br>" & objRec("overskrift") & "</br>" Response.Write "<br>" Response.Write Replace(objRec("indhold"),Vbcrlf,"<BR>") objRec.MoveNext Response.Write "<br>" Loop objRec.Close Set objRec = Nothing %>
Tak Somaliomar for din hjælp og tålmodighed hele vejen igennem og tusind tak Eagleeye, for dit svar. Håber I er enige i min pointuddeling. Hav en rigtig god week-end begge to. ;-)
Det helt fint med mig, god weekend :)
Kurser inden for grundlæggende programmering