<% ConnString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=luther.ebiz4.com; DATABASE=heart-t_robhs; " &_ "UID=heart-t_robhs;PASSWORD=balaji; OPTION=3" 'create an instance of the ADO connection and recordset objects Set Connection = Server.CreateObject("ADODB.Connection") 'Set Recordset = Server.CreateObject("ADODB.Recordset") a=Request.Form("na") response.write a b=Request.Form("de") c=Request.Form("in") d=Request.Form("pt") e=Request.Form("add") f=Request.Form("ph") g=Request.Form("mi") h=Request.Form("dd") i=Request.Form("bk") j=Request.Form("dt") k=Request.Form("da") l=Request.Form("rte1") m=Request.Form("eid") 'Open the connection to the database Connection.Open ConnString SQL="insert into res(name,des,ins,pt,adds,dd,poem,eid) values('"&a&"','"&b&"','"&c&"','"&d&"','"&e&";"&f&";"&g&"','"&h&";"&i&";"&j&";"&k&"','"&l&"',"&m&")" Connection.execute SQL 'Response.Write SQL ' Recordset.Open SQL,Connection 'Open the recordset object executing the SQL statement and return records 'SQL = "SELECT * FROM res" 'Recordset.Open SQL,Connection 'Recordset.Close 'Set Recordset=nothing Connection.Close Set Connection=nothing %>