<%@ Language=VBScript %> <% '==================================================================================// ' ISugest.com ' Portfolio owner's Collection Acting image ' Copyright 2006 ISugest.com ' Developed and Designed by DPITL '=================================================================================// 'On Error Resume Next Response.Buffer = True strCat_ser = Trim(Request("imd")) Set objDataconn = Server.CreateObject("ADODB.connection") objDataconn.Open Application("SERVICE_ConStr"),Application("SERVICE_RunUsr"),Application("SERVICE_PassWod") Set objDatarecs = Server.CreateObject("ADODB.recordset") strSQLR ="SELECT IMAGE FROM TBLTRANS_ACTING_IMAGES WHERE CATEGO_SERI='"& strCat_ser &"' AND STATUS='Y'" objDatarecs.Open strSQLR,objDataconn If Not objDatarecs.EOF then Response.ContentType = "image/jpeg" Response.BinaryWrite objDatarecs.Fields("IMAGE") Else Response.Redirect("../../../images/imgPrevie_not.jpg") End if %>