Web Development

<%<br />
response.Expires = 0<br />
response.Buffer = TRUE<br />
response.Clear<br />
<br />
Dim rsImage<br />
Dim intImageID <br />
Dim conn<br />
<br />
intImageID = Clng(Request.QueryString("ImageID"))<br />
<br />
<br />
Dim strSQL<br />
<br />
strSQL = "SELECT * FROM Images WHERE id_image = " & intImageID <br />
Set rsImage = Server.CreateObject("ADODB.Recordset")<br />
Set conn = Server.CreateObject("ADODB.Connection")<br />
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("Database/BSGWebsite.mdb")<br />
rsImage.Open strSQL, conn<br />
<br />
Response.ContentType = "image/jpeg"<br />
<br />
Response.BinaryWrite rsImage("image")<br />
<br />
response.End<br />
rsImage.Close<br />
Set rsImage = Nothing <br />
%>