 Anket
|
|
|
<%islem=request.QueryString("maillist")
if islem="listeye_ekle" then
Set baglanti = Server.CreateObject("ADODB.Connection")
baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("data/kimiilgilendirir.mdb")
set sd=server.CreateObject("adodb.recordset")
sql="select * from eposta"
sd.open sql,baglanti,1,3
if request.Form("ad")="" or request.Form("mail")="" then
Response.Write ""
Response.Write ""
else
sd.addnew
sd("isimsoyad")=request.Form("ad")
sd("eposta")=request.Form("mail")
sd.update
Response.Write ""
Response.Write ""
end if
end if
%> |
Dölek Köyü Resimlerinden