%
kul=request.Cookies("cm")("nick")
Set g1 = Server.CreateObject("ADODB.Connection")
g1.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("data4455.mdb"))
Set banka8 = Server.CreateObject("ADODB.Recordset")
baglandir8 = "select * from user where nick='"&kul&"'"
banka8.Open baglandir8,g1,3,3
if banka8.recordcount=0 then Response.Redirect "admin.asp"
%>
.: Uğur Böceği Çocuk Evi :.
<%
ewSqlSelect = "SELECT * FROM [kayan_yazi] "
Const ewSqlWhere = ""
Const ewSqlGroupBy = ""
Const ewSqlHaving = ""
Const ewSqlOrderBy = ""
Const ewSqlKeyWhere = ""
Const ewSqlUserIDFilter = ""
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open xDb_Conn_Str
sSql = ewBuildSql(ewSqlSelect, ewSqlWhere, ewSqlGroupBy, ewSqlHaving, ewSqlOrderBy, sDbWhere, sOrderBy)
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorLocation = 3
rs.Open sSql, conn, 1, 2
rs.MoveFirst
xkayan_yazi = rs("yazi")
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>