<%@LANGUAGE="JAVASCRIPT"%>
<%
// *** Edit Operations: declare variables
// set the form action variable
var MM_editAction = Request.ServerVariables("URL");
if (Request.QueryString) {
MM_editAction += "?" + Request.QueryString;
}
// boolean to abort record edit
var MM_abortEdit = false;
// query string to execute
var MM_editQuery = "";
%>
<%
// *** Insert Record: set variables
if (String(Request("MM_insert")) != "undefined") {
var MM_editConnection = MM_tBirdNet_STRING;
var MM_editTable = "dbo.CustInfo";
var MM_editRedirectUrl = "CustInfoDone.htm";
var MM_fieldsStr = "FirstName|value|LastName|value|Address1|value|Address2|value|City|value|State|value|Country|value|Phone|value|eMail|value|Company|value|HostingPackage|value|WebAddress|value|AccountLogin|value|AccountPassword|value|eMail1|value|eMail2|value|eMail3|value|eMail4|value|eMail5|value|eMail6|value|eMail7|value|eMail8|value|Password1|value|Password2|value|Password3|value|Password4|value|Password5|value|Password6|value|Password7|value|Password8|value|NewSite|value|SiteTransfer|value|WebMaintenance|value|ECommerce|value|WebDesign|value|MarketingConsulting|value|FindUsNotes|value|Comments|value|MemberSince|value|ExpDate|value|SupportNotes|value|TechContact|value|TechPhone|value|Reseller|value";
var MM_columnsStr = "FirstName|',none,''|LastName|',none,''|Address1|',none,''|Address2|',none,''|City|',none,''|State|',none,''|Country|',none,''|Phone|',none,''|eMail|',none,''|Company|',none,''|HostingPackage|none,none,NULL|WebAddress|',none,''|AccountLogin|',none,''|AccountPassword|',none,''|eMail1|',none,''|eMail2|',none,''|eMail3|',none,''|eMail4|',none,''|eMail5|',none,''|eMail6|',none,''|eMail7|',none,''|eMail8|',none,''|Password1|',none,''|Password2|',none,''|Password3|',none,''|Password4|',none,''|Password5|',none,''|Password6|',none,''|Password7|',none,''|Password8|',none,''|NewSite|none,1,0|SiteTransfer|none,1,0|WebMaintenance|none,1,0|ECommerce|none,1,0|WebDesign|none,1,0|MarketingConsulting|none,1,0|FindUsNotes|',none,''|Comments|',none,''|MemberSince|',none,NULL|ExpDate|',none,NULL|SupportNotes|',none,''|TechContact|',none,''|TechPhone|',none,''|Reseller|none,1,0";
// create the MM_fields and MM_columns arrays
var MM_fields = MM_fieldsStr.split("|");
var MM_columns = MM_columnsStr.split("|");
// set the form values
for (var i=0; i+1 < MM_fields.length; i+=2) {
MM_fields[i+1] = String(Request.Form(MM_fields[i]));
}
// append the query string to the redirect URL
if (MM_editRedirectUrl && Request.QueryString && Request.QueryString.length > 0) {
MM_editRedirectUrl += ((MM_editRedirectUrl.indexOf('?') == -1)?"?":"&") + Request.QueryString;
}
}
%>
<%
// *** Insert Record: construct a sql insert statement and execute it
if (String(Request("MM_insert")) != "undefined") {
// create the sql insert statement
var MM_tableValues = "", MM_dbValues = "";
for (var i=0; i+1 < MM_fields.length; i+=2) {
var formVal = MM_fields[i+1];
var MM_typesArray = MM_columns[i+1].split(",");
var delim = (MM_typesArray[0] != "none") ? MM_typesArray[0] : "";
var altVal = (MM_typesArray[1] != "none") ? MM_typesArray[1] : "";
var emptyVal = (MM_typesArray[2] != "none") ? MM_typesArray[2] : "";
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_columns[i];
MM_dbValues += ((i != 0) ? "," : "") + formVal;
}
MM_editQuery = "insert into " + MM_editTable + " (" + MM_tableValues + ") values (" + MM_dbValues + ")";
if (!MM_abortEdit) {
// execute the insert
var MM_editCmd = Server.CreateObject('ADODB.Command');
MM_editCmd.ActiveConnection = MM_editConnection;
MM_editCmd.CommandText = MM_editQuery;
MM_editCmd.Execute();
MM_editCmd.ActiveConnection.Close();
if (MM_editRedirectUrl) {
Response.Redirect(MM_editRedirectUrl);
}
}
}
%>
Web Hosting Tampa Bay - Domain Name Registration - Web Site Design - TBirdnet.com
Please fill out ALL Fields so
we can better serve you.
Your Account Information
Reliability - Affordability - Business
- Personal Sites TBirdnet.com offers web hosting solutions for
small business, corporate and personal sites. Internet Service Provider - Serving the Tampa Bay central Florida area
and the world.
