Mobildiskotek Tree-d

	MOBILDISKOTEK TREE-D
	Velkommen til MOBILDISKOTEK TREE-D ! TRYK HER FOR AT STARTE SIDEN. MOBILDISKOTEK TREE-D Opdateret 07. Oktober 2009

ADMIN <% '*********************************STATESTIK MODULET STARTER HER***************************************** DIM testvar1 DIM testvar2 DIM bruger_fra DIM bruger_data bruger_data = (Request.Servervariables("ALL_RAW")) testvar1 = instr( bruger_data, "www") testvar2 = instr( bruger_data, "User-Agent") if testvar1 = 0 then Response.Redirect "forside.html" if testvar2 = 0 then Response.Redirect "forside.html" bruger_fra = mid( bruger_data, testvar1, testvar2-testvar1) Dim adoCon 'Holds the Database Connection Object Dim rsAddComments 'Holds the recordset for the new record to be added to the database Dim strSQL 'Holds the SQL query for the database dim dummy dummy = "." Set adoCon = Server.CreateObject("ADODB.Connection") adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("reguser.mdb") Set rsAddComments = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM webreg;" rsAddComments.CursorType = 2 rsAddComments.LockType = 3 rsAddComments.Open strSQL, adoCon rsAddComments.AddNew rsAddComments.Fields("PRE_HTTP") = bruger_fra 'rsAddComments.Fields("RESO") 'rsAddComments.Fields("BROWSER") rsAddComments.Fields("DATE") = FormatDateTime(Now, vbLongDate) rsAddComments.Fields("TIME") = FormatDateTime(Now, vbShortTime) rsAddComments.Fields("F1") = Request.Servervariables("REMOTE_ADDR") rsAddComments.Fields("F2") = Request.Servervariables("LOCAL_ADDR") rsAddComments.Fields("F3") = Request.Servervariables("HTTP_ACCEPT_LANGUAGE") 'Write the updated recordset to the database rsAddComments.Update 'Reset server objects rsAddComments.Close Set rsAddComments = Nothing Set adoCon = Nothing 'Response.Redirect "forside.html" %>