<%

Dim conn
Dim rs
Dim strconn
Dim DBQValue

Session("DataConn_ConnectionString") = _
"DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("user.mdb")

strconn = Session("DataConn_ConnectionString")
set conn = server.createobject("adodb.connection")
set rs = server.createobject("adodb.recordset")
'conn.open strconn
conn.open strconn
strsql = "Select * From USERTBL"
rs.open strsql, conn, 2, 2

    rs.Addnew
    rs.Fields("Name") = request.form("Name")
	rs.Fields("Email") = request.form("Email")
   	rs.Fields("Country") = request.form("Country")    
   	rs.Fields("Professional") = request.form("Professional")    
	rs.Fields("Tel") = request.form("Tel")  
	rs.Fields("Category") = request.form("Category")   
	rs.Fields("Date") = Date  
	rs.Fields("Remarks") = request.form("Remarks") 
	rs.Fields("Know") = request.form("Know") 
	
	rs.Update
 
%>
<!-- #Include file="includes/email.inc" --> 
<%
 

  Response.Redirect "http://www.tamilinternet.org"
 rs.Close    
 set rs = nothing     

%>