<%
if Len(Session("id"))= 0 then
Response.redirect "default.asp"
end if
%>
Untitled Document
<%
veri = "Driver={Microsoft Access Driver (*.mdb)}; dbq=" & server.mappath("" & Ayar_DbYol & "")
set data = Server.CreateObject("adodb.connection")
set rs = Server.CreateObject("adodb.recordset")
data.open veri
sql = "Select * from Admin Where id = 1"
rs.Open Sql, veri, 1, 3
user = rs("name")
pass = rs("password")
rs.close
%>