<%

Set dbConn2 = Server.CreateObject("ADODB.Connection")
	dbConn2.ConnectionTimeout = 10000
	dbConn2.CommandTimeout = 10000
	dbConn2.CursorLocation = 3
	dbConn2.Open "DRIVER={SQL Server};SERVER=localhost;DATABASE=tracking;UID=adtracker2;PWD=trackme3!;"

'insert tracking

trackgatewaySQL = "insert into [trackgateway_" & today & "] " _
     & "(radioID, " _
     & "gatewayID, " _ 
     & "listenerIP, " _
     & "date_entered, " _
     & "time_entered, " _
     & "streamPage, " _
     & "city, " _
     & "region, " _
     & "country, " _
     & "metroCode, " _
     & "OS, " _
     & "ua, " _
     & "wmpVer, " _
     & "streamType," _
     & "FlashVer, " _
     & "Broadband, " _
     & "heightAvail, " _
     & "height, " _
     & "widthAvail, " _
     & "width, " _
     & "br, " _
     & "brVer)" _
     & "values " _
     & "(" & id & ", " _
     & "'" & gatewayID & "', " _
     & "'" & listenerIP & "', " _
     & "'" & date_entered & "', " _
     & "'" & whattimeisit & "', " _
     & "'" & page & "'," _
     & "'" & city & "', " _
     & "'" & region & "', " _
     & "'" & country & "', " _
     & "'" & metroCode & "', " _
     & "'" & os & "', " _
     & "'" & strUA & "', " _
     & "'" & wmpVer & "', " _
     & "'wmp', " _
     & "'" & FlashVer & "', " _
     & "'" & Broadband & "', " _
     & "'" & heightAvail & "', " _
     & "'" & height & "', " _
     & "'" & widthAvail & "', " _
     & "'" & width & "', " _
     & "'" & br & "', " _
     & "'" & brVer & "')"

dbConn2.Execute(trackgatewaySQL)

%>