%
if request("action")="add" then
names=trim(request.Form("names"))
adr=trim(request.Form("adr"))
tel=trim(request.Form("tel"))
contact=trim(request.Form("contact"))
email=trim(request.Form("email"))
content=trim(request.Form("content"))
if content="" then
response.Write""
response.End
end if
set rs=server.CreateObject("adodb.recordset")
rs.open"select * from feedback ",conn,1,3
rs.addnew
rs("names")=names
rs("adr")=adr
rs("tel")=tel
rs("contact")=contact
rs("email")=email
rs("content")=content
rs.update
response.Write""
rs.close
set rs=nothing
end if
%>