Entering into a database AND posting to a FORM with just one Submit-button click

mgfranz, thank you for the response.

Unfortunately, you have to hold my hand a little more with this....[:0(

I have a page called "join.asp" where people enter all the information into a form.  Then that form calls this same page, "join.asp", and if "enterinfo=yes" inserts all the information into the database and displays a "Thank You" text.

So when this "join.asp" page loads with the "Thank You" text I want a pop-up window with the email address already filled in.  This pop up window is the page which loads when you click on the ConstantContact form-code I had provided earlier.

Sorry for sounding confusing but that is totally because of my ignorance of technical terms.

Thanx again,

--d.

So you want to have the user fill in a form, then submit these values to your databse, then when you do the insert you want the email value passed to a pop-up window that is a different website form with the form already populated?  I don't think it's possible to fill in a form on a external website by pasing it values but you can try this.

<%
varEmail = Request("Email")
If Len(varEmail) > "1" Then  'Check to see if the email address has been entered, you may want to do a little validation to verify a proper format.
      Response.Write "<script language='javascript'>" &VbCrLf _
      & "var  mypopup=null" &VbCrLf _
      & "var winwidth = 395; " &VbCrLf _
      & "var winheight = 250;" &VbCrLf _
      & "var winleft   = 105; " &VbCrLf _
      & "var wintop    = 75;" &VbCrLf _      
      & "if ( mypopup && !mypopup.closed )" &VbCrLf _
      & "{ mypopup.close();" &VbCrLf _
      & "}" &VbCrLf _
      & "mypopup = window.open("http://ui.constantcontact.com/d.jsp?email="&varEmail&"", ""new"", 'scrollbars=0,menubar=0,resizable=0,background=black,toolbar=0,status=0,top=' + wintop + ',left=' + winleft + 'screenX=' + wintop + ',screenY=' + winleft + ',height=' + winheight + ',width=' + winwidth);" &VbCrLf _
      & "</script>"
Else
End If
%>

mgfranz:

Thanx for your answers.

Unfortunately, I cannot use the body onload event-handler as this is the same page that the form is on and also the same page which inserts into the database.

Any ideas?

Yes you can, if you look at this line,  If Len(varEmail) > "1" , it actually will only write the javascript function to the page if that form field is passed to the page with a value, if there is no value then the function is never written to the page and therefore the OnLoad event is calling nothing.  Write a test page to see what I mean.

This code posts the email address to the second from the server side, without any user intervention.
You could put it after your insertion script, just before showing the "Thank you" text.

<%
Dim email 'This var should contain the submitted email address
Dim url : url = "http://ui.constantcontact.com/d.jsp"
Dim parameters : parameters = "m=22222&p=oi&go=Join&ea=" & email
Dim httpRequest : Set httpRequest = Server.CreateObject("MSXML2.ServerXMLHTTP")
Call httpRequest.Open("POST",url)
httpRequest.Send()
%>

                                              

1:
2:
3:
4:
5:
6:
7:
8:

alsaan:

Thanx for the response.

The second window is still not popping up with the constantcontact.com info.  The data insertion and the email is going out fine.  I have included the relevant code below.

Thank you much.

-d.
============CODE (feedback.asp)================

<%
'*** Get the mailer variable. If the variable has a value, the form will be emailed.  
  If (LEN(TRIM(Request.Form("mailit"))) > 0) Then
 
  Msg = " "

'*** Get form field information.
   Email = "me@mydomain.com"  
   EmailFrom = Request.Form("email_from")
   SubjectLine = Request.Form("subject")
   FirstName = Request.Form("firstname")
   LastName = Request.Form("lastname")  
   HomePhone = Request.Form("homephone")
   WorkPhone = Request.Form("workphone")
   MobilePhone = Request.Form("mobilephone")      
   Address = Request.Form("address")
   Suite = Request.Form("suite")
   City = Request.Form("city")
   State = Request.Form("state")
   Zip = Request.Form("zip")
   Comments = Request.Form("comments")
   TheDate = Request.Form("thedate")
 
'*** Insert into database

'*** Function to remove apostrophy.
   FUNCTION FixQuotes(Astring)
     FixQuotes = Replace(Astring, "'", "''")
   END FUNCTION
   
'*** Initiate link to database.
   Set Con = Server.CreateObject("ADODB.Connection")
   Con.Open "DSN=mydatabase"

'*** Create new record.
   If (LEN(EmailFrom) > 0) Then
     MySQL = "INSERT INTO mytable (firstname, lastname, address, suite, city, state, zip, homephone, workphone, mobilephone, email_from, comments, thedate) VALUES"
     MySQL = MySQL & "('" & FixQuotes(FirstName) & "','" & FixQuotes(LastName) & "','" & FixQuotes(Address) & "','" & FixQuotes(Suite) & "','" & FixQuotes(City) & "','" & FixQuotes(State) & "','" & FixQuotes(Zip) & "','" & FixQuotes(HomePhone) & "','" & FixQuotes(WorkPhone) & "','" & FixQuotes(MobilePhone) & "','" & FixQuotes(EmailFrom) & "','" & FixQuotes(Comments) & "',#" & TheDate & "#)"

'*** Response.Write(MySQL)

     Set RS = Con.Execute(MySQL)
   End If       

              '*** Close the Database Connection.
                 Con.Close
                   Set Con = NOTHING
      
'*** Insertion into database ends above
 
      MsgBody = "  Name : " & FirstName & " " & LastName & vbCRLF &_
                   "  Email : " & EmailFrom & vbCRLF &_
                   "  Address : " & Address & " " & Suite & vbCRLF &_
                   "  City : " & city & vbCRLF &_
                   "  State : " & state & vbCRLF &_
                   "  Zip : " & zip & vbCRLF &_
                   "  Home Phone Number : " & HomePhone & vbCRLF &_
                   "  Work Phone Number : " & WorkPhone & vbCRLF &_
                   "  Mobile Phone Number : " & MobilePhone & vbCRLF &_
                   "  Date : " & TheDate & vbCRLF &_                                                  
                   "  Comments : " & Comments & vbCRLF &_
                   "  ======================= " & vbCRLF            
                  
   If (LEN(TRIM(EmailFrom)) <= 0) Then
     MFlag = 1  
     Msg = "<center><P><font color=#D81D21 face=ms sans serif size=-1>You left your email address blank. Hit the <a href=javascript:history.back(1)><img align=absmiddle border=0 src=/images/backbutton.gif> <b>back button</b></a> on your browser and fill in the appropriate field.</font></center>"

   Else
     MFlag = 0  

'****************************************************
  Set objMessage = CreateObject("CDO.Message")
  objMessage.Subject = SubjectLine
  objMessage.Sender = FromName & " <" & EmailFrom & ">"
  objMessage.From = FromName & " <" & EmailFrom & ">"  
  objMessage.To = Email
  objMessage.TextBody = MsgBody

  objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

  '*** Name or IP of Remote SMTP Server
  objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.mydomain.com"

  '*** Server port (typically 25)
  objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

  objMessage.Configuration.Fields.Update

  objMessage.Send

  set   objMessage = Nothing
'****************************************************

 
  MsgBody = Replace(MsgBody, """", "&quot;")
  MsgBody1 = Replace(MsgBody, VbCrLf, "<br>")
 
End If

Dim email : sendemail = MailFrom
Dim url : url = "http://ui.constantcontact.com/d.jsp"
Dim parameters : parameters = "m=222222&p=oi&go=Join&ea=" & sendemail
Dim httpRequest : Set httpRequest = Server.CreateObject("MSXML2.ServerXMLHTTP")
Call httpRequest.Open("POST",url)
Call httpRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")
httpRequest.Send(parameters)


End If
%>