<%
if request.QueryString("na") = "" then
%>
feedback
FeedBackEntry
<%
else
if request.cookies("feed") = "" then
na=request.QueryString("na")
fe=request.QueryString("fe")
ConnString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=luther.ebiz4.com; DATABASE=heart-t_robhs; " &_
"UID=heart-t_robhs;PASSWORD=balaji; OPTION=3"
Set Connection = Server.CreateObject("ADODB.Connection")
'Set Recordset = Server.CreateObject("ADODB.Recordset")
Connection.Open ConnString
SQL="insert into feed values('"&na&"','"&fe&"')"
'Response.Write SQL
Connection.Execute SQL
Connection.Close
Set Connection=nothing
response.write("
Thank you")
response.cookies("feed")=1
else
'response.write("don't enter second time")
end if
end if
%>