'loop' without 'do' fejl i kode
Min nedenstående kode melder fejl:'loop' without 'do'
/brochure.asp, line 77
Loop
Jeg har givetvis ikke styr på de loops der kører gennem. Nogen der kan hjælpe? Fejlen er kommet efter at jeg har indsat If objRs("Sprog") afsnittet.
--- start kode ---
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'Dim variabler
Dim objConn
Dim objRs
Dim strSQL, strPro_Name, strBGColor, strBrochures, Bro_URL, strSprog, strPic
Dim blnBGColor
'Database forbindelse
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("../../../database/products.mdb")
'SQL
strSQL ="SELECT Products.Pro_ID, Products.Pro_Name, Language.Sprog, Brochures.Bro_URL FROM [Language] INNER JOIN (Products INNER JOIN Brochures ON Products.Pro_ID = Brochures.Pro_ID) ON Language.Sprog_ID = Brochures.Sprog_ID WHERE (((Products.Pro_ID)=" & Request.Querystring("pro_id") & "));"
Set objRs = objConn.Execute(strSQL)
If Not (objRs.BOF AND objRs.EOF) Then
Do While Not objRs.EOF
strName = objRs("Pro_Name")
strSprog = objRs("Sprog")
strBro_URL = objRs("Bro_URL")
if OldName <> strName then
strBrochures = strBrochures & "<table width=""100%"" border=""0"" cellpadding=""2"" cellspacing=""1""><tr bgcolor=""#CCCCCC""><td colspan=""2""><b>" & strName & "</b></td></tr><tr bgcolor=""#CCCCCC""><td><b>Sprog</b></td><td><b>URL</b></td></tr>"
OldName = strName
end if
If blnBGColor = True Then
strBGColor = "#FFFFFF"
blnBGColor = False
Else
strBGColor = "#eeeeee"
blnBGColor = True
End If
If objRs("Sprog") = "English" Then
strPic = " <img src=""../../images/flags/english.jpg"" alt=""English"" /> "
Else
If objRs("Sprog") = "Chinese" Then
strPic = " <img src=""../../images/flags/chinese.gif"" alt=""Chinese"" /> "
Else
If objRs("Sprog") = "French" Then
strPic = " <img src=""../../images/flags/french.jpg"" alt=""French"" /> "
Else
If objRs("Sprog") = "Russian" Then
strPic = " <img src=""../../images/flags/russian.jpg"" alt=""Russian"" /> "
Else
If objRs("Sprog") = "Spanish" Then
strPic = " <img src=""../../images/flags/spanish.jpg"" alt=""Spanish"" /> "
Else
If objRs("Sprog") = "German" Then
strPic = " <img src=""../../images/flags/German.jpg"" alt=""German"" /> "
Else
If objRs("Sprog") = "US Format" Then
strPic = " <img src=""../../images/flags/us_format.jpg"" alt=""US Format"" /> "
Else
If objRs("Sprog") = "Italian" Then
strPic = " <img src=""../../images/flags/italian.jpg"" alt=""Italian"" /> "
Else
If objRs("Sprog") = "Danish" Then
strPic = " <img src=""../../images/flags/danish.jpg"" alt=""Danish"" /> "
Else
strPic = ""
End If
strBrochures = strBrochures & "<tr><tr bgcolor="""& strBGColor &"""><td>"&strPic&"</td><td>"&strBro_URL&"</td></tr>"
objRs.MoveNext
if objRs.EOF then
strBrochures=strBrochures & "</table>"
end if
Loop
Else
strBrochures = "<table width=""100%"" border=""0"" cellpadding=""2"" cellspacing=""1""><tr><td>Der er ingen Brochurer!</td></tr></table>"
End If
objConn.Close
Set objConn = Nothing
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
</head>
<body>
<%
Response.Write strBrochures
%>
<p>Bemærk: Brochuren kan åbnes med Adobe Acrobat Reader.</p>
</body>
</html>
--- stop kode ---
