DIM ACSCONN<br>SET ACSCONN = SERVER.CREATEOBJECT("ADODB.CONNECTION"

<br>ACSCONN.CONNECTIONSTRING="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\acsoftware2000\Database\ACSVisits.mdb;Persist Security Info=False" <br>ACSCONN.OPEN<br>SET ACSADD= SERVER.CREATEOBJECT("ADODB.COMMAND"

<br>SET ACSADD.ACTIVECONNECTION = ACSCONN<br><br>ACSADD.COMMANDTEXT = "INSERT INTO ACSVISITS (VDATE,FULLNAME,ADDRESS,CITY,STATE,ZIPCODE,COUNTRY,BUSINESSNAME,BUSINESSDESC,PHONE1,PHONE2,EMAIL,NEEDS) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?)"<br>ACSADD.PARAMETERS.APPEND ACSADD.CREATEPARAMETER("VDATE",135, ,8)<br>ACSADD.PARAMETERS.APPEND ACSADD.CREATEPARAMETER("FULLNAME",200, ,60)<br>ACSADD.PARAMETERS.APPEND ACSADD.CREATEPARAMETER("ADDRESS",200, ,50)<br>ACSADD.PARAMETERS.APPEND ACSADD.CREATEPARAMETER("CITY",200, ,30)<br>ACSADD.PARAMETERS.APPEND ACSADD.CREATEPARAMETER("STATE",200, ,2)<br>ACSADD.PARAMETERS.APPEND ACSADD.CREATEPARAMETER("ZIPCODE",200, ,5)<br>ACSADD.PARAMETERS.APPEND ACSADD.CREATEPARAMETER("COUNTRY",200, ,30)<br>ACSADD.PARAMETERS.APPEND ACSADD.CREATEPARAMETER("BUSINESSNAME",200, ,40)<br>ACSADD.PARAMETERS.APPEND ACSADD.CREATEPARAMETER("BUSINESSDESC",200, ,50)<br>ACSADD.PARAMETERS.APPEND ACSADD.CREATEPARAMETER("PHONE1",200, ,15)<br>ACSADD.PARAMETERS.APPEND ACSADD.CREATEPARAMETER("PHONE2",200, ,15)<br>ACSADD.PARAMETERS.APPEND ACSADD.CREATEPARAMETER("EMAIL",200, ,60)<br>ACSADD.PARAMETERS.APPEND ACSADD.CREATEPARAMETER("NEEDS",200, ,200)<br>ACSADD("VDATE"

= NOW<br>ACSADD("FULLNAME"

= REQUEST("FULLNAME"

<br>ACSADD("ADDRESS"

= REQUEST("ADDRESS"

<br>ACSADD("CITY"

= REQUEST("CITY"

<br>ACSADD("STATE"

= REQUEST("STATE"

<br>ACSADD("ZIPCODE"

= REQUEST("ZIPCODE"

<br>ACSADD("COUNTRY"

= REQUEST("COUNTRY"

<br>ACSADD("BUSINESSNAME"

= REQUEST("BUSINESSNAME"

<br>ACSADD("BUSINESSDESC"

= REQUEST("BUSINESSDESC"

<br>ACSADD("PHONE1"

= REQUEST("PHONE1"

<br>ACSADD("PHONE2"

= REQUEST("PHONE2"

<br>ACSADD("EMAIL"

= REQUEST("EMAIL"

<br>ACSADD("NEEDS"

= REQUEST("NEEDS"

<br>ACSADD.EXECUTE<br>SET ACSADD = NOTHING<br>SET ACSCONN=NOTHING