<% varName = "Ramesh Thiruchelvam" %>
<% varEmail = "ramesh_thiru@yahoo.com" %> <% Set Conn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") Conn.Open "DefaultDir=c:\inetpub\wwwroot\ms text;Driver={Microsoft Text Driver (*.txt; *.csv)};Extensions=txt,csv,tab,asc;" SQL = "SELECT fldName, fldEmail FROM db.csv" rs.Open SQL, Conn, 1, 3 rs.AddNew rs.Fields("fldName") = varName rs.Fields("fldEmail") = varEmail rs.Update %> <% varName = "Ramesh Thiruchelvam" %> <% varEmail = "ramesh_thiru@yahoo.com" %> <% Set Conn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") Conn.Open "DefaultDir=c:\inetpub\wwwroot\ms text;Driver={Microsoft Text Driver (*.txt; *.csv)};Extensions=txt,csv,tab,asc;" SQL = "SELECT fldName, fldEmail FROM db.csv" rs.Open SQL, Conn, 1, 3 rs.AddNew rs.Fields("fldName") = varName rs.Fields("fldEmail") = varEmail rs.Update %> |