Steg 1.

Länkning

<%
'Strvalue = bildnummer
'StrUser=Namn mm

Response.Write""
%>

Steg 2.

Sparas som viewimage.asp

<%
StrImageId = Request.QueryString("img")
If StrImageId<>"" Then
StrSQL="SELECT bild FROM bild_tbl WHERE nyckel ='"& StrImageId &"'"
Connect.Open(ConnStr)
Set RecSet=Connect.Execute(StrSQL)
Response.BinaryWrite (RecSet("bild"))
RecSet.Close
Connect.Close
Set RecSet = Nothing
End If
%>