% Set Conne = Server.CreateObject("ADODB.Connection") Conne.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db\besok.mdb") stmSQL = "Insert Into tblbesok (IP) VALUES (" & _ CheckString(Request.ServerVariables("REMOTE_HOST"),")") Conne.Execute(stmSQL) conne.close %>
![]() |
|||||||||||||||||||||||
|
|||||||||||||||||||||||
|
|||||||||||||||||||||||