<%
dim conn,dsnpath,sql
set conn=server.createobject("adodb.connection")
dsnpath = "DRIVER={MICROSOFT ACCESS DRIVER (*.mdb)}; "
dsnpath = dsnpath & "DBQ=" & Server.MapPath("db/dbAnket1.mdb")
conn.open dsnpath
if request.cookies("Anket") <> "OK" then
response.cookies("Anket")="OK"
sql= "INSERT INTO tblAnket1("
sql=sql + "evet,"
sql=sql + "hayir"
sql=sql + ") values ("
sql=sql + "'" + Request.Form("evet") + "'" + ", "
sql=sql + "'" + Request.Form("hayir") + "'" + "); "
conn.execute(sql)
if error then
msg="HATA OLUSTU"
else
msg="ANKETİMİZE KATILDIĞINIZ İÇİN,
"
msg=msg & " TEŞEKKÜR EDERİZ "
end if
response.write(msg)
else
msg="Üzgünüm Daha Önce Anketimize katılmışsınız, Oyunuz geçerli sayılmayacaktır."
response.write(msg)
end if
conn.close
set conn=nothing
%>
|
