moto gp

18/10/2006

ÖRNEK: ( " action="default.asp?islem=forumlogynol.asp " )

Kullanycy Adynyz:
?ifreniz:

MotoGP 2007 de Türkiye üçüncü yarış Japonya

MotoGP 2007'de Türkiye üçüncü yarış
2 saat 16 dakika önce

MotoGP'de 2007 takviminde Türkiye ve Çin yarışları yer değiştirdi. İstanbul Park sezonun üçüncü yarışına evsahipliği yapacak.

18 ayaktan oluşan MotoGP 2007 sezonu 10 martta Katar Grand Prix'si ile başlayacak.

Önümüzdeki yılın takviminde Türkiye ve Çin yarışları yer değiştirdi. İstanbul Park, 22 nisanda sezonun üçüncü yarışına evsahipliği yapacak, Şangay pisti 6 mayısta dördüncü yarışı düzenleyecek.

Takvime eklenen San Marino Grand Prix ile sezon 18 yarışa çıkarıldı.

2007 sezonunda açılış yarışı Katar ve dokuzuncu ayak Hollanda cumartesi günü koşulacak. San Marino etabı 2 eylülde yapılacak. Sezon Valencia'da sona erecek.

Moto GP 2007 takvimi

Katar - 10 Mart
İspanya - 25 Mart
Türkiye - 22 Nisan
Çin- 6 Mayıs
Fransa- 20 Mayıs
İtalya - 3 Haziran
Katalunya - 10 Haziran
İngiltere - 24 Haziran
Hollanda - 30 Haziran
Almanya - 15 Temmuz
ABD - 22 Temmuz
Çek Cum. - 19 Ağustos
San Marino - 2 Eylül
Portekiz - 16 Eylül
Japonya 23 Eylül
Avustralya - 14 Ekim
Malezya - 21 Ekim
Valencia - 4 Kasım

Kaynak:CNNTürk
Konular: Japonya

Yorum (0) Yorum yaz!

Yorum yaz! :: Arkadaşına Gönder!

0 yorum yazılmıştır

Son Yazılarım

Kategorilerim

Arkadaşlarım

Bağlantılarım

Blogcu ile yapıldı

<% Response.Buffer = True %> <%on error resume next%> <% Set getValues = objConn.Execute("SELECT * FROM AYARLAR WHERE A_ID = 0") dk_g = getValues("A_TIMEOUT") recordNo = getValues("A_LINK_RECORD") nRecordNo = getValues("A_NEWS_RECORD") lcid = getValues("A_LCID") Session.LCID = lcid titleAdd = getValues("A_SITE_NAME") msgLimit = getValues("A_MSG_LIMIT") msgTimeout = getValues("A_MSG_TIMEOUT") bannedIPs = getValues("A_BANNED_IPS") passRemind = getValues("A_PASS_REMIND") siteAddr = getValues("A_SITE_ADDR") siteMail = getValues("A_SITE_EMAIL") mailServer = getValues("A_MAIL_SERVER") uyeMetod = getValues("U_METOD") uExp = getValues("U_EXPIRE") mailBil = getValues("A_MAIL_BIL") clientIP = Request.ServerVariables("REMOTE_ADDR") If InStr(1, bannedIPs, clientIP, 1) <> 0 Then Response.Write "BU IP ADRESININ SITEYE GİRİŞİ YASAKLANMIŞTIR!..." Response.END End If %> Şifre Hatırlatma Sistemi - © NB Studios 2002 <% If Session("Oturum") = "Acik" Then Response.Redirect "default.asp" : Response.End %> <% Sub hataYaz(str) Response.write "" & str & "
Geri

" End Sub If Request.Form("xp") = "xp" Then If InStr(1, Request.Form("uye_adi"), "'", 1) <> 0 OR InStr(1, Request.Form("sifre"), "'", 1) <> 0 Then Response.write "Lütfen üye adınız ve şifrenizde kesme işareti (') kullanmayın
Geri

" Response.end End If acik = Replace(Request.Form("aciklama"), "<", "<") aciklama = Replace(acik, ">", ">") If Request.Form("mailg") = "on" Then mailgoster = true Else mailgoster = false End If If Mid(Request.Form("webadresi"), 1, 7) <> "http://" AND Request.Form("webadresi") <> "" Then address = Request.Form("webadresi") adres = Replace(address, address, "http://"&address) ElseIf Request.Form("webadresi") = "http://" OR Request.Form("webadresi") = "" Then adres = "" Else adres = Request.Form("webadresi") End If Set getType = objConn.Execute("SELECT * FROM AYARLAR WHERE A_ID = 0") Set objRs = Server.CreateObject("ADODB.RecordSet") objRs.Open "SELECT * FROM UYELER", objConn, 3, 3 Set nameCheck = objConn.Execute("SELECT * FROM UYELER WHERE U_ADI='"&Request.Form("uye_adi")&"'") If Not nameCheck.EOF Then call hataYaz("Bu Kullanıcı Adı Sistemde Kayıtlı!...") Response.End End If email = Request.Form("email") bolge = InStr(1, email, "@", 1) If Mid(email, bolge+1, 1) = "." Then call hataYaz("Doğru bir e-mail adresi girin") Response.End Else bolge2 = InStr(bolge, email, ".", 1) If Mid(email, bolge2+1, 1) = "" Then call hataYaz("Doğru bir e-mail adresi girin") Response.End End If End If Set emailCheck = objConn.Execute("SELECT * FROM UYELER WHERE EMAIL='"&Request.Form("email")&"'") If Not emailCheck.EOF Then call hataYaz("Bu E-Mail Adresine Sahip Kullanıcı Mevcut!...") Response.End End If objRs.AddNew objRs("U_ADI") = Request.Form("uye_adi") objRs("U_SIFRE") = Request.Form("sifre") objRs("AD") = Request.Form("adsoyad") objRs("EMAIL") = Request.Form("email") objRs("H_SORU") = Request.Form("h_soru") objRs("H_CEVAP") = Request.Form("h_cevap") If Request.Form("icq") <> "" AND IsNumeric(Request.Form("icq")) Then objRs("ICQ") = Request.Form("icq") End If objRs("SEHIR") = Request.Form("sehir") objRs("MESLEK") = Request.Form("meslek") objRs("YAS") = Request.Form("yas") objRs("WEB") = adres objRs("ACIKLAMA") = aciklama objRs("MAILGOSTER") = mailgoster objRs("LOGIN_SAYISI") = 1 objRs("U_TARIHI") = Date() If getType("U_METOD") = 0 Then objRs("SON_TARIH") = Now() objRs("SEVIYE") = "0" objRs("M_NICKNAME") = Request.Form("uye_adi") objRs("OS") = os objRs("BROWSER") = browser If getType("U_METOD") = 1 Then objRs("ACTIVE") = "0" k = "0" Randomize sayi = Int((Rnd*9999999999999) + 10000000000000) For I = 1 To objRs.RecordCount If sayi = objRs("ACTIVE_CODE") Then k = k + 1 Next If k > 0 Then Randomize sayi = Int((Rnd*9999999999999) + 10000000000000) objRs("ACTIVE_CODE") = sayi objRs("ONAY_BEKLE") = "0" tip = 1 Else objRs("ACTIVE_CODE") = sayi objRs("ONAY_BEKLE") = "0" tip = 1 End If ElseIf getType("U_METOD") = 0 Then objRs("ACTIVE") = "1" objRs("ONAY_BEKLE") = "0" ElseIf getType("U_METOD") = 2 Then objRs("ACTIVE") = "0" objRs("ONAY_BEKLE") = "1" tip = 2 Else Response.Write "Veritabanındaki bir hatadan dolayı kayıt yapılamıyor

" Response.End End If objRs.Update objRs.Close Set objRs = Nothing Set idAl = objConn.Execute("SELECT * FROM UYELER WHERE U_ADI = '" & Request.Form("uye_adi") &"'") idNo = idAl("U_ID") Set expAl = objConn.Execute("SELECT * FROM AYARLAR WHERE A_ID = 0") expDur = expAl("U_EXPIRE") siteMail = expAl("A_SITE_EMAIL") mailServer = expAl("A_MAIL_SERVER") titleAdd = expAl("A_SITE_NAME") If tip = 1 Then konuA = "Aktivasyon Kodunuz" hostName = Request.ServerVariables("HTTP_HOST") urlCont = Request.ServerVariables("URL") charFoundSlash = InStrRev(urlCont, "/", -1, 1) stringAfterHost = Mid(urlCont, 1, charFoundSlash) lastString = "http://"& hostName & stringAfterHost pathAct = lastString & "activate.asp?RNDNO="& sayi &"&UID="&idNo&"" mesajA = "Aşağıdaki linke tıklayıp, üyeliğinizi aktif hale getirebilirsiniz." & vbCrLf & vbCrLf & pathAct If mailBil = "CDONTS" Then yolla = CDONTS (konuA, mesajA, Request.Form("email")) If NOT yolla Then Response.Write "HATA VAR!! POSTA, ADRESINIZE GONDERILEMIYOR. LUTFEN SITE YONETICISI ILE IRTIBATA GECINIZ

" Response.End End If ElseIf mailBil = "PERSITS" Then yolla = PERSITS (konuA, mesajA, Request.Form("email")) If NOT yolla Then Response.Write "HATA VAR!! POSTA, ADRESINIZE GONDERILEMIYOR. LUTFEN SITE YONETICISI ILE IRTIBATA GECINIZ

" Response.End End If ElseIf mailBil = "JMAIL" Then yolla = JMAIL (konuA, mesajA, Request.Form("email")) If NOT yolla Then Response.Write "HATA VAR!! POSTA, ADRESINIZE GONDERILEMIYOR. LUTFEN SITE YONETICISI ILE IRTIBATA GECINIZ

" Response.End End If Else Response.Write "HATA VAR!! POSTA, ADRESINIZE GONDERILEMIYOR. LUTFEN SITE YONETICISI ILE IRTIBATA GECINIZ

" Response.End End If Response.Redirect "default.asp?ISN=354763" ElseIf tip = 2 Then Response.Redirect "default.asp?ISN=354986" ElseIf tip = 0 Then Set objRst = Server.CreateObject("ADODB.RecordSet") objRst.Open "SELECT * FROM UYELER WHERE U_ADI='"&Request.Form("uye_adi")&"' AND U_SIFRE='"&Request.Form("sifre")&"' AND ACTIVE = 1", objConn, 3, 3 If Not objRst.EOF Then Session("Oturum") = "Acik" Session("Uye_Adi") = objRst("U_ADI") Session("Uye_Id") = objRst("U_ID") Session("Uye_Sifre") = objRst("U_SIFRE") Session("Uye_Email") = objRst("EMAIL") Session("Uye_Login") = objRst("LOGIN_SAYISI") Response.Cookies("xp_uye")("mevcut") = "evet" Response.Cookies("xp_uye")("kullanici") = objRst("U_ADI") Response.Cookies("xp_uye")("sifre") = objRst("U_SIFRE") Response.Cookies("xp_uye").Expires = Date() + 365 objRst.Close Set objRs = Nothing Response.Redirect "default.asp" End If End If %><% End If %>

ÜYELİK FORMUÜyelik Formu

Adınız ve soyadınız, diğer üyelere gösterilmez..

Ana sayfa

..:: \| Üye Adı *
..:: \| Şifre *
..:: \| Şifre Tekrarı *
..:: \| E-Mail Adresi *
..:: \| Ad Soyad *
..:: \| Hatırlatma Sorusu *
..:: \| Cevabı *
..:: \| ICQ
..:: \| Şehir
..:: \| Meslek
..:: \| Yaş Aralığı
..:: \| Web Adresi
..:: \| Açıklama
..:: \| E-Mail adresim diğer üyelere görünsün
Kaydete tıklayınca kuralları	kabul etmiş sayılacaksınız

HakaN

UltrAslaN