Kodeindsætning i asp
Jeg bruger følgende kode til at hente filmliste fra min database, og billeder fra en mappe:<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/animeredekortfilm.mdb")
Conn.Open DSN
strSQL = "Select * From kortfilm Order by uploaded DESC"
Set rs = Conn.Execute(strSQL)
Do
' Filmens titel
strNavn = rs("Titel")
strID=rs("Id")
If CreateObject("Scripting.FileSystemObject").FileExists(Server.MapPath("/upload/animeredekortfilmpic/"&strID&".jpg")) Then
strPic="<img alt=""Filmbillede"" src=""/upload/animeredekortfilmpic/"&strID&".jpg"" width=""214"" height=""120""> "
Else
strPic="<img alt=""Intet filmbillede"" src=""/upload/animeredekortfilmpic/nopic.jpg"" width=""214"" height=""120""> "
End If
' Liste med links
Response.Write "<tr valign=""top""><td><a href=""animeredekortfilm-x.asp?id="&strID&""">"&strPic&"</a></td><td><a href=""animeredekortfilm-x.asp?id="&strID&""">"&strNavn&"</a></td></tr>"
rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing
%>
Men jeg har også en beskrivelse om hver film i min database. Men kan bare ikke se hvor jeg skal indsætte "respons.write
rs("beskrivelse") henne. Beskrivelsen skal stå lige under filmtitlen med størrelse 10pt.
Du kan se filmlitsn på: www.liqnet.dk/kortfilm/animeredekortfilm.asp
Håber i kan hjælpe!
