I need to modify this code to pass values in my form and post to the call.aspx script in this code. Any suggestions?
<%@ Language = VBScript %>
<% Option Explicit %>
<HTML>
<HEAD>
<TITLE>Loan Application Form</TITLE>
</HEAD>
<BODY BGCOLOR="White" TOPMARGIN="10" LEFTMARGIN="10">
<!-- Display header. -->
<FONT SIZE="4" FACE="ARIAL, HELVETICA">
<HR>
<%
Dim formData
Dim WinHttpReq
Dim Text1
Dim theFormData
Dim userIp
Set WinHttpReq = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
%>
<%
formData = Request.Form
userIp = Request.ServerVariables("REMOTE_ADDR")
%>
<%
' Open the request...
WinHttpReq.Open "POST", " False
' Send the HTTP Request.
WinHttpReq.Send(formData)
' Put status and content type into status text box.
' Text1 = WinHttpReq.Status & " - " & WinHttpReq.StatusText
Response.Write "<br>" + WinHttpReq.ResponseText
%>
</BODY>
</HTML>
<%@ Language = VBScript %>
<% Option Explicit %>
<HTML>
<HEAD>
<TITLE>Loan Application Form</TITLE>
</HEAD>
<BODY BGCOLOR="White" TOPMARGIN="10" LEFTMARGIN="10">
<!-- Display header. -->
<FONT SIZE="4" FACE="ARIAL, HELVETICA">
<HR>
<%
Dim formData
Dim WinHttpReq
Dim Text1
Dim theFormData
Dim userIp
Set WinHttpReq = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
%>
<%
formData = Request.Form
userIp = Request.ServerVariables("REMOTE_ADDR")
%>
<%
' Open the request...
WinHttpReq.Open "POST", " False
' Send the HTTP Request.
WinHttpReq.Send(formData)
' Put status and content type into status text box.
' Text1 = WinHttpReq.Status & " - " & WinHttpReq.StatusText
Response.Write "<br>" + WinHttpReq.ResponseText
%>
</BODY>
</HTML>