<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Inetpub\wwwroot\Tasjil\db1.mdb"
conn.open
Mysql="select * from Tadreb"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open Mysql,conn,1,2
rs.AddNew
tmpFld = Fname
if Fname <>"" then
rs("Fname") = tmpFld
else
response.write("First name")
End if
tmpFld = Sname
if Sname <>"" then
rs("Sname") = tmpFld
else
response.write("Second name")
End if
rs.update
rs.close
%>
