Hente 2 forskellige billeder
Jeg har oprettet en database med felterne ID - File Name - File DataJeg lægger nu billeder ind:
ID File Name File Data
Billede 1: 01 simsen bla bla
Billede 2: 02 th_simsen bla bla
Det skal siges at billede 2 er en thumbnail billede af billede 1.
Jeg henter nu alle data (undtaget file data altså selve billedet) om hver enkelt reccord i databasen med nedenviste fil:
<!-- #include file="protect.inc" -->
<%
' -- show.asp --
' Generates a list of uploaded files
Response.Buffer = True
' Connection String
Dim connStr
Dim taeller
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("blomst.mdb")
%>
<html>
<head>
<!-- Minus AutoDato -->
<title>Brugerside</title>
<META NAME="Generator" CONTENT="Stone's WebWriter 3.5">
<LINK HREF="../../Stylesheets/Stylesheet.css" REL="stylesheet" TYPE="text/css">
</head>
<body leftmargin="0" marginwidth="0" topmargin="0" marginheight="0" text="white" link="white" vlink="#6495ed" alink="aqua">
<center>
<H1><B> lalitha</B></H1>
</center>
<center><IMG SRC="../../Billeder/AdskilTop.gif" BORDER="0" WIDTH="450" HEIGHT="38" ALIGN="bottom" ALT=""></center><br>
<table width="600" border="1" align="center">
<%
' Recordset Object
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
' opening connection
rs.Open "select [ID],[File Name],[File Size],[Content Type]," & _
"[Kategori] from Files Where [File Name] Like 'th_%' And [Kategori] Like 'th-1Med'" & _
"order by [Kategori] asc", connStr, 3, 4
If Not rs.EOF Then
Response.Write "<tr>"
taeller=0
While Not rs.EOF
taeller=taeller+1
taellernavn=taellernavn+1
Response.Write "<td align=""center"">"
Response.Write "<a href=""file.asp?ID=" & rs("ID") & """>"
Response.Write "<img src=""file.asp?ID=" & rs("ID") & """>" & "<br>"
Response.Write "</a>"
If taeller=5 Then
taeller = 0
Response.Write "</td></tr></table><table width=""600"" border=""1"" align=""center""> <tr><td align=""center"">"
End If
rs.MoveNext
Wend
Response.Write "</td></tr>"
Else
Response.Write "No Record Found"
End If
rs.Close
Set rs = Nothing
%>
</table>
</body>
</html>
Inde i ovennævnte fil henter jeg så selve billedet (File Data med nedennævnte fil)
<%
' -- file.asp --
' Retrieves binary files from the database
Response.Buffer = True
' ID of the file to retrieve
Dim ID
ID = Request("ID")
' Connection String
Dim connStr
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("blomst.mdb")
' Recordset Object
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
' opening connection
rs.Open "select [File Data],[Content Type] from Files where ID = " & _
ID, connStr, 2, 4
If Not rs.EOF Then
Response.ContentType = rs("Content Type")
Response.BinaryWrite rs("File Data")
End If
rs.Close
Set rs = Nothing
%>
Ovenståen virker perfekt - var det ikke liiiiiiige for det lille problem - at jeg vil ikke have, når jeg trykker på linket, at den skal hente thumbnailen frem altså th_simsen men derimod billedet simsen frem.
Nogen der kan forklare mig, hvordan jeg får den kringlet?
simsen :-)
