Serviced Offices ... Virtual Office... Secretarial Services... Data Management... PC Training


Move in Start work!

<% if isempty(request.form) then Dim numberCon Dim numberrst Dim newnum Set numberConn = server.CreateObject("ADODB.Connection") strconnectnum = "DBQ=c:\inetpub\datafiles\offline\downscourt\DCBC010302data\regnumber.mdb;defaultdir=c:\inetpub\datafiles\offline\downscourt\DCBC010302data;DRIVER={Microsoft Access Driver (*.mdb)};" numberConn.Open strconnectnum Set numberrst = server.CreateObject("ADODB.Recordset") numberrst.ActiveConnection = numberConn numberrst.CursorType = adOpenKeyset numberrst.LockType = adLockOptimistic numberrst.SOURCE = "tblnumbers" numberrst.Open 'On Error Resume Next numberrst.AddNew numberrst.Update newnum=numberrst("fldID")%>

	Please tell us what you think about our web site,company, products, or services. If you provide us with your contact information, we will be able to reach you in case we have any questions.
Comments Category Contact Information
Title
First Name
Surname
Job Title
Company
Address
Town
Postcode
Telephone
FAX
E-mail
21. Jobcode INT<%=newnum%>

<%else Dim Conn Dim rst Set Conn = Server.CreateObject("ADODB.Connection") strconnect = "DBQ=c:\inetpub\datafiles\offline\downscourt\DCBC010302data\DCBC010302data.mdb;defaultdir=c:\inetpub\datafiles\offline\downscourt\DCBC010302data;DRIVER={Microsoft Access Driver (*.mdb)};" Conn.Open strconnect Set rst = Server.CreateObject("ADODB.Recordset") rst.ActiveConnection = Conn rst.CursorType = adOpenKeyset rst.LockType = adLockOptimistic rst.SOURCE = "tblquestionnaire" rst.Open On Error Resume Next rst.AddNew For Each fld In rst.Fields If request.Form(fld.Name) <> "" Then 'only do fields with data in them 'check for multi selections If request.Form(fld.Name).Count > 1 Then For x = 1 To request.Form(fld.Name).Count If mytext = "" Then mytext = request.Form(fld.Name)(x) Else mytext = mytext & "," & request.Form(fld.Name)(x) End If Next rst(fld.Name) = mytext mytext="" Else rst(fld.Name) = request.Form(fld.Name) End If If Err <> 0 Then 'Data mismatch error with Tick Boxes If request.Form(fld.Name) = "ON" Then rst(fld.Name) = -1 End If Err = 0 End If End If Next rst.Update rst.Close Conn.Close response.write "