teox

Şimdi Veritabanımızda davetiye ve uyeler tablomuz olsun.
Davetiye tablosunda; (daveteden)(davetiyeno)(davetedilenmail)(davettari hi) olsun
Uyeler tablosunda ise; (uyeadi)(sifre)(daveteden)(mail) olsun
Şimdi davetiye göndermek için kodumuzu koyalım;

(davetet.asp) Davet Etme Sayfası

<%
vt="vt.mdb"
set baglan = Server.CreateObject("ADODB.Connection")
baglan.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(vt))



set davetiye = server.createobject("adodb.recordset")
davetiye.Open "Select * from davetiye where mail=’"&request("davet_edilenin_maili")&"’",baglan ,1,3
if davetiye.eof then

’Davetiye Numarası oluşturma
for i = 1 to 30 ’ kac harf kac rakam olacaksa o kadar don.
randomize
z = 90 ’ascii z
a = 65 ’ascii a
pass = pass + Chr(Int((z - a + 1) * Rnd + a))
s_9 = 57 ’acsii 9
s_0 = 48 ’ascii 0
pass = pass + Chr(Int((s_9 - s_0 + 1) * Rnd + s_0))
next

’Davet Edileni Kaydetme
davetiye.AddNew
davetiye("daveteden")=session("uyeadi")
davetiye("davetiyeno")=pass
davetiye("mail")=request("davet_edilenin_maili")
davetiye("davettarihi")=now()
davetiye.update


’Davet Edilen kişiye mail gönderme
Set Mail=Server.CreateObject(“CDONTS.NewMail”)
Mail.To=request("davet_edilenin_maili")
Mail.From=”davet@arkadas.com”
Mail.Subject=”Just testing my script”
Mail.bOdy=session("uyeadi")&" sana davet gönderdi. Senin davetiyen <a href= ""davetiye.asp?davetiyeno="&pass&"&mail="&request( "davet_edilenin_maili")&""">Davete Geliver Bakiim</a>”
Mail.Send
Set Mail=nothing


end if
%>


(davetiye.asp) Davetiyenin kayıt sayfası

<%

vt="vt.mdb"
set baglan = Server.CreateObject("ADODB.Connection")
baglan.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(vt))

set davetiye = server.createobject("adodb.recordset")
davetiye.Open "Select * from davetiye where mail=’"&request("mail")&"’ and davetiyeno=’"&request("davetiyeno")&"’",baglan,1,3
if not davetiye.eof then
session("daveteden")=davetiye("daveteden")
%>
<form method=post action=davetiye.asp>
<input type=hidden name=davetiyeno value="<%=request("davetiyeno")%>">
<input type=hidden name=mail value="<%=request("mail")%>">
<input type=text name=uyeadi>
<input type=text name=sifre>
</form>

<%
if session("uyeolsun")="Evet" then

set kayit = server.createobject("adodb.recordset")
kayit.Open "Select * from uyeler where uyeadi=’"&request("uyeadi")&"’",baglan,1,3
if kayit.eof then
kayit.AddNew
kayit("uyeadi")=request("uyeadi")
kayit("daveteden")=session("daveteden")
kayit("sifre")=request("sifre")
kayit("mail")=request("mail")
Kayit.Update
response.write "Kayıt Yapıldı!"
end if

end if

session("uyeolsun")="Evet"

else

response.write "Davetiyeniz Yok!"

end if

%>

Selametle

__________________
Varmı Beni İçinizde Tanıyan?<br />Yaşanmadan Çözülmeyen Sır Benim<br />Kalmasada Şöhretimi Duymayan, <br />Kimliğimi Tarif etmek zor Benim.<br />Kimsesizim hısmım da çok, hasmım da, <br />Görünmezim cismim de yok, resmim de, <br />Dil üzmezim, tek hece var ismimde, <br />Barınağım PC

İnDrA

eyvallah kardeşim ii çalışma

__________________
RoCk'n RoLl...

MOD-ERN

ewt iyi olmuş teşekkürler

__________________
\&nbsp; &nbsp; /&nbsp;&nbsp; I^\<br />\&nbsp; &nbsp; /&nbsp;&nbsp; I&nbsp; /<br />\,,,,/&nbsp;&nbsp; I&nbsp; \

FaTe

gayet iyi fakat bende çalışmadı acaba mdb demi hata yaptım yapan varsa db yi buraya koyabilirmi?