' This function takes in input a base url and an array of parameter names and ' values (in the form: param1, value1, param2, value2, etc.),' and returns the final url with all the parameters in the querystring' Example:' Dim url As String = BuildUrlWithQueryString("Test.aspx", "Param1", "Value1", ' "Param2", 123, "Param3", "hello ") Function BuildUrlWithQueryString(ByVal baseUrl As String, _ ByVal ParamArray args() As String) Dim params As String = "" Dim i As Integer For i = 0 To args.Length - 1 Step 2 ' if this is not the first parameter, concatenate with & If params.Length > 0 Then params &= "&" ' add the param_name=param_value piece to the current params string params &= HttpUtility.HtmlEncode(args(i)) & "=" & _ HttpUtility.HtmlEncode(args(i + 1)) Next ' add the params to the base url and return the final string Return baseUrl & "?" & paramsEnd Function


What We Should Expect from Cell Phone Tech in the Near Future
The earliest cell phones included boxy designs full of buttons and antennas, and they only made calls. Needless to say, we’ve come a long way from those classic brick phones