<%
set o = new clsUpload
if o.Exists("cmdSubmit") then
'declare the variables
Dim Connection
Dim ConnectionString
Dim Recordset
Dim SQL
'define the connection string, specify database driver
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")
s1=o.valueOf("na")
s2=o.valueOf("ty")
s3=o.valueOf("re")
s4=o.valueOf ("am")
s5=o.valueOf("sd")
s6=o.valueOf ("ed")
'Open the connection to the database
Connection.Open ConnString
SQL="insert into events_news(name,type,reg,amount,sdate,edate) values('"&s1&"','"&s2&"',"&s3&","&s4&",'"&s5&"','"&s6&"')"
Connection.execute SQL
Connection.Close
Set Connection=nothing
Set o = nothing
end if
%>