<!-- #include File="yonetim/baglanti.asp" -->
<%
function TestCaptcha(byval valSession, byval valCaptcha)
dim tmpSession
valSession = Trim(valSession)
valCaptcha = Trim(valCaptcha)
if (valSession = vbNullString) or (valCaptcha = vbNullString) then
TestCaptcha = false
else
tmpSession = valSession
valSession = Trim(Session(valSession))
Session(tmpSession) = vbNullString
if valSession = vbNullString then
TestCaptcha = false
else
valCaptcha = Replace(valCaptcha,"i","I")
if StrComp(valSession,valCaptcha,1) = 0 then
TestCaptcha = true
else
TestCaptcha = false
end if
end if
end if
end function
if TestCaptcha("ASPCAPTCHA", Request.Form("captchacode")) then
on error resume next
Sub harf
sayach=0
Randomize
DO WHILE sayach=0
m=round(rnd*255)
IF (M>65) and (M<91) OR (M>96) and (M<123) THEN
sifre = sifre & chr(round(m))
sayach=1
END IF
LOOP
End Sub
SUB rakam1
sayac=0
Randomize
DO WHILE sayac=0
m=round(rnd*255)
IF (M>47 and M<58) THEN
sifre = sifre & chr(round(m))
sayac=1
END IF
LOOP
END SUB
sayi=0
sifre=""
DO WHILE Sayi<6
rakam1
Sayi=Sayi+1
LOOP
gsifre = sifre
'response.Write gsifre
SUB MESAJGONDER
strmesg = "<Table width=500 Align=center cellspacing=0 style=font-family:Verdana;Font-Size:11Px;border:solid 1 black>"
strmesg = strmesg & "
<tr Align=left>
<th colspan=2 align=center> 19. Ulusal Yönetim ve Organizasyon Kongresi - Kayıt Onayı </td>
</tr>
"
strmesg = strmesg & "
<tr Align=left>
<td width=40% > Adınız </td>
<th align=left>" &requestSec("adiniz")& " </td>
</tr>
"
strmesg = strmesg & "
<tr Align=left>
<td> Soyadınız </td>
<th align=left>" &request("soyadiniz")& " </td>
</tr>
"
strmesg = strmesg & "
<tr Align=left>
<td> E-Posta Adresiniz </td>
<th align=left>" &requestSec("eposta")& " </td>
</tr>
"
strmesg = strmesg & "
<tr Align=left>
<td> Şifreniz </td>
<th align=left Valign=Top>" &gsifre& " </td>
</tr>
"
strmesg = strmesg & "
<tr Align=left>
<td colspan=2> <a href=http://www.yonetimkongresi.org/basvurusistemi.asp target=_blank>KAYIT İŞLEMİNE DEVAM ETMEK İÇİN TIKLAYINIZ </a></td>
</tr>
"
strmesg = strmesg & "
</table>
<br>"
'response.Write strmesg
Set Mesaj = Server.CreateObject("CDONTS.NewMail")
Mesaj.From = "yonetimkogresi@gmail.com"
Mesaj.To = requestSec("eposta")
Mesaj.BCC = requestSec("eposta")
Mesaj.Subject = "19. Ulusal Yönetim ve Organizasyon Kongresi - Kayıt Onayı"
'Mesaj.Subject = StrBaslik
'Mesaj.Cc = StrBilgi
'Mesaj.Cc = StrGizli
Mesaj.BodyFormat = 0
Mesaj.MailFormat = 0
Mesaj.Body = strmesg
Mesaj.Send
' mesaj.AttachURL = "c:\Resimler\YeniYil_2002.jpg", "YeniYil_2002.jpg"
Set Mesaj = Nothing
'IF Not (eposta = "") THEN
'Set Mail = Server.CreateObject("Persits.MailSender")
'Mail.Host = "mailscriptserver" ' Değiştirmeyiniz !!!
'Mail.MailFrom = eposta 'Kendi domaininiz olması zorunludur !!!
'Mail.From = request("femail") ' Gönderenin Email adresi
'Mail.AddAddress eposta, "alıcı adı"
'Mail.isHTML = True
'Mail.Subject = "Yeni Bilgi Geldi"
'Mail.Body = strmesg
'On Error Resume Next
'Mail.Send
' If Err <> 0 Then
' Response.Write "Error encountered: " & Err.Description
'End If
set Mail = Nothing
'END IF
END SUB
sqlkontrol = "select count(*) from katilimcilar Where eposta='"&request("eposta")&"'"
set rsKontrol = Baglanti.Execute(sqlkontrol)
IF Cint(rsKontrol(0)) > 0 THEN
Response.Write "Geri Döndür"
ELSE
sqlkayit = "insert into katilimcilar (eposta, adi, soyadi,durum,sifre,kayittarihi) Values('"&requestSec("eposta")&"','"&requestSec("adiniz")&"','"&requestSec("soyadiniz")&"','AKTİVASYON','"&gsifre&"','"&date&"')"
Baglanti.Execute(sqlkayit)
Session("kayitmesajia2") = "Ön kayıt işleminiz gerçekleştirilmiştir. Sisteme giriş şifreniz e-posta adresinize gönderilmiştir. Şifrenizle birlikte giriş yaparak 2. adıma geçebilirsiniz."
'Response.Write sqlkayit
'Response.Write "Kayıt İşlemi"
END IF
'MESAJGONDER
'Session("Mesaj") = " Bilgileriniz ilgili birime iletilmiştir. Size geri dönülmesi gerektiğinde telefonunuzdan veya mailinizden size ulaşılacaktır. "
'sReferer = Request.ServerVariables("HTTP_REFERER")
'IF right(sREferer,21) = "ziyaretci_defteri.asp" THEN
' response.redirect "default_tr.asp"
'ELSE
' response.redirect "default_en.asp"
'END IF
ELSE
Session("kayitmesaji") = "Güvenlik kodunuz yanlış. Yeniden deneyiniz"
END IF
response.redirect "basvurusistemi.asp"
%>
Merhaba arkadaşlar sorun şu ilk kaydı yapıyor ikinci kaydı yapamıyor kullanıcılar yani access sadece bir kişiyi kaydediyor sorun ne burda ya :(
