<% 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 request.QueryString("islem")="kayitol" then if TestCaptcha("ASPCAPTCHA", Request.Form("captchacode")) then %> <% sorgum="select * from firma" Rs.Open Sorgum, Baglantim, 1, 3 rs.addnew rs("adi")=Request.Form("T1") rs("yetkili")=Request.Form("T2") rs("Adresi")=Request.Form("T3") rs("ilce")=Request.Form("T4") rs("Sehir")=Request.Form("T5") rs("ulke")=Request.Form("T15") rs("postakodu")=Request.Form("T6") rs("Telefon")=Request.Form("T7") rs("Telefon2")=Request.Form("T8") rs("Fax")=Request.Form("T9") rs("Cep")=Request.Form("T10") rs("www")=Request.Form("T11") rs("Mail")=Request.Form("T12") rs("skodu")=cint(skodu) rs("askodu")=Request.Form("askodu") rs("aciklama")=Request.Form("T14") rs("kayittarihi")=Request.Form("T16") rs("anahtar_kelime")=Request.Form("T17") rs("video_kodu")=Request.Form("T18") rs("ozel")=false rs("onay")=false rs.update Set FSO = CreateObject("Scripting.FileSystemObject") veri=FSO.GetFolder(server.MapPath("firmalar/"))&"\"&rs("fkodu") FSO.CreateFolder veri veri1=veri&"\logo" FSO.CreateFolder veri1 veri2=veri&"\urun" FSO.CreateFolder veri2 veri3=veri&"\diger" FSO.CreateFolder veri3 fkodu=rs("fkodu") rs.close%>

Üye Ekleme Talebiniz Başarıyla Gönderilmiştir.
 12 Saat İçinde Onaylandıktan Sonra Sitemizde Yayınlanacaktır.
Konuyla İlgili Mail Adresinize Dönüş Yapılacaktır.
İlginiz için Teşekkürler...

NOT :
Profil Resminizi Yüklemek İçin Lütfen Alttaki Resmi Tıklayınız...
<%=siteadi%> Site Yönetimi Adına
<%=siteyetkili%>

<%else%>

Güvenlik Kodu Hatalı veya Eksik.
Lütfen Geri Gidip Güvenlik Kodunu Yenileyin Ve Düzgün Bir Şekilde Tekrar Girin.
<%end if%> <%end if%> <%if request.QueryString("islem")="" then%>
" onSubmit="return invalid(email);">
<%if skodu<>"" then%> <% end if %>
Faaliyet Alanınız
 :* *
Alt Kategoriler
 : <% rs.open "select * from altsektor where skodu="&skodu,baglantim,1,3 do while not rs.eof%> "> <%= rs("adi") %>
<% rs.movenext loop rs.close %>
Üye Adı
:*
Üye Adı
:*
Yaş
:
Telefonlar
:*
-
Boy & Kilo
:
-
Web Sitesi
:
Adres
:*
Üye Tanıtımı
:*
Anahtar Kelimeleriniz
(Kelimeleri (,) ile ayırınız. Max 100 karakter)
:
Varsa Üye Videosu Kodu
(Üye videonuzu herhangi bir video paylaşım sitesine yukleyerek size verilen kodu yazabilirsiniz.)
:
Güvenlik Kodunu
:*
- Kodu Yenile
Kayıt Tarihi
:*
__
______(*) İle İşaretli Alanların Doldurulması Zorunludur.
ÖNEMLİ NOT:
Üyeliginizi kayıt ettikten sonra logo ekranına yönlendirileceksiniz.
Site ziyaretçilerimizin profilinizi daha rahat bulabilmeleri için Profil Resmi'nizi yüklemenizi öneririz.
<%end if%>