---

i min fil http://www20.brinkster.com/k5th/option1.asp får jeg fejl meddelsen

Microsoft VBScript compilation error '800a03ea'
Syntax error

/k5th/option1.asp, line 59

Else
^

men hvorfor får jeg den fejl jeg kan ingen fejl se i mit script, men ok jeg
er også en amatør.
men nu har jeg siddet og rodet med det hele natten og ville værdsætte jeres
hjælp
mvh Kim

koden fra den angivne fil er: fejlen skulle angive være nede hvor jeg har
markeeret med ***

<%

Set Conn = Server.CreateObject("ADODB.Connection")
DRIVER="{Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/db/addlink.mdb")
Conn.Open DSN ("addlink.mdb")



' SQL forespørgsel
strSQL = "SELECT * FROM link ORDER BY Hits DESC"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set objrs = Conn.Execute(strSQL)


Response.Write "<table class=""FT"" width=""100%"" cellspacing=0
cellpadding=0 border=1>" & vbCrLf
Response.Write "<tr><td width=""20%"" align=left>" & vbCrLf
Response.Write "Name :" & vbCrLf
Response.Write "</td><td width=""10%"" align=center>" & vbCrLf
Response.Write "Hits :" & vbCrLf
Response.Write "</td><td width=""20%"" align=center>" & vbCrLf
Response.Write "Date Added :" & vbCrLf
Response.Write "</td><td width=""50%"" align=left>" & vbCrLf
Response.Write "Description :" & vbCrLf
Response.Write "</td></tr>" & vbCrLf
While Not objRS.EOF

Response.Write "<tr><td width=""20%"" align=left>" & vbCrLf
Response.Write "<a href=""clickcount.asp?id=" & objRS("ID") & Chr(34) & "
target=""_blank"">"
Response.Write objRS("Name")
Response.Write "</a>" & vbCrLf
Response.Write "</td><td width=""10%"" align=center>" & vbCrLf
Response.Write objRS("Hits") & vbCrLf
Response.Write "</td><td width=""20%"" align=center>" & vbCrLf
Response.Write DateFormaterVisual(objRS("Dato"), "Mmmm d. yyyy", False) &
vbCrLf
Response.Write "</td><td width=""50%"" align=left>" & vbCrLf
Response.Write objRS("Des") & vbCrLf
Response.Write "</td></tr>"

objRS.MoveNext
Wend
Response.Write "</table>" & vbCrLf

Else ***
*** *** *** ***
Response.Write "No links found in the database.<br>" & vbCrLf

EndIf

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing

%>

---

"Knerks" <5th@ofir.dk> wrote in
news:3d64b54f$0$64862$edfadb0f@dspool01.news.tele.dk:

> i min fil http://www20.brinkster.com/k5th/option1.asp får jeg fejl
> meddelsen
>
> Microsoft VBScript compilation error '800a03ea'
> Syntax error
>
> /k5th/option1.asp, line 59
>
> Else
> ^
>
> men hvorfor får jeg den fejl jeg kan ingen fejl se i mit script, men ok
> jeg er også en amatør.
> men nu har jeg siddet og rodet med det hele natten og ville værdsætte
> jeres hjælp
> mvh Kim
>
> koden fra den angivne fil er: fejlen skulle angive være nede hvor jeg
> har markeeret med ***
>

<snip/>

Du har jo ingen IF i dit script. Tsk tsk.


--
Klaus Ambrass

IT - Storstrøms Amt
kam@it.stam.dk

---

> Du har jo ingen IF i dit script.
> --
> Klaus Ambrass
>

hmm I know.. anyway løsningen blev bare at slette else.... så kan jeg altid
kigge på problemet senere, lige nu vil jeg bare have det til at virke

nu er jeg så nået lidt længere til næste problem, men det må jeg hellere
pille lidt med selv inden jeg ulejliger jer...