Im having trouble with my script to link my form to authorize.net, I would greatly appreicat any input or help.<script language="VB" runat="server"> Sub Page_Load(Src As [Object], E As EventArgs) 'myPage.Text = readHtmlPage("https://test.authorize.net/gateway/transact.dll") 'Uncomment the line ABOVE for shopping cart testing OR uncomment the line BELOW for live accounts myPage.Text = readHtmlPage("https://secure.authorize.net/gateway/transact.dll")End Sub 'Page_Load
Private Function readHtmlPage(url As String) As [String] Dim result As [String] = "" Dim strPost As [String] = "x_login=MID686003012485954" & _ "&x_tran_key=zixtZu2AVDLzGnZv" & _ "&x_method=CC&x_type=AUTH_CAPTURE&x_delim_data=TRUE" & _ "&x_delim_char=|&x_relay_response=FALSE&x_test_request=FASLE&x_version=3.1" & _ "&x_amount=" & System.Web.HttpUtility.UrlEncode(x_amount) & _ "&x_card_num=" & System.Web.HttpUtility.UrlEncode(x_card_num.Text.Trim) & _ "&x_exp_date=" & System.Web.HttpUtility.UrlEncode(x_exp_date.Text.Trim) & _ "&x_card_code=" & System.Web.HttpUtility.UrlEncode(x_card_code.Text.Trim) & _ "&x_first_name=" & System.Web.HttpUtility.UrlEncode(x_first_name.Text.Trim) & _ "&x_last_name=" & System.Web.HttpUtility.UrlEncode(x_last_name.Text.Trim) & _ "&x_address=" & System.Web.HttpUtility.UrlEncode(x_address.Text.Trim) & _ "&x_city=" & System.Web.HttpUtility.UrlEncode(x_city.Text.Trim) & _ "&x_state=" & System.Web.HttpUtility.UrlEncode(x_state.Text.Trim) & _ "&x_zip=" & System.Web.HttpUtility.UrlEncode(x_zip.Text.Trim)"
Dim myWriter As StreamWriter = Nothing Dim objRequest As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest) objRequest.Method = "POST" objRequest.ContentLength = strPost.Length objRequest.ContentType = "application/x-www-form-urlencoded" Try myWriter = New StreamWriter(objRequest.GetRequestStream()) myWriter.Write(strPost) Catch e As Exception Return e.Message Finally myWriter.Close() End Try Dim objResponse As HttpWebResponse = CType(objRequest.GetResponse(), HttpWebResponse) Dim sr As New StreamReader(objResponse.GetResponseStream()) result = sr.ReadToEnd() ' Close and clean up the StreamReader sr.Close() Return resultEnd Function 'readHtmlPage</script>