<%
if request("status")=1 then
name=request("name")
email=request("email")
design=request("site")
friendliness=request("friendliness")
contentmgmt=request("contentmgmt")
download=request("download")
comment=request("comment")
dim rs
dim con,id
set con = server.createobject("ADODB.Connection")
con.connectiontimeout=60
con.open "Data Source=//nawinfs03/home/users/web/b1013/rh.asthmacure/database/asthmaDatabase.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"
set rs=server.createobject("adodb.recordset")
rs.open "select * from feedback",con,1,3
if rs.eof then
id = 0
else
rs.movelast
id=rs("id")
end if
id=id+1
rs.addnew
rs("id") = id
rs("name")=name
rs("email")=email
rs("design")=design
rs("friendliness")=friendliness
rs("contentmgmt")=contentmgmt
rs("download")=download
rs("comment")=comment
rs.update
rs.close
set rs=nothing
con.close
set con=nothing
%>
Thank you for visiting our site. We value your inputs and will make an earnest effort to make our site as useful and informative as possible.
