<%@LANGUAGE="JavaScript"%> [an error occurred while processing this directive] <% var rsmaillist__varEmail = "test" if(String(Request.Form("Email")) != "undefined"){ rsmaillist__varEmail = String(Request.Form("Email"));} %> <% var rsmaillist = Server.CreateObject("ADODB.Recordset"); rsmaillist.ActiveConnection = MM_nevco_STRING; rsmaillist.Source = "SELECT * FROM maillist WHERE email='"+ rsmaillist__varEmail+"'"; rsmaillist.CursorType = 0; rsmaillist.CursorLocation = 2; rsmaillist.LockType = 3; rsmaillist.Open(); var rsmaillist_numRows = 0; %> <% // *** Insert Record: construct a sql insert statement and execute it var MM_editAction = Request.ServerVariables("URL") + '?' + Request.QueryString; if (String(Request("MM_insert")) != "undefined") { var MM_tableName = "maillist"; var MM_fields = "Email,email,',none,''"; var MM_redirectPage = "mailinglist_thanks.htm"; // create the insert sql statement var MM_tableValues = "", MM_dbValues = ""; var MM_fieldsArray = MM_fields.split(","); for (var i=0; i+4 < MM_fieldsArray.length; i+=5) { var formVal = String(Request.Form(MM_fieldsArray[i])); var delim = (MM_fieldsArray[i+2] != "none") ? MM_fieldsArray[i+2] : ""; var altVal = (MM_fieldsArray[i+3] != "none") ? MM_fieldsArray[i+3] : ""; var emptyVal = (MM_fieldsArray[i+4] != "none") ? MM_fieldsArray[i+4] : ""; if (formVal == "" || formVal == "undefined") { formVal = emptyVal; } else { if (altVal != "") { formVal = altVal; } else if (delim == "'") { // escape quotes formVal = "'" + formVal.replace(/'/g,"''") + "'"; } else { formVal = delim + formVal + delim; } } MM_tableValues += ((i != 0) ? "," : "") + MM_fieldsArray[i+1]; MM_dbValues += ((i != 0) ? "," : "") + formVal; } var MM_insertStr = 'insert into ' + MM_tableName + ' (' + MM_tableValues + ') values (' + MM_dbValues + ')'; // finish the sql and execute it var MM_insertCmd = Server.CreateObject("ADODB.Command"); MM_insertCmd.ActiveConnection = "DSN=nevco;UID=web;PWD=chilipass;"; MM_insertCmd.CommandText = MM_insertStr; if (rsmaillist.EOF && rsmaillist.BOF) MM_insertCmd.Execute(); // redirect with URL parameters if (MM_redirectPage == '') MM_redirectPage = Request.ServerVariables('URL'); if (String(MM_redirectPage).indexOf('?') == -1) MM_redirectPage += '?' + Request.QueryString; Response.Redirect(MM_redirectPage); } %> Jason Nevins Mailing List
 

Jason Nevins -Mailing List

Enter your email to receive BRAND-NEW & UNRELEASED Jason Nevins tracks! Also, a chance to win PERSONALLY AUTOGRAPHED cd's & vinyl from Jason!
Email Address:
By submitting your email address you are allowing your email address to be given to 3rd party companies contained within this website.

  
 
<% rsmaillist.Close(); %>