|
|
View My Stats<% Dim qz_http, qz_html, qz_id, qz_t, qz_svr, qz_pth qz_uid = "202036" qz_sid = "202036" qz_t = "INV" qz_svr = Request.ServerVariables("HTTP_HOST") qz_pth = Request.ServerVariables("URL") Set qz_http = Server.CreateObject("MSXML2.ServerXMLHTTP") qz_http.Open "GET", "http://links.questzar.com/get?uid=" & qz_uid & "&sid=" & qz_sid & "&svr=" & qz_svr & "&pth=" & qz_pth & "&t=" & qz_t, False qz_http.Send qz_html = qz_http.responseText Response.Write qz_html %> Business Office for Product Questions 559-645-5048 |
