Try this:


<%

Dim objConn 
Dim RS1
Dim SQL

SQL =3D "SELECT * FROM Information WHERE 1=3D2"

'Create a connection object
Set objConn=3DServer.CreateObject ("ADODB.Connection")
'Open the connection
objConn.Open "Provider=3DMicrosoft.Jet.OLEDB.4.0;Data 
Source=3DC:\Marwah\Shalimar.MDB;Persist Security Info=3DFalse"
'Open Recordset
'
Set RS1=3DServer.CreateObject ("ADODB.Recordset")
RS1.Open SQL, objConn, 1, 3
RS1.AddNew
RS1("Salutation")=3D"Mr"
RS1.Update
RS1.Close
Set RS1 =3D Nothing
objConn.Close
Set objConn =3D Nothing
%>

Ignore the 3D its a problem with the email
it does not exists in the code
  Cheers
Nikos
At 06:20 =F0=EC 23/12/2002, you wrote:
>Try this:
>
>
><%
>
>Dim objConn
>Dim RS1
>Dim SQL
>
>SQL =3D3D "SELECT * FROM Information WHERE 1=3D3D2"
>
>'Create a connection object
>Set objConn=3D3DServer.CreateObject ("ADODB.Connection")
>'Open the connection
>objConn.Open "Provider=3D3DMicrosoft.Jet.OLEDB.4.0;Data
>Source=3D3DC:\Marwah\Shalimar.MDB;Persist Security Info=3D3DFalse"
>'Open Recordset
>'
>Set RS1=3D3DServer.CreateObject ("ADODB.Recordset")
>RS1.Open SQL, objConn, 1, 3
>RS1.AddNew
>RS1("Salutation")=3D3D"Mr"
>RS1.Update
>RS1.Close
>Set RS1 =3D3D Nothing
>objConn.Close
>Set objConn =3D3D Nothing
>%>