Satır 1: #ExternalChecksum("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx","{ff1816ec-aa5e-4d10-87f7-6f4963833460}","F615F43BA17340D09D8FA0A3F29D4CB5D9E41993")
Satır 2: '------------------------------------------------------------------------------
Satır 3: ' <auto-generated>
Satır 4: ' Bu kod araç tarafından oluşturuldu.
Satır 5: ' Çalışma Zamanı Sürümü:4.0.30319.42000
Satır 6: '
Satır 7: ' Bu dosyada yapılacak değişiklikler yanlış davranışa neden olabilir ve
Satır 8: ' kod yeniden oluşturulursa kaybolur.
Satır 9: ' </auto-generated>
Satır 10: '------------------------------------------------------------------------------
Satır 11:
Satır 12: Option Strict Off
Satır 13: Option Explicit On
Satır 14:
Satır 15: Imports Microsoft.VisualBasic
Satır 16: Imports System
Satır 17: Imports System.Collections
Satır 18: Imports System.Collections.Generic
Satır 19: Imports System.Collections.Specialized
Satır 20: Imports System.ComponentModel.DataAnnotations
Satır 21: Imports System.Configuration
Satır 22: Imports System.Linq
Satır 23: Imports System.Text
Satır 24: Imports System.Text.RegularExpressions
Satır 25: Imports System.Web
Satır 26: Imports System.Web.Caching
Satır 27: Imports System.Web.DynamicData
Satır 28: Imports System.Web.Profile
Satır 29: Imports System.Web.Security
Satır 30: Imports System.Web.SessionState
Satır 31: Imports System.Web.UI
Satır 32: Imports System.Web.UI.HtmlControls
Satır 33: Imports System.Web.UI.WebControls
Satır 34: Imports System.Web.UI.WebControls.WebParts
Satır 35: Imports System.Xml.Linq
Satır 36:
Satır 37: Namespace ASP
Satır 38:
Satır 39: <System.Runtime.CompilerServices.CompilerGlobalScopeAttribute()> _
Satır 40: Public Class ayrinti_siralamasi_ulkelere_gore_bos_araclar_aspx
Satır 41: Inherits Global.System.Web.UI.Page
Satır 42: Implements System.Web.SessionState.IRequiresSessionState, System.Web.IHttpHandler
Satır 43:
Satır 44:
Satır 45: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",102)
Satır 46: Protected WithEvents form1 As Global.System.Web.UI.HtmlControls.HtmlForm
Satır 47:
Satır 48: #End ExternalSource
Satır 49:
Satır 50: Private Shared __initialized As Boolean
Satır 51:
Satır 52: Private Shared __stringResource As Object
Satır 53:
Satır 54: Private Shared __fileDependencies As Object
Satır 55:
Satır 56:
Satır 57: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",5)
Satır 58:
Satır 59:
Satır 60:
Satır 61: #End ExternalSource
Satır 62:
Satır 63:
Satır 64: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Satır 65: Public Sub New()
Satır 66: MyBase.New
Satır 67: Dim dependencies() As String
Satır 68: CType(Me,Global.System.Web.UI.Page).AppRelativeVirtualPath = "~/ayrinti_siralamasi/ulkelere_gore_bos_araclar.aspx"
Satır 69: If (Global.ASP.ayrinti_siralamasi_ulkelere_gore_bos_araclar_aspx.__initialized = false) Then
Satır 70: Global.ASP.ayrinti_siralamasi_ulkelere_gore_bos_araclar_aspx.__stringResource = Me.ReadStringResource
Satır 71: dependencies = New String(0) {}
Satır 72: dependencies(0) = "~/ayrinti_siralamasi/ulkelere_gore_bos_araclar.aspx"
Satır 73: Global.ASP.ayrinti_siralamasi_ulkelere_gore_bos_araclar_aspx.__fileDependencies = Me.GetWrappedFileDependencies(dependencies)
Satır 74: Global.ASP.ayrinti_siralamasi_ulkelere_gore_bos_araclar_aspx.__initialized = true
Satır 75: End If
Satır 76: Me.Server.ScriptTimeout = 30000000
Satır 77: End Sub
Satır 78:
Satır 79: Protected ReadOnly Property Profile() As System.Web.Profile.DefaultProfile
Satır 80: Get
Satır 81: Return CType(Me.Context.Profile,System.Web.Profile.DefaultProfile)
Satır 82: End Get
Satır 83: End Property
Satır 84:
Satır 85: Protected ReadOnly Property ApplicationInstance() As System.Web.HttpApplication
Satır 86: Get
Satır 87: Return CType(Me.Context.ApplicationInstance,System.Web.HttpApplication)
Satır 88: End Get
Satır 89: End Property
Satır 90:
Satır 91: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Satır 92: Private Function __BuildControl__control3() As Global.System.Web.UI.HtmlControls.HtmlTitle
Satır 93: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlTitle
Satır 94:
Satır 95: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",71)
Satır 96: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlTitle()
Satır 97:
Satır 98: #End ExternalSource
Satır 99: __ctrl.SetRenderMethodDelegate(AddressOf Me.__Render__control3)
Satır 100: Return __ctrl
Satır 101: End Function
Satır 102:
Satır 103: Private Sub __Render__control3(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Satır 104:
Satır 105: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",71)
Satır 106: __w.Write(SessionA.Session("ulke"))
Satır 107:
Satır 108:
Satır 109: #End ExternalSource
Satır 110: __w.Write(" Boş Araç Bildirimleri - Nakliyerehberim")
Satır 111: End Sub
Satır 112:
Satır 113: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Satır 114: Private Function __BuildControl__control4() As Global.System.Web.UI.HtmlControls.HtmlMeta
Satır 115: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlMeta
Satır 116:
Satır 117: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",73)
Satır 118: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlMeta()
Satır 119:
Satır 120: #End ExternalSource
Satır 121:
Satır 122: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",73)
Satır 123: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("HTTP-EQUIV", "Content-Type")
Satır 124:
Satır 125: #End ExternalSource
Satır 126:
Satır 127: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",73)
Satır 128: __ctrl.Content = "text/html; charset=windows-1254"
Satır 129:
Satır 130: #End ExternalSource
Satır 131: Return __ctrl
Satır 132: End Function
Satır 133:
Satır 134: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Satır 135: Private Function __BuildControl__control5() As Global.System.Web.UI.HtmlControls.HtmlMeta
Satır 136: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlMeta
Satır 137:
Satır 138: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",75)
Satır 139: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlMeta()
Satır 140:
Satır 141: #End ExternalSource
Satır 142:
Satır 143: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",75)
Satır 144: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("HTTP-EQUIV", "Content-Type")
Satır 145:
Satır 146: #End ExternalSource
Satır 147:
Satır 148: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",75)
Satır 149: __ctrl.Content = "text/html; charset=ISO-8859-9"
Satır 150:
Satır 151: #End ExternalSource
Satır 152: Return __ctrl
Satır 153: End Function
Satır 154:
Satır 155: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Satır 156: Private Function __BuildControl__control6() As Global.System.Web.UI.HtmlControls.HtmlMeta
Satır 157: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlMeta
Satır 158:
Satır 159: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",76)
Satır 160: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlMeta()
Satır 161:
Satır 162: #End ExternalSource
Satır 163:
Satır 164: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",76)
Satır 165: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("http-equiv", "content-language")
Satır 166:
Satır 167: #End ExternalSource
Satır 168:
Satır 169: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",76)
Satır 170: __ctrl.Content = "TR"
Satır 171:
Satır 172: #End ExternalSource
Satır 173: Return __ctrl
Satır 174: End Function
Satır 175:
Satır 176: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Satır 177: Private Function __BuildControl__control7() As Global.System.Web.UI.HtmlControls.HtmlMeta
Satır 178: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlMeta
Satır 179:
Satır 180: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",77)
Satır 181: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlMeta()
Satır 182:
Satır 183: #End ExternalSource
Satır 184:
Satır 185: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",77)
Satır 186: __ctrl.Name = "Pragma"
Satır 187:
Satır 188: #End ExternalSource
Satır 189:
Satır 190: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",77)
Satır 191: __ctrl.Content = "no-cache"
Satır 192:
Satır 193: #End ExternalSource
Satır 194: Return __ctrl
Satır 195: End Function
Satır 196:
Satır 197: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Satır 198: Private Function __BuildControl__control8() As Global.System.Web.UI.HtmlControls.HtmlMeta
Satır 199: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlMeta
Satır 200:
Satır 201: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",78)
Satır 202: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlMeta()
Satır 203:
Satır 204: #End ExternalSource
Satır 205:
Satır 206: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",78)
Satır 207: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("HTTP-EQUIV", "cache-control")
Satır 208:
Satır 209: #End ExternalSource
Satır 210:
Satır 211: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",78)
Satır 212: __ctrl.Content = "no-cache"
Satır 213:
Satır 214: #End ExternalSource
Satır 215: Return __ctrl
Satır 216: End Function
Satır 217:
Satır 218: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Satır 219: Private Function __BuildControl__control9() As Global.System.Web.UI.HtmlControls.HtmlMeta
Satır 220: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlMeta
Satır 221:
Satır 222: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",81)
Satır 223: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlMeta()
Satır 224:
Satır 225: #End ExternalSource
Satır 226:
Satır 227: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",81)
Satır 228: __ctrl.Name = "robots"
Satır 229:
Satır 230: #End ExternalSource
Satır 231:
Satır 232: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",81)
Satır 233: __ctrl.Content = "index,follow"
Satır 234:
Satır 235: #End ExternalSource
Satır 236: Return __ctrl
Satır 237: End Function
Satır 238:
Satır 239: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Satır 240: Private Function __BuildControl__control2() As Global.System.Web.UI.HtmlControls.HtmlHead
Satır 241: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlHead
Satır 242:
Satır 243: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",10)
Satır 244: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlHead("head")
Satır 245:
Satır 246: #End ExternalSource
Satır 247: Dim __ctrl1 As Global.System.Web.UI.HtmlControls.HtmlTitle
Satır 248:
Satır 249: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",10)
Satır 250: __ctrl1 = Me.__BuildControl__control3
Satır 251:
Satır 252: #End ExternalSource
Satır 253: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Satır 254:
Satır 255: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",10)
Satır 256: __parser.AddParsedSubObject(__ctrl1)
Satır 257:
Satır 258: #End ExternalSource
Satır 259: Dim __ctrl2 As Global.System.Web.UI.HtmlControls.HtmlMeta
Satır 260:
Satır 261: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",10)
Satır 262: __ctrl2 = Me.__BuildControl__control4
Satır 263:
Satır 264: #End ExternalSource
Satır 265:
Satır 266: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",10)
Satır 267: __parser.AddParsedSubObject(__ctrl2)
Satır 268:
Satır 269: #End ExternalSource
Satır 270: Dim __ctrl3 As Global.System.Web.UI.HtmlControls.HtmlMeta
Satır 271:
Satır 272: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",10)
Satır 273: __ctrl3 = Me.__BuildControl__control5
Satır 274:
Satır 275: #End ExternalSource
Satır 276:
Satır 277: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",10)
Satır 278: __parser.AddParsedSubObject(__ctrl3)
Satır 279:
Satır 280: #End ExternalSource
Satır 281: Dim __ctrl4 As Global.System.Web.UI.HtmlControls.HtmlMeta
Satır 282:
Satır 283: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",10)
Satır 284: __ctrl4 = Me.__BuildControl__control6
Satır 285:
Satır 286: #End ExternalSource
Satır 287:
Satır 288: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",10)
Satır 289: __parser.AddParsedSubObject(__ctrl4)
Satır 290:
Satır 291: #End ExternalSource
Satır 292: Dim __ctrl5 As Global.System.Web.UI.HtmlControls.HtmlMeta
Satır 293:
Satır 294: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",10)
Satır 295: __ctrl5 = Me.__BuildControl__control7
Satır 296:
Satır 297: #End ExternalSource
Satır 298:
Satır 299: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",10)
Satır 300: __parser.AddParsedSubObject(__ctrl5)
Satır 301:
Satır 302: #End ExternalSource
Satır 303: Dim __ctrl6 As Global.System.Web.UI.HtmlControls.HtmlMeta
Satır 304:
Satır 305: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",10)
Satır 306: __ctrl6 = Me.__BuildControl__control8
Satır 307:
Satır 308: #End ExternalSource
Satır 309:
Satır 310: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",10)
Satır 311: __parser.AddParsedSubObject(__ctrl6)
Satır 312:
Satır 313: #End ExternalSource
Satır 314: Dim __ctrl7 As Global.System.Web.UI.HtmlControls.HtmlMeta
Satır 315:
Satır 316: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",10)
Satır 317: __ctrl7 = Me.__BuildControl__control9
Satır 318:
Satır 319: #End ExternalSource
Satır 320:
Satır 321: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",10)
Satır 322: __parser.AddParsedSubObject(__ctrl7)
Satır 323:
Satır 324: #End ExternalSource
Satır 325: __ctrl.SetRenderMethodDelegate(AddressOf Me.__Render__control2)
Satır 326: Return __ctrl
Satır 327: End Function
Satır 328:
Satır 329: Private Sub __Render__control2(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Satır 330:
Satır 331: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",12)
Satır 332:
Satır 333: Dim karakter1
Satır 334: dim artan=0
Satır 335: dim dizi_ulke(800),artan1
Satır 336:
Satır 337: dim ulke
Satır 338: ulke = Split(MyReplace.ReplaceTR(Request.QueryString("ulke")),"-")
Satır 339:
Satır 340:
Satır 341: if ulke.Length>=2 then
Satır 342: ulke_deger=ulke(1)
Satır 343: sayfasi=ulke(0)
Satır 344: else
Satır 345: response.redirect("https://www.nakliyerehberim.com")
Satır 346: end if
Satır 347:
Satır 348:
Satır 349:
Satır 350: #End ExternalSource
Satır 351:
Satır 352: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",30)
Satır 353:
Satır 354: Dim Cnn10 As New System.Data.OleDb.OleDbConnection("Provider=SQLOLEDB;Data Source=89.19.10.114;Initial Catalog=alperen1999;Persist Security Info=True;User ID=zeynep2001;Password=Sa.2016.")
Satır 355: Cnn10.Open()
Satır 356: Dim cmd10 As New System.Data.OleDb.OleDbCommand("Select * from ulkeler_sehirler where turkce='"& SessionA.Session("ulke") &"' ORDER BY [ID] desc ", Cnn10)
Satır 357: Dim dr10 As System.Data.OleDb.OleDbDataReader
Satır 358:
Satır 359:
Satır 360: #End ExternalSource
Satır 361:
Satır 362: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",36)
Satır 363:
Satır 364: dr10 = cmd10.ExecuteReader()
Satır 365: While dr10.Read()
Satır 366: if dr10.Item("turkce").tostring()=SessionA.Session("ulke") then
Satır 367: dizi_ulke(artan)= dr10.Item("Sehir").tostring()
Satır 368: artan=artan+1
Satır 369:
Satır 370:
Satır 371: #End ExternalSource
Satır 372:
Satır 373: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",43)
Satır 374:
Satır 375: end if
Satır 376: End While
Satır 377: dr10.Close()
Satır 378: Cnn10.Close()
Satır 379: SessionA.Session("ulke_sehirleri")=""
Satır 380: for artan1=1 to artan-1
Satır 381: SessionA.Session("ulke_sehirleri")= dizi_ulke(artan1).tostring() + ", " + SessionA.Session("ulke_sehirleri").tostring()
Satır 382: next
Satır 383: SessionA.Session("ulke_sehirleri")=SessionA.Session("ulke_sehirleri").Replace("0, ", "")
Satır 384: if SessionA.Session("ulke_sehirleri").length <5 then SessionA.Session("ulke_sehirleri")="VERİ YOK"
Satır 385: karakter1=len(SessionA.Session("ulke_sehirleri"))
Satır 386: if mid(SessionA.Session("ulke_sehirleri"),karakter1,karakter1)=" " then
Satır 387: karakter1=karakter1-1
Satır 388: SessionA.Session("ulke_sehirleri")=mid(SessionA.Session("ulke_sehirleri"),1,karakter1)
Satır 389: end if
Satır 390:
Satır 391: karakter1=len(SessionA.Session("ulke_sehirleri"))
Satır 392: if mid(SessionA.Session("ulke_sehirleri"),karakter1,karakter1)="," then
Satır 393: karakter1=karakter1-1
Satır 394: SessionA.Session("ulke_sehirleri")=mid(SessionA.Session("ulke_sehirleri"),1,karakter1)
Satır 395: end if
Satır 396:
Satır 397:
Satır 398:
Satır 399:
Satır 400: #End ExternalSource
Satır 401: parameterContainer.Controls(0).RenderControl(__w)
Satır 402: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<META NAME=""Description"" CONTENT=""")
Satır 403:
Satır 404: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",72)
Satır 405: __w.Write(SessionA.Session("ulke"))
Satır 406:
Satır 407:
Satır 408: #End ExternalSource
Satır 409: __w.Write(" Boş Araç Bildirimleri - Nakliyerehberim"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Satır 410: parameterContainer.Controls(1).RenderControl(__w)
Satır 411: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<meta http-equiv=""X-UA-Compatible"" content=""IE=EmulateIE7"" /"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Satır 412: parameterContainer.Controls(2).RenderControl(__w)
Satır 413: parameterContainer.Controls(3).RenderControl(__w)
Satır 414: parameterContainer.Controls(4).RenderControl(__w)
Satır 415: parameterContainer.Controls(5).RenderControl(__w)
Satır 416:
Satır 417: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",79)
Satır 418: SessionA.Session("tarih")=date.now()
Satır 419:
Satır 420: #End ExternalSource
Satır 421: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<META HTTP-EQUIV=""Expires"" CONTENT=""")
Satır 422:
Satır 423: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",80)
Satır 424: __w.Write(SessionA.Session("tarih"))
Satır 425:
Satır 426:
Satır 427: #End ExternalSource
Satır 428: __w.Write(""">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Satır 429: parameterContainer.Controls(6).RenderControl(__w)
Satır 430: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<meta name=""keywords"" CONTENT=""")
Satır 431:
Satır 432: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",82)
Satır 433: __w.Write(SessionA.Session("ulke"))
Satır 434:
Satır 435:
Satır 436: #End ExternalSource
Satır 437: __w.Write(", araç, boş, tır, kamyon, kamyonet, lowbed, evden, eve, açık, ağır, lowbed, frigo"& _
Satır 438: ", frigofrig, dış, ticaret, araçları, bireysel, ")
Satır 439:
Satır 440: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",82)
Satır 441: __w.Write(SessionA.Session("ulke_sehirleri"))
Satır 442:
Satır 443:
Satır 444: #End ExternalSource
Satır 445: Me.WriteUTF8ResourceString(__w, 520143, 1097, true)
Satır 446: End Sub
Satır 447:
Satır 448: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Satır 449: Private Function __BuildControlform1() As Global.System.Web.UI.HtmlControls.HtmlForm
Satır 450: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlForm
Satır 451:
Satır 452: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",102)
Satır 453: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlForm()
Satır 454:
Satır 455: #End ExternalSource
Satır 456: Me.form1 = __ctrl
Satır 457:
Satır 458: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",102)
Satır 459: __ctrl.ID = "form1"
Satır 460:
Satır 461: #End ExternalSource
Satır 462: __ctrl.SetRenderMethodDelegate(AddressOf Me.__Renderform1)
Satır 463: Return __ctrl
Satır 464: End Function
Satır 465:
Satır 466: Private Sub __Renderform1(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Satır 467: Me.WriteUTF8ResourceString(__w, 521240, 21112, false)
Satır 468:
Satır 469: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",613)
Satır 470: __w.Write(SessionA.Session("ulke"))
Satır 471:
Satır 472:
Satır 473: #End ExternalSource
Satır 474: Me.WriteUTF8ResourceString(__w, 542352, 5021, false)
Satır 475:
Satır 476: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",714)
Satır 477: __w.Write(SessionA.Session("renk5"))
Satır 478:
Satır 479:
Satır 480: #End ExternalSource
Satır 481: Me.WriteUTF8ResourceString(__w, 547373, 1936, false)
Satır 482:
Satır 483: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",741)
Satır 484:
Satır 485: SessionA.Session("ulke_buyuk_turkce_karaktersiz")=SessionA.Session("ulke")
Satır 486:
Satır 487: SessionA.Session("ulke_buyuk_turkce_karaktersiz")=SessionA.Session("ulke_buyuk_turkce_karaktersiz").Replace("İ", "I")
Satır 488: SessionA.Session("ulke_buyuk_turkce_karaktersiz")=SessionA.Session("ulke_buyuk_turkce_karaktersiz").Replace("Ö", "O")
Satır 489: SessionA.Session("ulke_buyuk_turkce_karaktersiz")=SessionA.Session("ulke_buyuk_turkce_karaktersiz").Replace("Ü", "U")
Satır 490: SessionA.Session("ulke_buyuk_turkce_karaktersiz")=SessionA.Session("ulke_buyuk_turkce_karaktersiz").Replace("Ç", "C")
Satır 491: SessionA.Session("ulke_buyuk_turkce_karaktersiz")=SessionA.Session("ulke_buyuk_turkce_karaktersiz").Replace("Ğ", "G")
Satır 492: SessionA.Session("ulke_buyuk_turkce_karaktersiz")=SessionA.Session("ulke_buyuk_turkce_karaktersiz").Replace("Ş", "S")
Satır 493:
Satır 494:
Satır 495: SessionA.Session("ulke_kucuk_turkce_karaktersiz_1")=lcase(SessionA.Session("ulke_buyuk_turkce_karaktersiz"))
Satır 496:
Satır 497:
Satır 498: SessionA.Session("ulke_buyuk_turkce_karakterli")=SessionA.Session("ulke_kucuk_turkce_karaktersiz_1").Replace("s", "ş")
Satır 499: SessionA.Session("ulke_buyuk_turkce_karakterli")=SessionA.Session("ulke_buyuk_turkce_karakterli").Replace("o", "ö")
Satır 500: SessionA.Session("ulke_buyuk_turkce_karakterli")=SessionA.Session("ulke_buyuk_turkce_karakterli").Replace("u", "ü")
Satır 501: SessionA.Session("ulke_buyuk_turkce_karakterli")=SessionA.Session("ulke_buyuk_turkce_karakterli").Replace("c", "ç")
Satır 502: SessionA.Session("ulke_buyuk_turkce_karakterli")=SessionA.Session("ulke_buyuk_turkce_karakterli").Replace("ğ", "g")
Satır 503: SessionA.Session("ulke_buyuk_turkce_karakterli")=SessionA.Session("ulke_buyuk_turkce_karakterli").Replace("ı", "i")
Satır 504:
Satır 505: dim a6
Satır 506: Dim pagePerRecord6 As Integer = 25
Satır 507: Dim showMaxPageCount6 As Integer = 20
Satır 508: Dim currentPagePart6 As Integer = 1
Satır 509: Dim cnn6 As New Data.OleDb.OleDbConnection("Provider=SQLOLEDB;Data Source=89.19.10.114;Initial Catalog=alperen1999;Persist Security Info=True;User ID=zeynep2001;Password=Sa.2016.")
Satır 510:
Satır 511: Dim cmd6 As New System.Data.OleDb.OleDbCommand("Select Count(Kimlik) from bos_arac_bildirimi where (aracin_buld_ulke='"& SessionA.Session("ulke") &"' or aracin_ist_ulke='"& SessionA.Session("ulke") &"') ", cnn6)
Satır 512: Dim da6 As New System.Data.OleDb.OleDbDataAdapter("Select basvuru_tarihi,aracin_islem_sekli,arac_guzergahi,arac_cinsi,aracin_buld_ulke,buld_ulke_bayragi,aracin_buld_sehir,gid_ulke_bayragi,aracin_ist_ulke,aracin_ist_sehri,Kimlik,yukleme_tarihi,aracin_yuk_sekli from bos_arac_bildirimi where (aracin_buld_ulke='"& SessionA.Session("ulke") &"' or aracin_ist_ulke='"& SessionA.Session("ulke") &"') ORDER BY Kimlik desc", cnn6)
Satır 513:
Satır 514: Dim ds6 As New Data.DataSet
Satır 515: cnn6.Open()
Satır 516: Dim recordCount6 As Integer = cmd6.ExecuteScalar()
Satır 517:
Satır 518: '" & Trim$(Text1.Text) & "'
Satır 519: If IsNumeric(SessionA.Session("sayfasi")) Then
Satır 520: currentPagePart6 = Convert.ToInt16(SessionA.Session("sayfasi"))
Satır 521: End If
Satır 522:
Satır 523: 'da.Fill(ds6, currentPagePart * pagePerRecord, pagePerRecord, "bayi")
Satır 524: da6.Fill(ds6, (currentPagePart6 - 1) * pagePerRecord6, pagePerRecord6, "bos_arac_bildirimi")
Satır 525:
Satır 526:
Satır 527: Dim dt6 As Data.DataTable = ds6.Tables(0)
Satır 528:
Satır 529: For i6 As Integer = 0 To dt6.Rows.Count - 1
Satır 530: a6=a6+1
Satır 531:
Satır 532:
Satır 533:
Satır 534: #End ExternalSource
Satır 535:
Satır 536: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",794)
Satır 537: If a6 Mod 2 = 0 Then
Satır 538: SessionA.Session("renk6")="#F0F5FF"
Satır 539: else
Satır 540: SessionA.Session("renk6")="#FFFFFF"
Satır 541:
Satır 542: end if
Satır 543:
Satır 544:
Satır 545: #End ExternalSource
Satır 546: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <tr onclick=""window.open('https://www.nakliyerehberim.com/harita-de"& _
Satır 547: "tay/bos-arac-detay2.aspx?Kimlik=")
Satır 548:
Satır 549: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",801)
Satır 550: __w.Write(dt6.Rows(i6)("Kimlik").ToString())
Satır 551:
Satır 552:
Satır 553: #End ExternalSource
Satır 554: __w.Write("')"" style=""cursor:hand"" onMouseOver=""bgColor='#FCF5DC'"" onmouseOut=""bgColor='")
Satır 555:
Satır 556: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",801)
Satır 557: __w.Write(SessionA.Session("renk6"))
Satır 558:
Satır 559:
Satır 560: #End ExternalSource
Satır 561: __w.Write("'"" bgcolor=""")
Satır 562:
Satır 563: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",801)
Satır 564: __w.Write(SessionA.Session("renk6"))
Satır 565:
Satır 566:
Satır 567: #End ExternalSource
Satır 568: __w.Write(""" width=""80"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <td style=""border-top:1px dotted #C0C0C0; border-b"& _
Satır 569: "ottom:1px dotted #C0C0C0; padding:0; width: 84px; "" bordercolor=""#CCCCCC"" height"& _
Satır 570: "=""34"" align=""left"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<font face=""Tahoma"" style=""font-size: 8pt"">")
Satır 571:
Satır 572: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",803)
Satır 573: __w.Write(dt6.Rows(i6)("basvuru_tarihi").ToString())
Satır 574:
Satır 575:
Satır 576: #End ExternalSource
Satır 577: Me.WriteUTF8ResourceString(__w, 549309, 265, true)
Satır 578:
Satır 579: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",807)
Satır 580: __w.Write(dt6.Rows(i6)("arac_cinsi").ToString())
Satır 581:
Satır 582:
Satır 583: #End ExternalSource
Satır 584: Me.WriteUTF8ResourceString(__w, 549574, 325, true)
Satır 585:
Satır 586: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",811)
Satır 587: __w.Write(dt6.Rows(i6)("buld_ulke_bayragi").ToString())
Satır 588:
Satır 589:
Satır 590: #End ExternalSource
Satır 591: __w.Write(""" width=""19"" height=""14""> ")
Satır 592:
Satır 593: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",811)
Satır 594: __w.Write(dt6.Rows(i6)("aracin_buld_ulke").ToString())
Satır 595:
Satır 596:
Satır 597: #End ExternalSource
Satır 598: __w.Write(" - ")
Satır 599:
Satır 600: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",811)
Satır 601: __w.Write(mid(dt6.Rows(i6)("aracin_buld_sehir").ToString(),1,10))
Satır 602:
Satır 603:
Satır 604: #End ExternalSource
Satır 605: Me.WriteUTF8ResourceString(__w, 549899, 328, true)
Satır 606:
Satır 607: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",815)
Satır 608: __w.Write(dt6.Rows(i6)("gid_ulke_bayragi").ToString())
Satır 609:
Satır 610:
Satır 611: #End ExternalSource
Satır 612: __w.Write(""" width=""19"" height=""14""> ")
Satır 613:
Satır 614: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",815)
Satır 615: __w.Write(dt6.Rows(i6)("aracin_ist_ulke").ToString())
Satır 616:
Satır 617:
Satır 618: #End ExternalSource
Satır 619: __w.Write(" - ")
Satır 620:
Satır 621: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",815)
Satır 622: __w.Write(mid(dt6.Rows(i6)("aracin_ist_sehri").ToString(),1,10))
Satır 623:
Satır 624:
Satır 625: #End ExternalSource
Satır 626: Me.WriteUTF8ResourceString(__w, 550227, 268, true)
Satır 627:
Satır 628: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",819)
Satır 629: __w.Write(mid(dt6.Rows(i6)("basvuru_tarihi").ToString(),1,15))
Satır 630:
Satır 631:
Satır 632: #End ExternalSource
Satır 633: Me.WriteUTF8ResourceString(__w, 550495, 388, true)
Satır 634:
Satır 635: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",824)
Satır 636: __w.Write(dt6.Rows(i6)("Kimlik").ToString())
Satır 637:
Satır 638:
Satır 639: #End ExternalSource
Satır 640: __w.Write(""">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<font color=""#000000"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<img border=""0"" src=""https://www.nakliyerehbe"& _
Satır 641: "rim.com/arac_detay.gif"" width=""78"" height=""27""></font></a></font></td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Satır 642: " </tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&" ")
Satır 643:
Satır 644: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",830)
Satır 645:
Satır 646: Next
Satır 647: cnn6.Close()
Satır 648:
Satır 649:
Satır 650:
Satır 651: #End ExternalSource
Satır 652: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </table>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<p align=""center"">"&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<tab"& _
Satır 653: "le id=""table641"" style=""width: 1000px"" height=""42"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <tr><td align"& _
Satır 654: "=center>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Satır 655:
Satır 656: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",841)
Satır 657:
Satır 658: Dim pageCount6 As Integer = (recordCount6 / pagePerRecord6)
Satır 659:
Satır 660: If ((pageCount6 * pagePerRecord6) < recordCount6) Then
Satır 661: 'pageCount6 += 1
Satır 662: End If
Satır 663:
Satır 664: Dim startPage6 As Integer = currentPagePart6 - (showMaxPageCount6 / 2)
Satır 665: Dim LastShowPage6 As Integer = currentPagePart6 + (showMaxPageCount6 / 2) - 1
Satır 666:
Satır 667:
Satır 668: If startPage6 < 1 Then startPage6 = 1
Satır 669: If LastShowPage6 > pageCount6 Then LastShowPage6 = pageCount6
Satır 670: Dim arr6 As New ArrayList
Satır 671: If pageCount6 > 1 Then
Satır 672:
Satır 673:
Satır 674: #End ExternalSource
Satır 675:
Satır 676: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",858)
Satır 677:
Satır 678: End If
Satır 679:
Satır 680:
Satır 681: #End ExternalSource
Satır 682: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <tr><td align=center bgcolor="& _
Satır 683: """#FFFFFF"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <font face=""Tahoma""><font size=""2"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <b><font color="& _
Satır 684: """#FFFFFF"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Satır 685:
Satır 686: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",867)
Satır 687:
Satır 688:
Satır 689:
Satır 690: If ((pageCount6 * pagePerRecord6) < recordCount6) Then
Satır 691: 'pageCount6 += 1
Satır 692: End If
Satır 693:
Satır 694:
Satır 695:
Satır 696: If startPage6 < 1 Then startPage6 = 1
Satır 697: If LastShowPage6 > pageCount6 Then LastShowPage6 = pageCount6
Satır 698:
Satır 699: If pageCount6 > 1 Then
Satır 700: If currentPagePart6 > 1 Then
Satır 701:
Satır 702:
Satır 703: #End ExternalSource
Satır 704: __w.Write("</font> <a href=""https://www.nakliyerehberim.com/ulkelere-gore-bos-arac-bildiriml"& _
Satır 705: "eri/1-")
Satır 706:
Satır 707: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",881)
Satır 708: __w.Write(SessionA.Session("ulke"))
Satır 709:
Satır 710:
Satır 711: #End ExternalSource
Satır 712: __w.Write("-bos-arac-bildirimleri""><span style=""text-decoration: none"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<font color=""#000"& _
Satır 713: "000""><<</font></span></a> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <a href=""http"& _
Satır 714: "s://www.nakliyerehberim.com/ulkelere_gore_bos_araclar/")
Satır 715:
Satır 716: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",883)
Satır 717: __w.Write( (currentPagePart6 - 1).ToString() )
Satır 718:
Satır 719:
Satır 720: #End ExternalSource
Satır 721: __w.Write("-")
Satır 722:
Satır 723: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",883)
Satır 724: __w.Write(SessionA.Session("ulke"))
Satır 725:
Satır 726:
Satır 727: #End ExternalSource
Satır 728: __w.Write("-bos-arac-bildirimleri"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<span style=""text-decoration: none""><font color=""#000"& _
Satır 729: "000""><</font></span></a> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Satır 730:
Satır 731: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",885)
Satır 732:
Satır 733: End If
Satır 734:
Satır 735: For i6 As Integer = startPage6 To LastShowPage6
Satır 736: If i6 = currentPagePart6 Then
Satır 737:
Satır 738:
Satır 739: #End ExternalSource
Satır 740: __w.Write(" </b> <a href=""https://www.nakliyerehberim.com/ulkelere-gore-bos-arac-bildirimler"& _
Satır 741: "i/")
Satır 742:
Satır 743: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",890)
Satır 744: __w.Write(i6.ToString() )
Satır 745:
Satır 746:
Satır 747: #End ExternalSource
Satır 748: __w.Write("-")
Satır 749:
Satır 750: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",890)
Satır 751: __w.Write(SessionA.Session("ulke"))
Satır 752:
Satır 753:
Satır 754: #End ExternalSource
Satır 755: __w.Write("-bos-arac-bildirimleri""><b>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<span style=""text-decoration: none""><font color=""#"& _
Satır 756: "000000"">")
Satır 757:
Satır 758: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",891)
Satır 759: __w.Write( i6.ToString())
Satır 760:
Satır 761:
Satır 762: #End ExternalSource
Satır 763: __w.Write("</font></span></b></a><b> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Satır 764:
Satır 765: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",893)
Satır 766:
Satır 767: Else
Satır 768:
Satır 769:
Satır 770: #End ExternalSource
Satır 771: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <a href=""https://www.nakliyerehberim.com/ulkelere-gore-bos-"& _
Satır 772: "arac-bildirimleri/")
Satır 773:
Satır 774: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",896)
Satır 775: __w.Write( i6.ToString())
Satır 776:
Satır 777:
Satır 778: #End ExternalSource
Satır 779: __w.Write("-")
Satır 780:
Satır 781: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",896)
Satır 782: __w.Write(SessionA.Session("ulke"))
Satır 783:
Satır 784:
Satır 785: #End ExternalSource
Satır 786: __w.Write("-bos-arac-bildirimleri"" >"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<span style=""text-decoration: none""><font color=""#00"& _
Satır 787: "0000"">")
Satır 788:
Satır 789: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",897)
Satır 790: __w.Write( i6.ToString() )
Satır 791:
Satır 792:
Satır 793: #End ExternalSource
Satır 794: __w.Write("</font></span></a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Satır 795:
Satır 796: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",898)
Satır 797:
Satır 798: End If
Satır 799: arr6.Add(i6.ToString())
Satır 800: Next
Satır 801: If currentPagePart6 < pageCount6 Then
Satır 802:
Satır 803:
Satır 804: #End ExternalSource
Satır 805: __w.Write(" <a href=""https://www.nakliyerehberim.com/ulkelere-gore-bos-ara"& _
Satır 806: "c-bildirimleri/")
Satır 807:
Satır 808: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",903)
Satır 809: __w.Write((currentPagePart6 + 1).ToString() )
Satır 810:
Satır 811:
Satır 812: #End ExternalSource
Satır 813: __w.Write("-")
Satır 814:
Satır 815: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",903)
Satır 816: __w.Write(SessionA.Session("ulke"))
Satır 817:
Satır 818:
Satır 819: #End ExternalSource
Satır 820: __w.Write("-bos-arac-bildirimleri"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<span style=""text-decoration: none""><font color=""#000"& _
Satır 821: "000"">></font></span></a> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<a href=""https://www.nakliyer"& _
Satır 822: "ehberim.com/ulkelere-gore-bos-arac-bildirimleri/")
Satır 823:
Satır 824: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",905)
Satır 825: __w.Write(pageCount6.ToString() )
Satır 826:
Satır 827:
Satır 828: #End ExternalSource
Satır 829: __w.Write("-")
Satır 830:
Satır 831: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",905)
Satır 832: __w.Write(SessionA.Session("ulke"))
Satır 833:
Satır 834:
Satır 835: #End ExternalSource
Satır 836: __w.Write("-bos-arac-bildirimleri"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(9)&Global.Microsoft.VisualBasic.ChrW(9)&"<span style=""text-decoration: none""><font color=""#000"& _
Satır 837: "000"">>></font></span></a>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Satır 838:
Satır 839: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",907)
Satır 840:
Satır 841: End If
Satır 842:
Satır 843:
Satır 844: #End ExternalSource
Satır 845: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </b></font><font color=""#FFFFFF""><select name=""pa"& _
Satır 846: "ges"" id=""pages"" onchange=""JumpPage(this.value);"" style=""font-weight: 700"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Satır 847: " ")
Satır 848:
Satır 849: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",911)
Satır 850:
Satır 851: For i6 As Integer = 1 To pageCount6
Satır 852: If i6 = currentPagePart6 Then
Satır 853:
Satır 854:
Satır 855:
Satır 856: #End ExternalSource
Satır 857: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <option selected value=""")
Satır 858:
Satır 859: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",916)
Satır 860: __w.Write( i6.ToString() )
Satır 861:
Satır 862:
Satır 863: #End ExternalSource
Satır 864: __w.Write(""" >")
Satır 865:
Satır 866: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",916)
Satır 867: __w.Write( i6.ToString() )
Satır 868:
Satır 869:
Satır 870: #End ExternalSource
Satır 871: __w.Write("</option>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Satır 872:
Satır 873: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",917)
Satır 874:
Satır 875: Else
Satır 876:
Satır 877:
Satır 878: #End ExternalSource
Satır 879: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <option value=""")
Satır 880:
Satır 881: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",920)
Satır 882: __w.Write( i6.ToString())
Satır 883:
Satır 884:
Satır 885: #End ExternalSource
Satır 886: __w.Write(""" >")
Satır 887:
Satır 888: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",920)
Satır 889: __w.Write( i6.ToString() )
Satır 890:
Satır 891:
Satır 892: #End ExternalSource
Satır 893: __w.Write("</option>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Satır 894:
Satır 895: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",921)
Satır 896:
Satır 897: End If
Satır 898: Next
Satır 899:
Satır 900:
Satır 901: #End ExternalSource
Satır 902: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </select></font><b><font size=""2""> </font></b></font> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Satır 903: " </td></tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Satır 904:
Satır 905: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",927)
Satır 906:
Satır 907: End If
Satır 908:
Satır 909:
Satır 910: #End ExternalSource
Satır 911: Me.WriteUTF8ResourceString(__w, 550883, 2429, true)
Satır 912: End Sub
Satır 913:
Satır 914: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Satır 915: Private Sub __BuildControlTree(ByVal __ctrl As ayrinti_siralamasi_ulkelere_gore_bos_araclar_aspx)
Satır 916:
Satır 917: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",1)
Satır 918: __ctrl.EnableViewStateMac = false
Satır 919:
Satır 920: #End ExternalSource
Satır 921:
Satır 922: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",1)
Satır 923: __ctrl.EnableEventValidation = false
Satır 924:
Satır 925: #End ExternalSource
Satır 926:
Satır 927: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",1)
Satır 928: Me.InitializeCulture
Satır 929:
Satır 930: #End ExternalSource
Satır 931: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Satır 932:
Satır 933: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",1)
Satır 934: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""https://www.w"& _
Satır 935: "3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Satır 936:
Satır 937: #End ExternalSource
Satır 938:
Satır 939: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",1)
Satır 940: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<html xmlns=""https://www.w3.org/1999/xhtml"" >"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Satır 941:
Satır 942: #End ExternalSource
Satır 943: Dim __ctrl1 As Global.System.Web.UI.HtmlControls.HtmlHead
Satır 944:
Satır 945: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",1)
Satır 946: __ctrl1 = Me.__BuildControl__control2
Satır 947:
Satır 948: #End ExternalSource
Satır 949:
Satır 950: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",1)
Satır 951: __parser.AddParsedSubObject(__ctrl1)
Satır 952:
Satır 953: #End ExternalSource
Satır 954:
Satır 955: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",1)
Satır 956: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<body onload=""window.scroll(0,520);"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Satır 957:
Satır 958: #End ExternalSource
Satır 959: Dim __ctrl2 As Global.System.Web.UI.HtmlControls.HtmlForm
Satır 960:
Satır 961: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",1)
Satır 962: __ctrl2 = Me.__BuildControlform1
Satır 963:
Satır 964: #End ExternalSource
Satır 965:
Satır 966: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",1)
Satır 967: __parser.AddParsedSubObject(__ctrl2)
Satır 968:
Satır 969: #End ExternalSource
Satır 970:
Satır 971: #ExternalSource("C:\WEBS\Arac\nakliyerehberim.com\www\ayrinti_siralamasi\ulkelere_gore_bos_araclar.aspx",1)
Satır 972: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</body>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</html>"))
Satır 973:
Satır 974: #End ExternalSource
Satır 975: End Sub
Satır 976:
Satır 977: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Satır 978: Protected Overrides Sub FrameworkInitialize()
Satır 979: MyBase.FrameworkInitialize
Satır 980: Me.SetStringResourcePointer(Global.ASP.ayrinti_siralamasi_ulkelere_gore_bos_araclar_aspx.__stringResource, 0)
Satır 981: Me.__BuildControlTree(Me)
Satır 982: Me.AddWrappedFileDependencies(Global.ASP.ayrinti_siralamasi_ulkelere_gore_bos_araclar_aspx.__fileDependencies)
Satır 983: End Sub
Satır 984:
Satır 985: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Satır 986: Public Overrides Function GetTypeHashCode() As Integer
Satır 987: Return -1585439589
Satır 988: End Function
Satır 989:
Satır 990: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Satır 991: Public Overrides Sub ProcessRequest(ByVal context As System.Web.HttpContext)
Satır 992: MyBase.ProcessRequest(context)
Satır 993: End Sub
Satır 994: End Class
Satır 995: End Namespace
Satır 996:
|