<%  Dim Ip,number,mobiletype,loca,uri  Dim Conn,Sql,Rs  Ip=Request.ServerVariables("REMOTE_ADDR")  uri=Request.ServerVariables("PATH_INFO")  number1=Request.ServerVariables ( "HTTP_x-up-calling-line-id" )  mobile1=Request.ServerVariables ( "HTTP_User-Agent" )  number = Right(number1,Len(number1)-2)   mobile2 = Split(mobile1,"/")  mobiletype=mobile2(0)  loca=Request.Cookies( "CUI" )  Sql="Select * From Visitor order By Id DESC"  Rs.Open Sql,Conn,1,3  Rs.Addnew  Rs("SDate")=date  Rs("STime")=time  Rs("IP")=Ip  Rs("UserNo")=number  Rs("MobileType")=mobiletype  Rs("CUI")=loca  Rs("URI")=uri  Rs.Update  Rs.Close  Conn.Close  Set Rs=Nothing  Set Conn=Nothing  %>