[Cem Basar Kizildere]

Selamlar, umarim ornek verecegim sitenin politik haberler icermesi sorun olmaz ama http://www.ulucgurkan.net/ adresinde ki sag ust kosedeki sekilde bir imza script'i ariyorum. Bedava, kurulumu kolay, turkce destegi olan bir script var mi bu islevi goren?

Tesekkurler.

[madHatter]

ilk önce ms access ile bi database oluştur.
örneğimdaki database :
tablo adı : imza
kolonlar : id(otomatik sayı) - adi(not) - soyadi(not) - mail(not)

şimdi gelelim sayfalarımıza

imza.ASP
<form method="post" action="ekle.ASP">
<meta http-equiv="Content-Language" content="tr">
<p>Adınız : <input type="text" name="adi" size="20"><br>
Soyadınız : <input type="text" name="soyadi" size="20"><br>
E-Posta : <input type="text" name="mail" size="20"><br>
<input type="submit" value="Oy ver" name="B1"></p>

ekle.ASP
<%
Set Baglanti = server.CreateObject("ADODB.Connection")
Baglanti.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("data.mdb")

adi = Request.form("adi")
soyadi = Request.form("soyadi")
mail = Request.form("mail")


if adi="" or soyadi = "" then
response.write "lütfen adınızı ve soyadınızı yazınız!"

else

Set kaydet = server.Createobject("ADODB.RecordSet")
SQL = "Select * From imza"
kaydet.open SQL,Baglanti,1,3

kaydet.addnew
kaydet("adi") = adi
kaydet("soyadi") = soyadi
kaydet("mail") = mail
kaydet.update

response.write"imzanız kaydedildi.teşekkür ederiz"
end if
%>

imzaları listelemek için
listele.ASP
<%
Set Baglanti = server.CreateObject("ADODB.Connection")
Baglanti.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("data.mdb")

Set listele = baglanti.Execute("Select * from imza order by id DESC")
do while not listele.eof
%>
<%=listele("adi")%> <%=listele("soyadi")%>
<br>
<%
listele.Movenext
Loop
%>

scripti güvenlik açısından geliştir ama bu şekilde kolay hacklenir. + inş sunucun ASP destekliyordur
umarım işine yarar kolay gelsin

[Cem Basar Kizildere]

Detayli cevap icin teskkurler yalniz yazdigin konuda bilgim pek yeterli olmadigi icin kurulumu kolay hazir bir script ariyorum..