<% r = request.querystring("r") 'regcode d = request.querystring("d") 'regcode at = request.querystring("at") 'authorized today pt = request.querystring("pt") 'pending today bt = request.querystring("bt") 'banned today asz = request.querystring("asz") 'authorized size ps = request.querystring("ps") 'pending size bs = request.querystring("bs") 'banned size SQL = "INSERT INTO stats(RegisterID,StatisticsDate,AuthorizedToday,PendingToday,BannedToday, " & _ "AuthorizedSize,PendingSize,BannedSize) VALUES(" & r & ",'" & d & "'," & at & "," & pt & _ "," & bt & "," & asz & "," & ps & "," & bs & ")" 'response.write SQL & "

" set cn = createobject("ADODB.Connection") cn.open myDSN on error resume next cn.Execute SQL strReturn = err.number if strReturn <> "0" then strReturn = strReturn & " " & err.description response.write strReturn set cn=nothing set rs=nothing %>