<%
'head=request.querystring("tit")
'response.write head
dim rs
set rs=server.CreateObject("adodb.recordset")
rs.open " select * from imgsrc ",con,1,3
' where heading='"& head &"'",con,1,3
if rs.recordcount > 0 then
'response.write "record is there"
do while not rs.eof
%>