Det kan måske være noget med din connection til din database. Desuden står der at fejlen er i linie 1378. Check hvad der står, ret det fejl og fortsæt så til koden er fejlfri. "Ellers må du jo poste den her".
<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open ConnectString SQLQuery = "SELECT * FROM Menu ORDER BY Sort" Set List = Conn.Execute(SQLQuery) Do While Not List.EOF
ThisIsALink = FALSE
Tekst = List("Overskrift")
If Left(Tekst,1) = "_" Then Tekst = Right(Tekst,Len(Tekst)-1) Else If InStr(UCase(Tekst),"HTTP") Then ThisIsALink = TRUE Link = Txt2HTML(Tekst) End If End If %>
Det er en bid fra et CMS system. Webhotellet hævder at de ikke har ændret services eller noget som helst på serveren, men fra den ene dag til den anden fik jeg denne fejl.
<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open ConnectString SQLQuery = "SELECT * FROM [Menu] ORDER BY [Sort]" Set List = Conn.Execute(SQLQuery) While Not List.EOF
ThisIsALink = FALSE
Tekst = List("Overskrift")
If Left(Tekst,1) = "_" Then Tekst = Right(Tekst,Len(Tekst)-1) Else If InStr(UCase(Tekst),"HTTP") Then ThisIsALink = TRUE Link = Txt2HTML(Tekst) End If End If List.MoveNext() Wend %>
Jeg kan ikke helt vurdere om ændringerne kan bruges. Det er jo et færdigt system som der køre mange kopier af og normalt har kunden ikke afgang til koden, så jeg tror ikke jeg vil ændre den.
Jeg har lige prøvet at uploade en access database fra et andet site (også samme CMS) og nu virker det. Access databasen er altså korrupt på en eller anden måde. Data er intakte og jeg kan åbne den i Access. Er der en måde jeg kan "køre en stavekontrol" :-) eller lappe den på en anden måde?
Nå, det hjalp ikke noget, men nu ved jeg at det er databasen som er busted så jeg må uploade en frisk. Kan man replikere en fejlfri kopi? Ellers er der dømt copy-paste :-)
Du kan forsøge at eksporterer data fra den ødelagte til en ny. Funktionen ligger under filer. Det er jo ikke sikkert det vil virke når nu den er ødelagt. I så fald tror jeg du må copy/paste.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.