If objRs - indsæt flag til hvert sprog
Jeg laver et udtræk fra en database. I stedet for at skrive hvilket sprog, brochuren er på, vil jeg vise det respektive flag.Nedenstående kode indsætter kun "det sidste flag" fra min "If og then" kode.
Hvordan får jeg lavet koden således at den indsætter alle de flag, der måtte være brug for? Flaget skal smides i strPic feltet.
Tak på forhånd for hjælpen!
--- 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") = "French" Then
strPic = " <img src=""../../images/icons/french.gif"" alt=""French"" /> "
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 ---
