'-- retrive data---
Dim Accesstring As String = ("SELECT FirstName, LastName, Email, StreetAddress, City, Country, State, Zip, Worknum, googlecheckout, paypal, csftcc, confirmationcode, paymentamount FROM dbo.reservation WHERE (confirmationcode = @concode)")
Dim cmd3 As New SqlCommand(Accesstring, icnnn)
cmd3.Parameters.Add("@concode", SqlDbType.NChar).Value = onlineconfirmationcode.Text
Dim reader As SqlDataReader = cmd3.ExecuteReader
'/paynow.html
While reader.Read()
afirstname = reader("FirstName").ToString()
alastname = reader("LastName").ToString()
aemail = reader("Email").ToString()
aadress = reader("StreetAddress").ToString()
acountry = reader("Country").ToString()
acity = reader("City").ToString()
astate = reader("State").ToString()
azip = reader("Zip").ToString()
aworknum = reader("Worknum").ToString()
agooglecheckout = reader("googlecheckout").ToString
apaypal = reader("paypal").ToString()
acsftcc = reader("csftcc").ToString()
aconfirmationcode = reader("confirmationcode").ToString()
apaymentamount = reader("paymentamount").ToString()
End While
reader.Close()
'-------------------------------------------------
'----retrive payment link------------
Dim Accesstring2 As String = ("SELECT paymentamount, googlepaymentlink, paypalpaymentlink FROM settingss WHERE (paymentamount = N'" & apaymentamount & " ')")
Dim Accesstring22 As String = ("SELECT paymentamount, googlepaymentlink, paypalpaymentlink FROM settingss WHERE (paymentamount = N'" & apaymentamount & " ')")
Dim writer As IO.TextWriter = New IO.StreamWriter("/ppaynow.html")
Dim cmd32 As New SqlCommand(Accesstring2, icnnn)
Dim cmd322 As New SqlCommand(Accesstring2, icnnn2)
Dim reader2 As SqlDataReader = cmd32.ExecuteReader
Dim abcd As String
'------For google checkout payment-----------------------------------------------------------------
If agooglecheckout.Trim = "True" Then
' cmd32.Parameters.Add("@paymentamount", SqlDbType.NChar).Value = apaymentamount.ToString
Do While reader2.Read()
apaymentlink = reader2("googlepaymentlink").ToString()
Response.Redirect(apaymentlink)
statuss.Text = "You have just confirmed succefully your reservation!"
Loop
reader2.Close()
End If
'----------------------End of google-------------------------------------------------------------------
'-----------------------For PayPal----------------------------------------------------
If apaypal.Trim = "True" Then
Dim reader22 As SqlDataReader = cmd322.ExecuteReader
Do While reader22.Read()
apaymentlink = reader22("paypalpaymentlink").ToString()
abcd = apaymentlink
writer.WriteLine("<html><center><FORM ACTION=""https://www.paypal.com/cgi-bin/webscr"" METHOD=""POST""> <INPUT TYPE=""hidden"" NAME=""cmd"" VALUE=""_xclick""> <INPUT TYPE=""hidden"" NAME=""business"" VALUE=""xxxxxxxx""> <INPUT TYPE=""hidden"" NAME=""item_name"" VALUE=""Limousine transportation""> <INPUT TYPE=""hidden"" NAME=""amount"" VALUE="" " & abcd & " ""> <INPUT TYPE=""hidden"" NAME=""currency_code"" VALUE=""USD""> <INPUT TYPE=""hidden"" NAME=""first_name"" VALUE=""" & afirstname & """> <INPUT TYPE=""hidden"" NAME=""last_name"" VALUE=""" & alastname & """> <INPUT TYPE=""hidden"" NAME=""address1"" VALUE=""" & aadress & """> <INPUT TYPE=""hidden"" NAME=""city"" VALUE=""" & acity & """> <INPUT TYPE=""hidden"" NAME=""state"" VALUE=""" & astate & """> <INPUT TYPE=""hidden"" NAME=""zip"" VALUE=""" & azip & """> <INPUT TYPE=""hidden"" NAME=""lc"" VALUE=""US""> <INPUT TYPE=""hidden"" NAME=""email"" VALUE=""" & aemail & """> <INPUT TYPE=""hidden"" NAME=""night_phone_a"" VALUE=""" & aworknum & """> <INPUT TYPE=""image"" NAME=""submit"" BORDER=""0"" SRC=""http://www.paypal.com/en_US/i/btn/btn_buynow_LG.gif"" ALT=""PayPal - The safer, easier way to pay online""> <img alt="" border="" width=""1"" height=""1"" src=""https://www.paypal.com/en_US/i/scr/pixel.gif""> </FORM> </FORM></html>")
writer.Close()
Response.Redirect("/ppaynow.html")
Loop
reader22.Close()
End If
End If
Reply With Quote