strSQL = "SELECT DISTINCT titel, bild FROM bio WHERE vecka = " & vecka & ""
Frågan#1
Hej!
Behöver hjälp med att plocka ur lite saker ur en databas. Funktionen som jag behöver hjälp med skall plocka ur titel och bild på olika filmer som går under den aktuella veckan. Problemet är att samma film går flera gånger i veckan, men jag vill bara ha bilden och titeln en gång.
Kolla här för att se sidan.
Koden jag använder idag ser ut såhär:
<%
Set Databas = Server.CreateObject( "Adodb.Connection" )
Databas.Provider = "Microsoft.Jet.OLEDB.4.0"
MdbFilePath = Server.MapPath( "/db/bio.mdb" )
Databas.ConnectionString = "Data Source='" & MdbFilePath & "'"
Databas.open
vecka = DatePart("WW", now(),vbMonday,vbFirstFourDays)
strSQL = "SELECT * FROM bio WHERE vecka = " & vecka & ""
Set objRS = Databas.Execute(strSQL)
If ObjRS.EOF then
response.write""
else
response.write "<table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='100%' id='AutoNumber1'>"
response.write "<tr>"
Do Until objRS.EOF
response.write "<td width='*%' align='center'><img border='1px' border-color='#000000' src=" & objRS("bild") & "><br><br>"
response.write "<a href='javascript:popup(""info.asp?titel=" & titel & """,320,200);' class=""bio"">" & objRS("titel") & "</td>"
objRS.MoveNext
Loop
Set objRS = Nothing
response.write "</tr>"
response.write "</table>"
END IF
%>
Tack//
