<%
dbconn.close()
Set dbconn=Nothing
Set db = server.createObject("ADODB.Connection")
db.open "Provider=SQLOLEDB.1;Password=ray3749;Persist Security Info=True;User ID=ray;Initial Catalog=lcasino;Data Source=211.51.63.199"
my_ip=request.servervariables("remote_addr")
my_referer=request.servervariables("http_referer")
csql="select count(conn_idx) as ccount from new_count where conn_ip='"& my_ip&"' and conn_time >= convert(datetime, dateadd(hh, -1, getdate())) and conn_site='파란여행'"
set crs=db.execute(csql)
ccount=crs("ccount")
crs.close()
set crs=nothing
if ccount=0 then
isql="insert into new_count(conn_ip,conn_time,conn_site,conn_refe) values ( "
isql=isql&" '"& my_ip &"', "
isql=isql&" getdate(), "
isql=isql&" '파란여행', "
isql=isql&" '"& my_referer &"') "
db.execute(isql)
end If
db.close()
Set db=Nothing
%>