WN - Fel i min aspkod?

WN (https://www.wn.se/forum/index.php)

- Serversidans teknologier (https://www.wn.se/forum/forumdisplay.php?f=4)

- - Fel i min aspkod? (https://www.wn.se/forum/showthread.php?t=7723)

tri	2005-05-02 14:11

Försöker att få till en sida som kan länka till en bild på min server. Jag får det här felmeddelandet på min kod
"Microsoft VBScript compilation error '800a03fa'

Expected 'Wend'"

Min kod ser ut som följer "

</head>

<%

set db = Server.CreateObject("ADODB.Connection")
connect="Driver={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("cyklar2.mdb")
db.Open connect
sql = "markeID"
set rs = db.Execute(sql)
while not rs.eof
%>

<%
Dim BNAMN
BNAMN="bild"
%>

<body>
<h2>
<%=rs("modell")%></h2>
<tr>
<td>Modell
<td><%=rs("bild")%></td>
<td><img src=("bild")</td>
</body>"

Vart är felet och är koden rätt för att få fram "bilden"?

Lindahl

2005-05-02 15:05

Felet är precis det som meddelandet säger, du har glömt ett "wend". Du har alltså en while-loop som du inte har avslutat.

Robert

2005-05-03 09:38

det verkar saknas ett stycke kod längre ned. Du bör ju även, innan "wend" stega till nästa record i ditt rs (som exempel då)...

StefanBergfeldt

2005-05-04 09:22

Citat:

<body>
<h2>
<%=rs("modell")%></h2>
<tr>
<td>Modell
<td><%=rs("bild")%></td>
<td><img src=("bild")</td>
</body>"

Du har rader och kolumner i en tabell som inte finns. Detta fungerar säkert bra i IE, men är inte hur man bör göra tabeller. Börja med en <table> och sluta med en </table>
Du skriver ut rs("bild") i en cell. Detta har du gjort på exakt rätt sätt. Har du lagrat sökvägen i databasen är det denna som skrivs ut, har du lagrat bilden, då kommer det att bli knas.
Nästa cell försöker du visa en bild [img]<%=rs([/img]" />

Efter detta borde också ett Wend komma, precis som felmeddelandet säger. Du bör också stänga anslutningen till databasen (efter wend)

Alla tider är GMT +2. Klockan är nu 14:34.