I am still trying to post form data from a secure UNIX web server to an ASP script on a windows server.
The following code works: #!/usr/local/bin/perl # use strict; use warnings; use HTTP::Request::Common; use CGI; use LWP::UserAgent; my $ua = LWP::UserAgent->new; my $query=new CGI; my $res = $ua->request(POST 'http://66.158.0.80/test2.asp', [ email => $query->p aram('email')]); if ($res->is_success) { print "Content-type: text/html\n\n"; print "<HTML><HEAD></HEAD>"; print "<BODY>"; print "<h1>Current Values</h1>\n"; print $query->Dump; print "</BODY>"; print "</HTML>"; } else { print "Content-type: text/html\n\n"; print "<HTML><HEAD></HEAD>"; print "<BODY>"; print "did not work"; print "</BODY>"; print "</HTML>"; } The problem I having is this code requires me to specify each form field when I attempt to post to the ASP script. I would like to be able to grab all the fields and their values from the web form and pass them to the ASP script as an array. I changed the line my $res = $ua->request(POST 'http://66.158.0.80/test2.asp', [ email => $query->param('email')]); to my $res = $ua->request(POST 'http://66.158.0.80/test2.asp', @::query]); and a blank line is inserted into the database. I tried using my $res = $ua->request(POST 'http://66.158.0.80/test2.asp', $::query]); and I get an Internal Server Error from the Unix server. I also tried my $res = $ua->request(POST 'http://66.158.0.80/test2.asp', $query]); and get an Internal Server Error from the Unix server. The html form is at https://www.kentlaw.edu/clc/test/test.html The Unix perl script is above. The Windows ASP script is here: <% Dim objConn Set objConn=Server.CreateObject("ADODB.Connection") objConn.ConnectionString = "DSN=XXXX;password=YYYY;" objConn.open sql = "insert into testtable(testfield1, testfield2) values ('" &_ request.form("email") & "','" &_ request.form("hidden_1") & "')" objConn.execute sql objConn.close Set objConn= Nothing %> Any all help will be appreciated. Thanks Larry -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
