Pro-Q Panto Lite - Newsletter

<%@LANGUAGE="JAVASCRIPT"%> <% // *** Edit Operations: declare variables // set the form action variable var MM_editAction = Request.ServerVariables("SCRIPT_NAME"); if (Request.QueryString) { MM_editAction += "?" + Server.HTMLEncode(Request.QueryString); } // boolean to abort record edit var MM_abortEdit = false; %> <% if (String(Request("MM_insert")) == "form1") { if (!MM_abortEdit) { // execute the insert var MM_editCmd = Server.CreateObject ("ADODB.Command"); MM_editCmd.ActiveConnection = MM_PantoLiteUsers_STRING; MM_editCmd.CommandText = "INSERT INTO pantousers.newsletter (email, firstname, lastname) VALUES (?, ?, ?)"; MM_editCmd.Prepared = true; MM_editCmd.Parameters.Append(MM_editCmd.CreateParameter("param1", 201, 1, 60, Request.Form("email"))); // adLongVarChar MM_editCmd.Parameters.Append(MM_editCmd.CreateParameter("param2", 201, 1, 40, Request.Form("firstname"))); // adLongVarChar MM_editCmd.Parameters.Append(MM_editCmd.CreateParameter("param3", 201, 1, 60, Request.Form("lastname"))); // adLongVarChar MM_editCmd.Execute(); MM_editCmd.ActiveConnection.Close(); // append the query string to the redirect URL var MM_editRedirectUrl = "thanksnews.htm"; if (MM_editRedirectUrl && Request.QueryString && Request.QueryString.Count > 0) { MM_editRedirectUrl += ((MM_editRedirectUrl.indexOf('?') == -1) ? "?" : "&") + Request.QueryString; } Response.Redirect(MM_editRedirectUrl) } } %> <% if (String(Request("MM_insert")) == "form1") { if (!MM_abortEdit) { // execute the insert var MM_editCmd = Server.CreateObject ("ADODB.Command"); MM_editCmd.ActiveConnection = "dsn=PantoUsers"; MM_editCmd.CommandText = "INSERT INTO Users (email, firstname, lastname) VALUES (?, ?, ?)"; MM_editCmd.Prepared = true; MM_editCmd.Parameters.Append(MM_editCmd.CreateParameter("param1", 202, 1, 100, Request.Form("email"))); // adVarWChar MM_editCmd.Parameters.Append(MM_editCmd.CreateParameter("param2", 202, 1, 40, Request.Form("firstname"))); // adVarWChar MM_editCmd.Parameters.Append(MM_editCmd.CreateParameter("param3", 202, 1, 80, Request.Form("lastname"))); // adVarWChar MM_editCmd.Execute(); MM_editCmd.ActiveConnection.Close(); // append the query string to the redirect URL var MM_editRedirectUrl = "thanksnews.htm"; if (MM_editRedirectUrl && Request.QueryString && Request.QueryString.Count > 0) { MM_editRedirectUrl += ((MM_editRedirectUrl.indexOf('?') == -1) ? "?" : "&") + Request.QueryString; } Response.Redirect(MM_editRedirectUrl) } } %> Pro-Q Panto Lite - Newsletter

Your Printer
Your Panto
Your Size

Sign-up to Recieve the Pro-Q Panto Lite Newsletter

Want to know when the latest update to Pro-Q Panto Lite is released? Want the latest tricks and tips? Want to know about the latest patterns and the hottest designers?

Fill out the form below and click SUBSCRIBE! You will receive your first newsletter before the end of November. Make sure you have the domain "pqdesigner.com" marked as safe so that your mail does not go to spam. We cannot go through online spam checkers that require us to fill out a form!

To Unsubscribe, please send a note to ellen@pqdesigner.com with the subject heading UNSUBSCRIBE PANTO NEWSLETTER from the e-mail address you wish to unsubscribe.

To change the e-mail delivery for your newsletter, simply sign-up using your new e-mail address.

NEW version 1.5a posted
Feb 7, 2007!

Update and full versions available.

NEW free patterns by Intelligent Quilting -
Dec 07