Line 1: #ExternalChecksum("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx","{ff1816ec-aa5e-4d10-87f7-6f4963833460}","7AF9DC09DACA3CF175071A5DF7D8BAC109E1A407")
Line 2: '------------------------------------------------------------------------------
Line 3: ' <auto-generated>
Line 4: ' This code was generated by a tool.
Line 5: ' Runtime Version:4.0.30319.42000
Line 6: '
Line 7: ' Changes to this file may cause incorrect behavior and will be lost if
Line 8: ' the code is regenerated.
Line 9: ' </auto-generated>
Line 10: '------------------------------------------------------------------------------
Line 11:
Line 12: Option Strict Off
Line 13: Option Explicit On
Line 14:
Line 15: Imports Microsoft.VisualBasic
Line 16: Imports System
Line 17: Imports System.Collections
Line 18: Imports System.Collections.Generic
Line 19: Imports System.Collections.Specialized
Line 20: Imports System.ComponentModel.DataAnnotations
Line 21: Imports System.Configuration
Line 22: Imports System.Linq
Line 23: Imports System.Text
Line 24: Imports System.Text.RegularExpressions
Line 25: Imports System.Web
Line 26: Imports System.Web.Caching
Line 27: Imports System.Web.DynamicData
Line 28: Imports System.Web.Profile
Line 29: Imports System.Web.Security
Line 30: Imports System.Web.SessionState
Line 31: Imports System.Web.UI
Line 32: Imports System.Web.UI.HtmlControls
Line 33: Imports System.Web.UI.WebControls
Line 34: Imports System.Web.UI.WebControls.Expressions
Line 35: Imports System.Web.UI.WebControls.WebParts
Line 36: Imports System.Xml.Linq
Line 37:
Line 38: Namespace ASP
Line 39:
Line 40: <System.Runtime.CompilerServices.CompilerGlobalScopeAttribute()> _
Line 41: Public Class asp_details_x_aspx
Line 42: Inherits Global.System.Web.UI.Page
Line 43: Implements System.Web.SessionState.IRequiresSessionState, System.Web.IHttpHandler
Line 44:
Line 45:
Line 46: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",248)
Line 47: Protected WithEvents Label3 As Global.System.Web.UI.WebControls.Label
Line 48:
Line 49: #End ExternalSource
Line 50:
Line 51:
Line 52: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",254)
Line 53: Protected WithEvents Label1 As Global.System.Web.UI.WebControls.Label
Line 54:
Line 55: #End ExternalSource
Line 56:
Line 57:
Line 58: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",254)
Line 59: Protected WithEvents Label10 As Global.System.Web.UI.WebControls.Label
Line 60:
Line 61: #End ExternalSource
Line 62:
Line 63:
Line 64: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",264)
Line 65: Protected WithEvents Label2 As Global.System.Web.UI.WebControls.Label
Line 66:
Line 67: #End ExternalSource
Line 68:
Line 69:
Line 70: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",266)
Line 71: Protected WithEvents Table1 As Global.System.Web.UI.WebControls.Table
Line 72:
Line 73: #End ExternalSource
Line 74:
Line 75: Private Shared __initialized As Boolean
Line 76:
Line 77: Private Shared __stringResource As Object
Line 78:
Line 79: Private Shared __fileDependencies As Object
Line 80:
Line 81:
Line 82: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",2)
Line 83:
Line 84:
Line 85: public dropfile
Line 86: public bildtemp
Line 87: public dataset As System.Data.DataSet = New System.Data.DataSet
Line 88: public ID as string
Line 89: public i2(255) as imagebutton
Line 90: public urx(255)
Line 91:
Line 92:
Line 93: Private Sub Page_Load()
Line 94: ID=Request.Params.Get(0)
Line 95: if ID="-1" then exit sub
Line 96:
Line 97: dropfile=ConfigurationSettings.GetConfig("appSettings")("dropfile")
Line 98: bildtemp=ConfigurationSettings.GetConfig("appSettings")("bildtemp")
Line 99: head()
Line 100: table()
Line 101:
Line 102: end sub
Line 103:
Line 104:
Line 105: sub head()
Line 106:
Line 107: label1.text="Sommerzeit/Feiertags-Programme"
Line 108:
Line 109: label2.text="Am 26.10.2008 wird die Sommerzeit um 1h zurück gestellt. Verpassen Sie keine weiteren Ereignisse mit den folgenden Programmen:"
Line 110:
Line 111: end sub
Line 112: sub table()
Line 113: 'on error resume next
Line 114:
Line 115:
Line 116: Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=" & dropfile
Line 117: Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString)
Line 118: Dim queryString As String
Line 119: dim sql="WHERE [ID] = 256 OR [ID] = 316 OR [ID] = 362 OR [ID] = 30 OR [ID] = 52 OR [ID] = 445"
Line 120:
Line 121: queryString = "SELECT * FROM [details] " & sql & " AND [aktiv] = TRUE ORDER BY [programm] ASC"
Line 122:
Line 123:
Line 124: Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand
Line 125: dbCommand.CommandText = queryString
Line 126: dbCommand.Connection = dbConnection
Line 127:
Line 128: Dim dataAdapter As System.Data.IDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter
Line 129: dataAdapter.SelectCommand = dbCommand
Line 130:
Line 131:
Line 132: dataAdapter.Fill(dataset)
Line 133:
Line 134:
Line 135: dim Table = New system.data.DataTable
Line 136: Table = Dataset.Tables(0)
Line 137:
Line 138:
Line 139:
Line 140: dim z1=Table.Rows.Count-1
Line 141:
Line 142: dim j
Line 143: dim z2=4
Line 144: dim k
Line 145: dim s
Line 146:
Line 147: for j=0 to z1
Line 148: table1.rows.add(New TableRow())
Line 149: for k=0 to 3
Line 150: Table1.Rows(j).Cells.Add(New TableCell)
Line 151: Table1.Rows(j).Cells(k).VerticalAlign = VerticalAlign.Top
Line 152: Table1.Rows(j).Cells(k).Wrap = false
Line 153:
Line 154: next k
Line 155:
Line 156: Table1.Rows(j).Cells(0).width=unit.pixel(70)
Line 157: Table1.Rows(j).Cells(1).width=unit.Pixel(550)
Line 158:
Line 159: Table1.Rows(j).Cells(0).height=unit.pixel(100)
Line 160: Table1.Rows(j).Cells(0).height=unit.pixel(100)
Line 161:
Line 162: next j
Line 163:
Line 164: dim n=0
Line 165: for j= 0 to z1
Line 166: s=0
Line 167: content(j,s,n)
Line 168: n=n+1
Line 169: next j
Line 170:
Line 171:
Line 172:
Line 173:
Line 174: end sub
Line 175:
Line 176:
Line 177: sub content(j,s,n)
Line 178: on error resume next
Line 179:
Line 180: dim i1 as new image
Line 181: dim l1 as new label
Line 182: dim l2 as new label
Line 183: dim u1 as new label
Line 184: dim t1 as new label
Line 185:
Line 186:
Line 187: dim txt
Line 188:
Line 189:
Line 190: txt=dataset.Tables(0).ROWS(j)("text")
Line 191:
Line 192: txt=replace(txt,"<li>","")
Line 193: txt=replace(txt,chr(13) & chr(10)," ")
Line 194: txt=replace(txt,"<b>","")
Line 195: txt=replace(txt,"<br>","")
Line 196: txt=replace(txt,"</b>","")
Line 197: txt=replace(txt,"<a href=","")
Line 198: txt=replace(txt,"</a>","")
Line 199:
Line 200:
Line 201:
Line 202: dim preis="<b>" & formatnumber(dataset.Tables(0).ROWS(j)("preis"),2) & " EUR</b>"
Line 203: i1.ImageUrl = "http://www.pocketkai.de/asp/bilder/" & dataset.Tables(0).ROWS(j)("bild")
Line 204: 'i1.ImageUrl = respic("bilder/" & dataset.Tables(0).ROWS(j)("bild"))
Line 205: i1.width=Unit.Pixel(60)
Line 206: i1.height=Unit.Pixel(80)
Line 207: if ID="hpc" then i1.width=Unit.Pixel(80):i1.height=Unit.Pixel(40)
Line 208: if ID="pc" then i1.width=Unit.Pixel(80):i1.height=Unit.Pixel(60)
Line 209:
Line 210: i1.enableviewstate=false
Line 211: i1.alternatetext=txt
Line 212: i1.borderwidth=Unit.Pixel(1)
Line 213: l1.text="<hr color='#4169E1' size='1' />"
Line 214: l2.text="<hr color='#4169E1' size='1' />"
Line 215: t1.text=mid(txt,1,180) & "..." & "<br><br>" & preis & " "
Line 216: u1.text= "<b>" & dataset.Tables(0).ROWS(j)("ueberschrift") & "</b><br>"
Line 217: 'u1.text=replace(u1.text,"<a href=details.aspx","<a href=details4b.aspx")
Line 218:
Line 219: u1.cssclass="main"
Line 220: t1.cssclass="boxText3"
Line 221:
Line 222:
Line 223: 'i2(n)=new imagebutton
Line 224: 'i2(n).imageurl="http://www.flashvision.de/templates/defrax/buttons/german/button_buy_now.gif"
Line 225: 'i2(n).ImageAlign=ImageAlign.Right
Line 226: 'i2(n).ID="I" & n
Line 227: 'AddHandler i2(n).Click, AddressOf FireClick
Line 228:
Line 229: urx(n)=dataset.Tables(0).ROWS(j)("ID")
Line 230:
Line 231:
Line 232:
Line 233:
Line 234: dim ss
Line 235: if s=0 then ss=0:else ss=2
Line 236: ss=0
Line 237: Table1.Rows(n).Cells(0+ss).Controls.Add(l1)
Line 238: Table1.Rows(n).Cells(0+ss).Controls.Add(i1)
Line 239: Table1.Rows(n).Cells(1+ss).Controls.Add(l2)
Line 240: Table1.Rows(n).Cells(1+ss).Controls.Add(u1)
Line 241: Table1.Rows(n).Cells(1+ss).Controls.Add(t1)
Line 242: 'Table1.Rows(n).Cells(1+ss).Controls.Add(i2(n))
Line 243:
Line 244:
Line 245: end sub
Line 246:
Line 247:
Line 248: function respic(filename)
Line 249: on error resume next
Line 250:
Line 251:
Line 252:
Line 253: dim photoWidth,photoHeight
Line 254: dim percentageDifference = 0
Line 255: dim inputimage="temp.jpg"
Line 256: dim filename2=datei12(filename)
Line 257:
Line 258:
Line 259: dim heHasAccess = false
Line 260: dim datei=bildtemp & filename2
Line 261: dim dateireturn="bilder/temp/" & filename2
Line 262:
Line 263: if system.IO.File.Exists(filename) then
Line 264: return dateireturn
Line 265:
Line 266: end if
Line 267:
Line 268: inputImage = System.Drawing.Image.FromFile(Server.MapPath(filename))
Line 269:
Line 270:
Line 271: photoWidth = 60
Line 272:
Line 273: 'define size for new image
Line 274: percentageDifference = inputImage.Width / photoWidth
Line 275: photoHeight = inputImage.Height / percentageDifference
Line 276:
Line 277: 'output new image with different size
Line 278: dim Bitmap as new system.drawing.Bitmap(inputImage,Convert.ToInt32(photoWidth),Convert.ToInt32(photoHeight))
Line 279: Response.ContentType = "image/gif"
Line 280: BitMap.Save(datei, system.drawing.imaging.ImageFormat.gif)
Line 281:
Line 282:
Line 283: return dateireturn
Line 284: end function
Line 285:
Line 286:
Line 287:
Line 288:
Line 289:
Line 290:
Line 291: Function datei12(ByVal dateipfad)
Line 292: On Error Resume Next
Line 293: dim i
Line 294: For I = 1 To Len(dateipfad) - 1
Line 295: If Mid(dateipfad, I, 1) = "/" Then
Line 296: datei12 = (Mid(dateipfad, I + 1, Len(dateipfad)))
Line 297:
Line 298: End If
Line 299: Next I
Line 300:
Line 301: If datei12 = " " Then datei12 = ""
Line 302:
Line 303: End Function
Line 304:
Line 305: Private Sub FireClick(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs)
Line 306: Dim btnTmp As Button
Line 307:
Line 308: dim x=cint(mid(CType(sender, imageButton).ID(),2,5))
Line 309: 'label2.text=urx(x)
Line 310:
Line 311:
Line 312: End Sub
Line 313:
Line 314:
Line 315: #End ExternalSource
Line 316:
Line 317:
Line 318: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 319: Public Sub New()
Line 320: MyBase.New
Line 321: Dim dependencies() As String
Line 322: CType(Me,Global.System.Web.UI.Page).AppRelativeVirtualPath = "~/asp/details-x.aspx"
Line 323: If (Global.ASP.asp_details_x_aspx.__initialized = false) Then
Line 324: Global.ASP.asp_details_x_aspx.__stringResource = Me.ReadStringResource
Line 325: dependencies = New String(0) {}
Line 326: dependencies(0) = "~/asp/details-x.aspx"
Line 327: Global.ASP.asp_details_x_aspx.__fileDependencies = Me.GetWrappedFileDependencies(dependencies)
Line 328: Global.ASP.asp_details_x_aspx.__initialized = true
Line 329: End If
Line 330: Me.Server.ScriptTimeout = 30000000
Line 331: End Sub
Line 332:
Line 333: Protected ReadOnly Property Profile() As System.Web.Profile.DefaultProfile
Line 334: Get
Line 335: Return CType(Me.Context.Profile,System.Web.Profile.DefaultProfile)
Line 336: End Get
Line 337: End Property
Line 338:
Line 339: Protected ReadOnly Property ApplicationInstance() As System.Web.HttpApplication
Line 340: Get
Line 341: Return CType(Me.Context.ApplicationInstance,System.Web.HttpApplication)
Line 342: End Get
Line 343: End Property
Line 344:
Line 345: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 346: Private Function __BuildControlLabel3() As Global.System.Web.UI.WebControls.Label
Line 347: Dim __ctrl As Global.System.Web.UI.WebControls.Label
Line 348:
Line 349: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",248)
Line 350: __ctrl = New Global.System.Web.UI.WebControls.Label()
Line 351:
Line 352: #End ExternalSource
Line 353: Me.Label3 = __ctrl
Line 354: __ctrl.ApplyStyleSheetSkin(Me)
Line 355:
Line 356: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",248)
Line 357: __ctrl.ID = "Label3"
Line 358:
Line 359: #End ExternalSource
Line 360:
Line 361: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",248)
Line 362: __ctrl.Text = " "
Line 363:
Line 364: #End ExternalSource
Line 365: Return __ctrl
Line 366: End Function
Line 367:
Line 368: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 369: Private Function __BuildControlLabel1() As Global.System.Web.UI.WebControls.Label
Line 370: Dim __ctrl As Global.System.Web.UI.WebControls.Label
Line 371:
Line 372: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",254)
Line 373: __ctrl = New Global.System.Web.UI.WebControls.Label()
Line 374:
Line 375: #End ExternalSource
Line 376: Me.Label1 = __ctrl
Line 377: __ctrl.ApplyStyleSheetSkin(Me)
Line 378:
Line 379: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",254)
Line 380: __ctrl.ID = "Label1"
Line 381:
Line 382: #End ExternalSource
Line 383:
Line 384: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",254)
Line 385: __ctrl.Font.Italic = false
Line 386:
Line 387: #End ExternalSource
Line 388:
Line 389: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",254)
Line 390: __ctrl.Height = New System.Web.UI.WebControls.Unit(27R, Global.System.Web.UI.WebControls.UnitType.Pixel)
Line 391:
Line 392: #End ExternalSource
Line 393:
Line 394: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",254)
Line 395: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("font-color", "#FFFFFF")
Line 396:
Line 397: #End ExternalSource
Line 398:
Line 399: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",254)
Line 400: __ctrl.Font.Bold = true
Line 401:
Line 402: #End ExternalSource
Line 403:
Line 404: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",254)
Line 405: __ctrl.ForeColor = Global.System.Drawing.Color.Black
Line 406:
Line 407: #End ExternalSource
Line 408:
Line 409: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",254)
Line 410: __ctrl.Font.Size = New System.Web.UI.WebControls.FontUnit(New System.Web.UI.WebControls.Unit(20R, Global.System.Web.UI.WebControls.UnitType.Point))
Line 411:
Line 412: #End ExternalSource
Line 413:
Line 414: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",254)
Line 415: __ctrl.Font.Names = New String() {"Tahoma"}
Line 416:
Line 417: #End ExternalSource
Line 418:
Line 419: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",254)
Line 420: __ctrl.Width = New System.Web.UI.WebControls.Unit(624R, Global.System.Web.UI.WebControls.UnitType.Pixel)
Line 421:
Line 422: #End ExternalSource
Line 423: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 424:
Line 425: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",254)
Line 426: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("Label1"))
Line 427:
Line 428: #End ExternalSource
Line 429: Return __ctrl
Line 430: End Function
Line 431:
Line 432: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 433: Private Function __BuildControlLabel10() As Global.System.Web.UI.WebControls.Label
Line 434: Dim __ctrl As Global.System.Web.UI.WebControls.Label
Line 435:
Line 436: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",254)
Line 437: __ctrl = New Global.System.Web.UI.WebControls.Label()
Line 438:
Line 439: #End ExternalSource
Line 440: Me.Label10 = __ctrl
Line 441: __ctrl.ApplyStyleSheetSkin(Me)
Line 442:
Line 443: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",254)
Line 444: __ctrl.ID = "Label10"
Line 445:
Line 446: #End ExternalSource
Line 447:
Line 448: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",254)
Line 449: __ctrl.Font.Bold = true
Line 450:
Line 451: #End ExternalSource
Line 452:
Line 453: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",254)
Line 454: __ctrl.Font.Size = New System.Web.UI.WebControls.FontUnit(New System.Web.UI.WebControls.Unit(8R, Global.System.Web.UI.WebControls.UnitType.Point))
Line 455:
Line 456: #End ExternalSource
Line 457:
Line 458: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",254)
Line 459: __ctrl.Font.Names = New String() {"Tahoma"}
Line 460:
Line 461: #End ExternalSource
Line 462:
Line 463: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",254)
Line 464: __ctrl.Width = New System.Web.UI.WebControls.Unit(587R, Global.System.Web.UI.WebControls.UnitType.Pixel)
Line 465:
Line 466: #End ExternalSource
Line 467: Return __ctrl
Line 468: End Function
Line 469:
Line 470: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 471: Private Function __BuildControlLabel2() As Global.System.Web.UI.WebControls.Label
Line 472: Dim __ctrl As Global.System.Web.UI.WebControls.Label
Line 473:
Line 474: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",264)
Line 475: __ctrl = New Global.System.Web.UI.WebControls.Label()
Line 476:
Line 477: #End ExternalSource
Line 478: Me.Label2 = __ctrl
Line 479: __ctrl.ApplyStyleSheetSkin(Me)
Line 480:
Line 481: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",264)
Line 482: __ctrl.ID = "Label2"
Line 483:
Line 484: #End ExternalSource
Line 485:
Line 486: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",264)
Line 487: __ctrl.Text = "Label"
Line 488:
Line 489: #End ExternalSource
Line 490:
Line 491: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",264)
Line 492: __ctrl.Font.Bold = true
Line 493:
Line 494: #End ExternalSource
Line 495:
Line 496: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",264)
Line 497: __ctrl.Font.Size = New System.Web.UI.WebControls.FontUnit(New System.Web.UI.WebControls.Unit(10R, Global.System.Web.UI.WebControls.UnitType.Point))
Line 498:
Line 499: #End ExternalSource
Line 500:
Line 501: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",264)
Line 502: __ctrl.Font.Names = New String() {"Tahoma"}
Line 503:
Line 504: #End ExternalSource
Line 505:
Line 506: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",264)
Line 507: __ctrl.Width = New System.Web.UI.WebControls.Unit(570R, Global.System.Web.UI.WebControls.UnitType.Pixel)
Line 508:
Line 509: #End ExternalSource
Line 510: Return __ctrl
Line 511: End Function
Line 512:
Line 513: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 514: Private Function __BuildControlTable1() As Global.System.Web.UI.WebControls.Table
Line 515: Dim __ctrl As Global.System.Web.UI.WebControls.Table
Line 516:
Line 517: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",266)
Line 518: __ctrl = New Global.System.Web.UI.WebControls.Table()
Line 519:
Line 520: #End ExternalSource
Line 521: Me.Table1 = __ctrl
Line 522: __ctrl.ApplyStyleSheetSkin(Me)
Line 523:
Line 524: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",266)
Line 525: __ctrl.ID = "Table1"
Line 526:
Line 527: #End ExternalSource
Line 528:
Line 529: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",266)
Line 530: __ctrl.CellSpacing = 0
Line 531:
Line 532: #End ExternalSource
Line 533:
Line 534: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",266)
Line 535: __ctrl.CellPadding = 0
Line 536:
Line 537: #End ExternalSource
Line 538:
Line 539: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",266)
Line 540: __ctrl.Width = New System.Web.UI.WebControls.Unit(570R, Global.System.Web.UI.WebControls.UnitType.Pixel)
Line 541:
Line 542: #End ExternalSource
Line 543: Return __ctrl
Line 544: End Function
Line 545:
Line 546: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 547: Private Function __BuildControl__control2() As Global.System.Web.UI.HtmlControls.HtmlForm
Line 548: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlForm
Line 549:
Line 550: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",242)
Line 551: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlForm()
Line 552:
Line 553: #End ExternalSource
Line 554: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 555:
Line 556: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",242)
Line 557: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <table cellspacing=""0"" cellpadding=""0"" width=""100%"" ba"& _
Line 558: "ckground=""system/verlauf3.jpg"" border=""0"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <tbody>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 559: " <tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 560:
Line 561: #End ExternalSource
Line 562: Dim __ctrl1 As Global.System.Web.UI.WebControls.Label
Line 563:
Line 564: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",242)
Line 565: __ctrl1 = Me.__BuildControlLabel3
Line 566:
Line 567: #End ExternalSource
Line 568:
Line 569: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",242)
Line 570: __parser.AddParsedSubObject(__ctrl1)
Line 571:
Line 572: #End ExternalSource
Line 573:
Line 574: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",242)
Line 575: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("</td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 576: " </tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <td width=""90%"">"& _
Line 577: ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 578:
Line 579: #End ExternalSource
Line 580: Dim __ctrl2 As Global.System.Web.UI.WebControls.Label
Line 581:
Line 582: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",242)
Line 583: __ctrl2 = Me.__BuildControlLabel1
Line 584:
Line 585: #End ExternalSource
Line 586:
Line 587: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",242)
Line 588: __parser.AddParsedSubObject(__ctrl2)
Line 589:
Line 590: #End ExternalSource
Line 591:
Line 592: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",242)
Line 593: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(" "))
Line 594:
Line 595: #End ExternalSource
Line 596: Dim __ctrl3 As Global.System.Web.UI.WebControls.Label
Line 597:
Line 598: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",242)
Line 599: __ctrl3 = Me.__BuildControlLabel10
Line 600:
Line 601: #End ExternalSource
Line 602:
Line 603: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",242)
Line 604: __parser.AddParsedSubObject(__ctrl3)
Line 605:
Line 606: #End ExternalSource
Line 607:
Line 608: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",242)
Line 609: __parser.AddParsedSubObject(Me.CreateResourceBasedLiteralControl(32706, 482, true))
Line 610:
Line 611: #End ExternalSource
Line 612: Dim __ctrl4 As Global.System.Web.UI.WebControls.Label
Line 613:
Line 614: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",242)
Line 615: __ctrl4 = Me.__BuildControlLabel2
Line 616:
Line 617: #End ExternalSource
Line 618:
Line 619: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",242)
Line 620: __parser.AddParsedSubObject(__ctrl4)
Line 621:
Line 622: #End ExternalSource
Line 623:
Line 624: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",242)
Line 625: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 626:
Line 627: #End ExternalSource
Line 628: Dim __ctrl5 As Global.System.Web.UI.WebControls.Table
Line 629:
Line 630: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",242)
Line 631: __ctrl5 = Me.__BuildControlTable1
Line 632:
Line 633: #End ExternalSource
Line 634:
Line 635: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",242)
Line 636: __parser.AddParsedSubObject(__ctrl5)
Line 637:
Line 638: #End ExternalSource
Line 639:
Line 640: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",242)
Line 641: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <div id=""Ebene1"" style=""LEFT: 0px; WIDTH: 57px; POSITIO"& _
Line 642: "N: absolute; TOP: 0px; HEIGHT: 58px""><img src=""system/ecke-grau.gif"" border=""0"" "& _
Line 643: "/> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <br />"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 644:
Line 645: #End ExternalSource
Line 646: Return __ctrl
Line 647: End Function
Line 648:
Line 649: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 650: Private Sub __BuildControlTree(ByVal __ctrl As asp_details_x_aspx)
Line 651:
Line 652: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",1)
Line 653: __ctrl.EnableViewState = false
Line 654:
Line 655: #End ExternalSource
Line 656:
Line 657: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",1)
Line 658: __ctrl.EnableViewStateMac = false
Line 659:
Line 660: #End ExternalSource
Line 661:
Line 662: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",1)
Line 663: Me.InitializeCulture
Line 664:
Line 665: #End ExternalSource
Line 666: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 667:
Line 668: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",1)
Line 669: __parser.AddParsedSubObject(Me.CreateResourceBasedLiteralControl(33188, 347, true))
Line 670:
Line 671: #End ExternalSource
Line 672: Dim __ctrl1 As Global.System.Web.UI.HtmlControls.HtmlForm
Line 673:
Line 674: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",1)
Line 675: __ctrl1 = Me.__BuildControl__control2
Line 676:
Line 677: #End ExternalSource
Line 678:
Line 679: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",1)
Line 680: __parser.AddParsedSubObject(__ctrl1)
Line 681:
Line 682: #End ExternalSource
Line 683:
Line 684: #ExternalSource("E:\kunden\homepages\43\d627450043\www\net\ftp\asp\details-x.aspx",1)
Line 685: __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>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 686:
Line 687: #End ExternalSource
Line 688: End Sub
Line 689:
Line 690: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 691: Protected Overrides Sub FrameworkInitialize()
Line 692: MyBase.FrameworkInitialize
Line 693: Me.SetStringResourcePointer(Global.ASP.asp_details_x_aspx.__stringResource, 0)
Line 694: Me.__BuildControlTree(Me)
Line 695: Me.AddWrappedFileDependencies(Global.ASP.asp_details_x_aspx.__fileDependencies)
Line 696: End Sub
Line 697:
Line 698: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 699: Public Overrides Function GetTypeHashCode() As Integer
Line 700: Return -905911235
Line 701: End Function
Line 702:
Line 703: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 704: Public Overrides Sub ProcessRequest(ByVal context As System.Web.HttpContext)
Line 705: MyBase.ProcessRequest(context)
Line 706: End Sub
Line 707: End Class
Line 708: End Namespace
Line 709:
|