<% @LANGUAGE="VBScript" %>
<%
dim id
id=request.querystring("id")
dim con, rs,rs1
strMap=Server.MapPath("police.mdb")
Set con = Server.CreateObject("ADODB.Connection")
con.open "PROVIDER = MICROSOFT.JET.OLEDB.4.0; DATA SOURCE=" &strMap
set rs = con.Execute("select * from goodworks where Id=" & id & "")
if rs.eof=true and rs.bof=true then
else
%>
.gif){kind=small}
