Scale doesn't appear to be accurate

Neil Davidson

Jesse,

Sorry for the delay in getting back to you - we've been having problems with
Internet access. I believe that Tom Harris has replied to you directly about
the issue you are having. If you have any other questions, please feel free
to get back in touch.

Yours,

Neil Davidson

"Jesse Wade" <jwade@rubytuesday.com> wrote in message
news:aE0b8qyiCHA.1132@server53...
> Why do I only see the results of 3 fake web-users when I choose a scale of
> 10?
>
> Below is the script I'm using but I don't think you can hit it outside our
> firewall...
>
> Imports System
>
> Imports System.Data
>
> Imports System.Data.SqlClient
>
> Imports RedGate.Ants.Engine
>
> Public Class BrowserClient1
>
> Inherits Control.VirtualClient
>
> Protected Overrides Sub Run()
>
> ' Script created with Internet Explorer on 11/12/2002 5:06:13 PM
>
> ' Random pause of between and 1 and 2 seconds
>
> ' (Remove this line if you want all scripts to start at the same time)
>
> RandomSleep(1000, 2000)
>
> Dim dr As SqlClient.SqlDataReader
>
> Dim con As SqlClient.SqlConnection
>
> Dim cmd As SqlClient.SqlCommand
>
> Dim sSQL As String
>
> Dim lVal As Long
>
> sSQL = "SELECT max(InvoiceId) FROM Invoice"
>
> con = New
SqlClient.SqlConnection("server=ALDEVSRV01;database=Inventory;User
> ID=InventoryServer;Password=iloveinventory;Max Pool Size=75;Min Pool
> Size=5;")
>
> con.Open()
>
> cmd = New SqlClient.SqlCommand(sSQL, con)
>
> dr = cmd.ExecuteReader
>
> dr.Read()
>
> lVal = Convert.ToInt32(dr.GetValue(0)) + 1
>
> dr.Close()
>
> dr = Nothing
>
> con.Close()
>
> con = Nothing
>
> WebClient.HttpRequest.ProtocolVersion = "HTTP/1.1"
>
> WebClient.HttpRequest.UserAgent = "Mozilla/4.0 (compatible; MSIE 6.0;
> Windows NT 5.0; .NET CLR 1.0.3705)"
>
> WebClient.Get("http://aldevsrv01/inventory")
>
> WebClient.Get("http://aldevsrv01/inventory/")
>
> WebClient.Get("http://aldevsrv01/inventory/css/inventory.css")
>
> WebClient.Get("http://aldevsrv01/inventory/images/header.gif")
>
> WebClient.Get("http://aldevsrv01/inventory/images/bar.gif")
>
> WebClient.Get("http://aldevsrv01/inventory/images/spacer.gif")
>
> WebClient.Get("http://aldevsrv01/inventory/images/spacer.gif")
>
>
WebClient.Get("http://aldevsrv01/inventory/images/HPtransCurveNoBottom22x21.
> gif")
>
> Sleep(8203)
>
> BeginPage("http://aldevsrv01/inventory/Store/InvoiceList.aspx")
>
> WebClient.Get("http://aldevsrv01/inventory/Store/InvoiceList.aspx")
>
>
WebClient.Get("http://aldevsrv01/aspnet_client/system_web/1_0_3705_0/WebUIVa
> lidation.js")
>
> EndPage("http://aldevsrv01/inventory/Store/InvoiceList.aspx")
>
> ' End of page 1 contains 10 request(s).
>
> WebClient.HttpRequest.Pragma = "no-cache"
>
> WebClient.HttpRequest.AddPostData("__EVENTTARGET", "lnkNewInvoice", False)
>
> WebClient.HttpRequest.AddPostData("__EVENTARGUMENT", "", False)
>
> WebClient.HttpRequest.AddPostData("__VIEWSTATE", WebClient.ViewState,
False)
>
> WebClient.HttpRequest.AddPostData("cboVendorLocation", "-1", False)
>
> WebClient.HttpRequest.AddPostData("txtInvoiceNumber", "", False)
>
> WebClient.HttpRequest.AddPostData("txtBeginDate", "11%2F5%2F2002", False)
>
> WebClient.HttpRequest.AddPostData("txtEndDate", "11%2F12%2F2002", False)
>
> WebClient.Post("http://aldevsrv01/inventory/Store/InvoiceList.aspx")
>
> WebClient.Get("http://aldevsrv01/inventory/Store/InvoiceEntry.aspx")
>
> WebClient.HttpRequest.Pragma = Nothing
>
> WebClient.Get("http://aldevsrv01/inventory/images/go.gif")
>
> WebClient.Get("http://aldevsrv01/inventory/images/titlecurve.gif")
>
> WebClient.HttpRequest.UserAgent = "MSMSGS"
>
>
WebClient.Get("http://svcs.microsoft.com/svcs/mms/tabs.asp?Plcid=0409&Versio
> n=4.6&CLCID=0409&BrandID=MSMSGS&Country=US")
>
> WebClient.Get("http://www.expedia.com/eta/tab_plane01.png")
>
>
WebClient.Get("http://svcs.microsoft.com/svcs/mms/adxml_main.asp?Version=4.6
>
&Plcid=0409&CLCID=0409&BrandID=MSMSGS&country=US&PUID=00037ffe84aa160d&rando
> m=18493578")
>
>
WebClient.Get("http://arc6.msn.com/ADSAdClient31.dll?GetAd?PG=IMSCB1?SC=HF?P
> UID=00037ffe84aa160d?AN=1.18493578")
>
> WebClient.HttpRequest.Pragma = "no-cache"
>
> WebClient.HttpRequest.UserAgent = "Mozilla/4.0 (compatible; MSIE 6.0;
> Windows NT 5.0; .NET CLR 1.0.3705)"
>
> WebClient.HttpRequest.AddPostData("__EVENTTARGET", "", False)
>
> WebClient.HttpRequest.AddPostData("__EVENTARGUMENT", "", False)
>
> WebClient.HttpRequest.AddPostData("__VIEWSTATE", WebClient.ViewState,
False)
>
> WebClient.HttpRequest.AddPostData("cboVendorLocation", "1", False)
>
> WebClient.HttpRequest.AddPostData("txtCriteria", "", False)
>
> WebClient.HttpRequest.AddPostData("txtInvoiceNumber", "", False)
>
> WebClient.HttpRequest.AddPostData("txtInvoiceDate", "", False)
>
> WebClient.HttpRequest.AddPostData("txtInvoiceTotal", "0", False)
>
> WebClient.HttpRequest.AddPostData("txtDeliveryDate", "", False)
>
> WebClient.HttpRequest.AddPostData("cboVendorItemCategory", "-1", False)
>
> WebClient.HttpRequest.AddPostData("ibnSearch.x", "45", False)
>
> WebClient.HttpRequest.AddPostData("ibnSearch.y", "9", False)
>
> WebClient.Post("http://aldevsrv01/inventory/Store/InvoiceEntry.aspx")
>
> WebClient.HttpRequest.AddPostData("__EVENTTARGET",
> "grdSearchResults%3A_ctl3%3AlnkItemName", False)
>
> WebClient.HttpRequest.AddPostData("__EVENTARGUMENT", "", False)
>
> WebClient.HttpRequest.AddPostData("__VIEWSTATE", WebClient.ViewState,
False)
>
> WebClient.HttpRequest.AddPostData("cboVendorLocation", "1", False)
>
> WebClient.HttpRequest.AddPostData("txtCriteria", "", False)
>
>
WebClient.HttpRequest.AddPostData("grdSearchResults%3A_ctl4%3AchkVendorItem"
> , "on", False)
>
> WebClient.HttpRequest.AddPostData("txtInvoiceNumber",
Convert.ToString(lVal
> + 2000), False)
>
> WebClient.HttpRequest.AddPostData("txtInvoiceDate", "10%2F12%2F2002",
False)
>
> WebClient.HttpRequest.AddPostData("txtInvoiceTotal", "1050", False)
>
> WebClient.HttpRequest.AddPostData("txtDeliveryDate", "10%2F12%2F2002",
> False)
>
> WebClient.HttpRequest.AddPostData("cboVendorItemCategory", "-1", False)
>
> WebClient.Post("http://aldevsrv01/inventory/Store/InvoiceEntry.aspx")
>
> WebClient.HttpRequest.AddPostData("__EVENTTARGET",
> "grdSearchResults%3A_ctl5%3AlnkItemName", False)
>
> WebClient.HttpRequest.AddPostData("__EVENTARGUMENT", "", False)
>
> WebClient.HttpRequest.AddPostData("__VIEWSTATE", WebClient.ViewState,
False)
>
> WebClient.HttpRequest.AddPostData("cboVendorLocation", "1", False)
>
> WebClient.HttpRequest.AddPostData("txtCriteria", "", False)
>
>
WebClient.HttpRequest.AddPostData("grdSearchResults%3A_ctl4%3AchkVendorItem"
> , "on", False)
>
> WebClient.HttpRequest.AddPostData("txtInvoiceNumber",
Convert.ToString(lVal
> + 2000), False)
>
> WebClient.HttpRequest.AddPostData("txtInvoiceDate", "10%2F12%2F2002",
False)
>
> WebClient.HttpRequest.AddPostData("txtInvoiceTotal", "1050", False)
>
> WebClient.HttpRequest.AddPostData("txtDeliveryDate", "10%2F12%2F2002",
> False)
>
> WebClient.HttpRequest.AddPostData("cboVendorItemCategory", "-1", False)
>
>
WebClient.HttpRequest.AddPostData("grdInvoiceDetail%3A_ctl2%3AtxtQuantity",
> "10", False)
>
>
WebClient.HttpRequest.AddPostData("grdInvoiceDetail%3A_ctl2%3AtxtDefaultPric
> e", "10.12", False)
>
> WebClient.Post("http://aldevsrv01/inventory/Store/InvoiceEntry.aspx")
>
> WebClient.HttpRequest.AddPostData("__EVENTTARGET",
> "grdSearchResults%3A_ctl7%3AlnkItemName", False)
>
> WebClient.HttpRequest.AddPostData("__EVENTARGUMENT", "", False)
>
> WebClient.HttpRequest.AddPostData("__VIEWSTATE", WebClient.ViewState,
False)
>
> WebClient.HttpRequest.AddPostData("cboVendorLocation", "1", False)
>
> WebClient.HttpRequest.AddPostData("txtCriteria", "", False)
>
>
WebClient.HttpRequest.AddPostData("grdSearchResults%3A_ctl4%3AchkVendorItem"
> , "on", False)
>
> WebClient.HttpRequest.AddPostData("txtInvoiceNumber",
Convert.ToString(lVal
> + 2000), False)
>
> WebClient.HttpRequest.AddPostData("txtInvoiceDate", "10%2F12%2F2002",
False)
>
> WebClient.HttpRequest.AddPostData("txtInvoiceTotal", "1050", False)
>
> WebClient.HttpRequest.AddPostData("txtDeliveryDate", "10%2F12%2F2002",
> False)
>
> WebClient.HttpRequest.AddPostData("cboVendorItemCategory", "-1", False)
>
>
WebClient.HttpRequest.AddPostData("grdInvoiceDetail%3A_ctl2%3AtxtQuantity",
> "10", False)
>
>
WebClient.HttpRequest.AddPostData("grdInvoiceDetail%3A_ctl2%3AtxtDefaultPric
> e", "10.12", False)
>
>
WebClient.HttpRequest.AddPostData("grdInvoiceDetail%3A_ctl3%3AtxtQuantity",
> "20", False)
>
>
WebClient.HttpRequest.AddPostData("grdInvoiceDetail%3A_ctl3%3AtxtDefaultPric
> e", "31.84", False)
>
> WebClient.Post("http://aldevsrv01/inventory/Store/InvoiceEntry.aspx")
>
> WebClient.HttpRequest.AddPostData("__EVENTTARGET", "lnkSave", False)
>
> WebClient.HttpRequest.AddPostData("__EVENTARGUMENT", "", False)
>
> WebClient.HttpRequest.AddPostData("__VIEWSTATE", WebClient.ViewState,
False)
>
> WebClient.HttpRequest.AddPostData("cboVendorLocation", "1", False)
>
> WebClient.HttpRequest.AddPostData("txtCriteria", "", False)
>
>
WebClient.HttpRequest.AddPostData("grdSearchResults%3A_ctl4%3AchkVendorItem"
> , "on", False)
>
> WebClient.HttpRequest.AddPostData("txtInvoiceNumber",
Convert.ToString(lVal
> + 2000), False)
>
> WebClient.HttpRequest.AddPostData("txtInvoiceDate", "10%2F12%2F2002",
False)
>
> WebClient.HttpRequest.AddPostData("txtInvoiceTotal", "4826", False)
>
> WebClient.HttpRequest.AddPostData("txtDeliveryDate", "10%2F12%2F2002",
> False)
>
> WebClient.HttpRequest.AddPostData("cboVendorItemCategory", "-1", False)
>
>
WebClient.HttpRequest.AddPostData("grdInvoiceDetail%3A_ctl2%3AtxtQuantity",
> "10", False)
>
>
WebClient.HttpRequest.AddPostData("grdInvoiceDetail%3A_ctl2%3AtxtDefaultPric
> e", "10.12", False)
>
>
WebClient.HttpRequest.AddPostData("grdInvoiceDetail%3A_ctl3%3AtxtQuantity",
> "20", False)
>
>
WebClient.HttpRequest.AddPostData("grdInvoiceDetail%3A_ctl3%3AtxtDefaultPric
> e", "31.84", False)
>
>
WebClient.HttpRequest.AddPostData("grdInvoiceDetail%3A_ctl4%3AtxtQuantity",
> "100", False)
>
>
WebClient.HttpRequest.AddPostData("grdInvoiceDetail%3A_ctl4%3AtxtDefaultPric
> e", "40.88", False)
>
> WebClient.Post("http://aldevsrv01/inventory/Store/InvoiceEntry.aspx")
>
> WebClient.Get("http://aldevsrv01/inventory/Store/InvoiceList.aspx")
>
> WebClient.HttpRequest.AddPostData("__EVENTTARGET", "lnkGo", False)
>
> WebClient.HttpRequest.AddPostData("__EVENTARGUMENT", "", False)
>
> WebClient.HttpRequest.AddPostData("__VIEWSTATE", WebClient.ViewState,
False)
>
> WebClient.HttpRequest.AddPostData("cboVendorLocation", "-1", False)
>
> WebClient.HttpRequest.AddPostData("txtInvoiceNumber", "", False)
>
> WebClient.HttpRequest.AddPostData("txtBeginDate", "11%2F5%2F2002", False)
>
> WebClient.HttpRequest.AddPostData("txtEndDate", "11%2F12%2F2002", False)
>
> WebClient.Post("http://aldevsrv01/inventory/Store/InvoiceList.aspx")
>
> ' End of script contains 1 page(s).
>
>
>
> End Sub
>
> End Class
>
>
>
>