<%

dim con

set con=server.createobject("Adodb.Connection")

serverName = Request.Servervariables("Appl_Physical_Path")

'offline
'con.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & serverName & "good\newsite\db\g07drivers.mdb"

'response.write serverName & "db\g07drivers.mdb"
'response.end
'online
con.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & serverName & "db\g07drivers.mdb"

set rs = Server.CreateObject("ADODB.Recordset")

Function ActivityLog(loginId, userId, linkNm, rights, tableNm, colNm, recId, activity, logdate, updated)

	'-- Insert the Value in the rights Table

	InsertSql = "Insert into activityLog (loginId , userId , linkNm , rights , tableNm , colNm, recId, activity , logdate ,  updated)  values (" & loginId & ", " & userId & ", '" & linkNm & "', '" & rights & "', '"& tableNm & "', '" & colNm & "', " & recId & ", '" & activity & "', '" & logdate & "', '" & updated& "')"

	'response.write InsertSql
	'response.end
'	con.execute(InsertSql)
	
End Function

%>