HOŞ GELDİNİZ!!!!!!!!!!!!!!!

Arşiv

25/7/2007: 1980’LERDEN GÜNÜMÜZE DÜNYADA DİN AHLAKININ YÜKSELİŞİ
25/7/2007: DARWINIZM'İN ÖLÜMÜ, HZ. İSA’NIN İKİNCİ KEZ YERYÜZÜNE G
25/7/2007: DÜNYA EKONOMİSİ,ASKERİ GÜÇ ve TÜRKİYE

2007
Temmuz 2007
<% Set Mail = Server.CreateOBject("Dundas.Mailer") sReturn = Mail.QuickSend("alici@domain.com",”gonderen@domain.com”,”konu basligi”,”mesajınız”) Set Mail = Nothing %>




Get your own Flash MP3 Player
deneme mesajı
HERŞEY MİLLET İÇİN
.................. ................. ...............
User Name
Password
Email
Nokta nokta olan yerlere isteğe göre alanlar eklenebilir. Burada önemli olan kısım ise, eklediğimiz alanların veritabanında da yer alıyor olması gerektiğidir. Bu form "BECOME A MEMBER" butonuna tıklandığında, "membership.asp" adlı dosyaya bilgi gönderecektir. Bu dosya server'da bulunması gereken bir dosyadır. Bu dosyanın içeriği ise, <% dim sqlstring,connectionstring,username,password,email,.............. Connectionstring="PROVIDER=SQLOLEDB;DATABASE=MEMBERSHIP;USER ID=SA;PASSWORD=000019" SET Connection=server.createobject("ADODB.Connection") connection.open connectionstring username=Trim(Request.Form("username")) password=Trim(Request.Form("password")) email=Trim(Request.Form("email")) ...................... .................... sqlstring="insert into membership (username,password,email) values ('"&usename&"',''"&password&"',''"&email&"')" SET RecordSet=Server.CreateObject("ADODB.RecordSet") RecordSet.Open sqlstring,connection,adopenstatic,adlockoptimistic,adcmdtext SET RecordSet=NOTHING SET Connection=NOTHING %> Ana sayfa yap
Gazeteler
Oyunlar
Gazeteler
Oyunlar
Güzel Sözler Site Ekle <%
badwordFilter = "Acik"
Dim badword
badword = "fuck|suck|sex"

metin = Request.Form("metin" )

strwords = Split(badword, "|" )
For I = 0 to Ubound(strwords)
metin = Replace(metin, strwords(I), String(Len(strwords(I)),"*" ), 1,-1,1)
next
If badwordFilter= "Acik" Then
Response.Write metin
else
Response.Write metin
End If
%>



Canlı TV izle Desteklemektedir.