<% SET MydB=Server.CreateObject("ADODB.connection") Set Myrs=Server.CreateObject("ADODB.Recordset") Set Myrs2=Server.CreateObject("ADODB.Recordset") MyCon="Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../TEKNO.MDB") MySql="SELECT * FROM SAYAC" MySql2="SELECT COUNT(*) FROM SAYAC" MyDb.Open MyCon MyRs.Open MySql,MyDb,1,3 MyRs2.Open MySql2,MyDb,1,3 MyRs.AddNew MyRs("IP")=Request.ServerVariables("Remote_ADDR") MyRs("ISLEMZAMANI")=Now() MyRs.Update %>
.::: E-Learning Girişi :::.
Kullanıcı : 
Şifre :