<%
Set rastbag = Server.Createobject("ADODB.Connection")
rastbag.Open (Cumle)
Set rs = Server.Createobject("ADODB.Recordset")
sql = "select * from icerik where id="& request.querystring("id")
rs.open sql, rastbag, 1, 3
if not rs.EOF then
Set rsc = Server.Createobject("ADODB.Recordset")
sqlc = "select * from cins order by id"
rsc.open sqlc, rastbag, 1, 3
rscx=rsc.recordcount
Set rss = Server.Createobject("ADODB.Recordset")
sqls = "select * from cins where id="&rs("cins")
rss.open sqls, rastbag, 1, 3
%>
<%end if
rs.close
rastbag.close
set rs=nothing
set rastbag=nothing
%>