<%
Set rastbag = Server.Createobject("ADODB.Connection")
rastbag.Open (Cumle)
Set rs = Server.Createobject("ADODB.Recordset")
sql = "select * from ziyaretcidefteri where id="& request.querystring("id")
rs.open sql, rastbag, 1, 3
if not rs.EOF then%>
<%end if
rs.close
rastbag.close
set rs=nothing
set rastbag=nothing
%>