Vise bestemte billeder fra bestemt mappe
Jeg har hundredevis af billeder i en mappe og alle billederne er navngivet efter et bestemt princip:000001_blablabla.jpg
000015_nogetandet.jpg
000015_nogetandet_8888.jpg
000015_blablabla.jpg
000029_nlabla.jpg
000029_xxxxxx.jpg
000301_cccddd.jpg
.
.
.osv
er der en måde der kan bruges så man kun viser nogle bestemte billeder ?
f.eks. alle billeder med ID nr.15 som er tegn nr.5 og 6 i billedfil-navnet.
Jeg har lavet følgende kode hvor jeg kalder ID nr.15, men tegn nr.5 og 6 omdøbes til 15 på alle billederne ??
<%
Dim DBconn
Set DBconn = Server.CreateObject("ADODB.Connection")
DBconn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../dindatabase.mdb")
Dim rs, query
Set rs = Server.CreateObject("ADODB.RecordSet")
query = "SELECT * FROM Medarbejdere WHERE WorkerID=15"
rs.Open query, DBconn
Response.Write "<html>"
Response.Write "<head>"
Response.Write "<title>"
Response.Write "Fotos"
Response.Write "</title>"
Response.Write "<link rel=stylesheet href=""../CSS/style.css"" type=""text/css"">"
Response.Write "</head>"
Response.write "<body>"
Response.Write "<h2><center>"
Response.Write "Ffotos"
Response.Write "</h2>"
ImageDir = "../images/"
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir))
Set objFiles = objFolder.Files
For Each Image In objFiles
If len(rs("WorkerID")) = 1 Then
Response.Write "00000"
ElseIf len(rs("WorkerID")) = 2 Then
Response.Write "0000"
ElseIf len(rs("WorkerID")) = 3 Then
Response.Write "000"
ElseIf len(rs("WorkerID")) = 4 Then
Response.Write "00"
ElseIf len(rs("WorkerID")) = 5 Then
Response.Write "0"
End If
Response.Write left(rs("WorkerID"),6)
Response.Write right((Image.Name), len(Image.Name)-6)
Response.Write "<br/>"
Next
Set objFS = Nothing
RS.Close
DBConn.Close
Set DBConn = Nothing
Response.Write "</body>"
Response.Write "</html>"
%>
