Here is my customerr form to add to db:
<%@LANGUAGE="VBSCRIPT"%>
<% Option Explicit %>
<%
Dim strUserName
Dim strPassword
Dim intSLevel
'Dim objConn
'get pass parameters
strUserName = Session("username")
strPassword = Session("userpass")
intSLevel = Session("sLevel")
%>
<!DOCTYPE html PUBLIC "-//W3C/DTD/ XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
<head>
<!-- This is the title of the page -->
<title>IMPulse NC Customer Database - Add a customer!</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<!-- This starts the CSS for the page -->
<style type="text/css">
body {
font-family: Arial, Helvetica, sans-serif;
font-size: relative;
font-weight: bold;
}
table {
background-color:#cccccc;
border-color:#CCCCCC;
}
</style>
<!-- CSS ends -->
<link href="dbcss.css" rel="stylesheet" type="text/css" />
</head>
<body>
<table width="80%" border="1">
<tr>
<td>
<img src="art/dblogo.gif" width="322" height="74" />
</td>
</tr>
<table width="80%" border="1">
<form name="addCustomer" action="added.asp" method="post">
<tr>
<td>First Name:</td>
<td><input type="text" name="cfname" size="25" maxlength="25" /></td>
</tr>
<tr>
<td>Last Name:</td>
<td><input type="text" name="clname" size="25" maxlength="25" /></td>
</tr>
<tr>
<td>Company:</td>
<td><input type="text" name="ccomp" size="25" maxlength="25" /></td>
</tr>
<tr>
<td>Job Title</td>
<td><input type="text" name="cjob" size="25" maxlength="25" /></td>
</tr>
<tr>
<td>Address 1:</td>
<td><input type="text" name="cadd1" size="25" maxlength="25" /></td>
</tr>
<tr>
<td>Address 2:</td>
<td><input type="text" name="cadd2" size="25" maxlength="25" /></td>
</tr>
<tr>
<td>City:</td>
<td><input type="text" name="ccity" size="25" maxlength="25" /></td>
</tr>
<tr>
<td>State:</td>
<td><input type="text" name="cstate" size="25" maxlength="25" /></td>
</tr>
<tr>
<td>Zip Code:</td>
<td><input type="text" name="czip" size="25" maxlength="25" /></td>
</tr>
<tr>
<td>Country:</td>
<td><input type="text" name="ccountry" size="25" maxlength="25" /></td>
</tr>
<tr>
<td>Business Phone:</td>
<td><input type="text" name="cbus" size="25" maxlength="25" /></td>
</tr>
<tr>
<td>Fax:</td>
<td><input type="text" name="cfax" size="25" maxlength="25" /></td>
</tr>
<tr>
<td>Mobile:</td>
<td><input type="text" name="cmobile" size="25" maxlength="25" /></td>
</tr>
<tr>
<td>E-mail:</td>
<td><input type="text" name="cemail" size="25" maxlength="25" /></td>
</tr>
<tr>
<td>Sales Representative:</td>
<td>
<select name="csr">
<option value="Bob Poetsch">Bob Poetsch</option>
<option value="Chris Dennison">Chris Dennison</option>
<option value="Chris Pagni">Chris Pagni</option>
<option value="Hemant Khemka">Hemant Khemka</option>
<option value="Ignacio Kohler Dios">Ignacio Kohler Dios</option>
<option value="Mike Cottone">Mike Cottone</option>
<option value="Ricardo Capiello">Ricardo Capiello</option>
<option value="Scott Johnson">Scott Johnson</option>
<option value="Timothy Tang">Timothy Tang</option>
<option value="Zheng Li">Zheng Li</option>
<option value="IMPulse">IMPulse NC</option>
</select>
</td>
</tr>
<tr>
<td>IMPulse NC Contact:</td>
<td>
<select name="cempcontact">
<option value="Customer Service">Customer Service</option>
<option value="Engineering">Engineering</option>
<option value="Finance">Finance</option>
<option value="General Manager/President">General Manager/President</option>
<option value="Manufacturing">Manufacturing</option>
<option value="Purchasing">Purchasing</option>
<option value="Quality">Quality</option>
<option value="Sales/Marketing">Sales/Marketing</option>
</select>
</td>
</tr>
<tr>
<td colspan="2">
<input type="submit" name="Added" value="Select to add customer to database!" />
</td>
</tr>
</form>
</table>
</table>
</body>
</html>
<!-- JavaScript starts here -->
<!-- Places text blinker in the cfname text box -->
<script language="javascript" type="text/javascript">
{
document.addCustomer.cfname.focus();
}
</script>
<!-- javascript ends here -->
Here is the added.asp that insert my new customer:
<%@LANGUAGE="VBSCRIPT"%>
<% Option Explicit %>
<%
'get pass parameters
Dim strUserName
Dim strPassword
Dim intSLevel
Dim objConn
Dim SQL
Dim objCmd
Dim objRS
Dim adLockPessimistic
Dim cfname
Dim clname
Dim ccomp
Dim cjob
Dim cadd1
Dim cadd2
Dim ccity
Dim cstate
Dim czip
Dim ccountry
Dim cbus
Dim cfax
Dim cmobile
Dim cemail
Dim csr
Dim cempcontact
'get session variables
strUserName = Session("username")
strPassword = Session("userpass")
intSLevel = Session("sLevel")
'open connection to the database
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Inetpub\db\IMPCustomers.mdb"
Set objCmd = Server.CreateObject("ADODB.Command")
'set sql statement
SQL = "INSERT INTO tblCustomerInfo (strCustFName, strCustLName, strCustCompany, strCustJobTitle, strCustAdd1, strCustAdd2, strCustCity, strCustState, strCustZipCode, strCustCountry, strCustBus, strCustFax, strCustMobile, strCustEmail, strCustSalesRep, strCustEmpContact) VALUES('"& cfname &"','"& clname &"', '"& ccomp &"', '"& cjob &"', '"& cadd1 &"', '"& cadd2 &"', '"& ccity &"', '"& cstate &"', '"& czip &"', '"& ccountry &"', '"& cbus &"', '"& cfax &"', '"& cmobile &"', '"& cemail &"', '"& csr &"', '"& cempcontact &"')"
With objCmd
.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Inetpub\db\IMPCustomers.mdb"
.CommandType = 1
.CommandText = sql
.Execute 128 'adExecuteNoRecords
End With
Set objCmd = Nothing
'prepare recordset object instance implicity using
'excute method of the Command object
'Set objRS = objCmd.Execute
'collect customer info to add to the database
'objRS.AddNew
'objRS("strCustFName") = Request.Form("cfname")
'objRS("strCustLName") = Request.Form("clname")
'objRS("strCustCompany") = Request.Form("ccomp")
'objRS("strCustJobTitle") = Request.Form("cjob")
'objRS("strCustAdd1") = Request.Form("cadd1")
'objRS("strCustAdd2") = Request.Form("cadd2")
'objRS("strCustCity") = Request.Form("ccity")
'objRS("strCustState") = Request.Form("cstate")
'objRS("strCustZipCode") = Request.Form("czip")
'objRS("strCustCountry") = Request.Form("ccountry")
'objRS("strCustBus") = Request.Form("cbus")
'objRS("strCustFax") = Request.Form("cfax")
'objRS("strCustMobile") = Request.Form("cmobile")
'objRS("strCustEmail") = Request.Form("cemail")
'objRS("strCustSalesRep") = Request.Form("csr")
'objRS("strCustEmpContact") = Request.Form("cempcontact")
'objRS.AddNew
%>
<!DOCTYPE html PUBLIC "-//W3C/DTD/ XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
<head>
<!-- This is the title of the page -->
<title>IMPulse NC Customer Database - Customer has been added.</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<!-- This starts the CSS for the page -->
<style type="text/css">
body {
font-family: Arial, Helvetica, sans-serif;
font-size: relative;
font-weight: bold;
}
table {
background-color:#cccccc;
border-color:#CCCCCC;
}
</style>
<!-- CSS ends -->
<link href="dbcss.css" rel="stylesheet" type="text/css" />
</head>
<body>
<table width="80%" border="1">
<tr>
<td>
<img src="art/dblogo.gif" width="322" height="74" />
</td>
</tr>
<tr>
<td>Thank you for adding to the database.</td>
</tr>
<tr>
<td><form action="custsearch.asp">
<input type="submit" name="Submit" value="Return to Search Page" />
</form></td>
</tr>
</table>
</body>
</html>
<%
'objRS.Close
'Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>