<%@ Language=VBScript %> <% '==================================================================================// ' ISugest.com ' Portfolio owner's Acting image ' Copyright 2006 ISugest.com ' Developed and Designed by DPITL '=================================================================================// 'On Error Resume Next Response.Buffer = True intid = 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 ID='"& intid &"' 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 %>