Line 1: #ExternalChecksum("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx","{406ea660-64cf-4c82-b6f0-42d48172a799}","9F5A793F9B039F55B95679F638DD3311")
Line 2: '------------------------------------------------------------------------------
Line 3: ' <auto-generated>
Line 4: ' This code was generated by a tool.
Line 5: ' Runtime Version:2.0.50727.1433
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.Specialized
Line 19: Imports System.Configuration
Line 20: Imports system.data
Line 21: Imports system.data.sqlclient
Line 22: Imports System.Text
Line 23: Imports System.Text.RegularExpressions
Line 24: Imports system.web
Line 25: Imports System.Web.Caching
Line 26: Imports System.Web.Profile
Line 27: Imports System.Web.Security
Line 28: Imports system.web.services
Line 29: Imports System.Web.SessionState
Line 30: Imports System.Web.UI
Line 31: Imports System.Web.UI.HtmlControls
Line 32: Imports System.Web.UI.WebControls
Line 33: Imports System.Web.UI.WebControls.WebParts
Line 34: Imports system.xml
Line 35:
Line 36: Namespace ASP
Line 37:
Line 38: <System.Runtime.CompilerServices.CompilerGlobalScopeAttribute()> _
Line 39: Public Class subscribe_aspx
Line 40: Inherits Global.System.Web.UI.Page
Line 41: Implements System.Web.SessionState.IRequiresSessionState, System.Web.IHttpHandler
Line 42:
Line 43:
Line 44: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",5)
Line 45: Protected WithEvents DataList1 As Global.System.Web.UI.WebControls.DataList
Line 46:
Line 47: #End ExternalSource
Line 48:
Line 49:
Line 50: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",10)
Line 51: Protected WithEvents SqlDataSource1 As Global.System.Web.UI.WebControls.SqlDataSource
Line 52:
Line 53: #End ExternalSource
Line 54:
Line 55:
Line 56: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",17)
Line 57: Protected WithEvents DataList2 As Global.System.Web.UI.WebControls.DataList
Line 58:
Line 59: #End ExternalSource
Line 60:
Line 61:
Line 62: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",26)
Line 63: Protected WithEvents SqlDataSource2 As Global.System.Web.UI.WebControls.SqlDataSource
Line 64:
Line 65: #End ExternalSource
Line 66:
Line 67:
Line 68: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",75)
Line 69: Protected WithEvents txtEM As Global.System.Web.UI.WebControls.TextBox
Line 70:
Line 71: #End ExternalSource
Line 72:
Line 73:
Line 74: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",84)
Line 75: Protected WithEvents txtPC As Global.System.Web.UI.WebControls.TextBox
Line 76:
Line 77: #End ExternalSource
Line 78:
Line 79:
Line 80: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",94)
Line 81: Protected WithEvents NewsletterChoices As Global.System.Web.UI.WebControls.CheckBoxList
Line 82:
Line 83: #End ExternalSource
Line 84:
Line 85:
Line 86: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",102)
Line 87: Protected WithEvents btnSubscribe As Global.System.Web.UI.WebControls.ImageButton
Line 88:
Line 89: #End ExternalSource
Line 90:
Line 91:
Line 92: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",103)
Line 93: Protected WithEvents cmdSubscribe As Global.System.Web.UI.HtmlControls.HtmlInputHidden
Line 94:
Line 95: #End ExternalSource
Line 96:
Line 97:
Line 98: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",66)
Line 99: Protected WithEvents frvBasketDel As Global.System.Web.UI.WebControls.FormView
Line 100:
Line 101: #End ExternalSource
Line 102:
Line 103:
Line 104: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",72)
Line 105: Protected WithEvents frvBasketCol As Global.System.Web.UI.WebControls.FormView
Line 106:
Line 107: #End ExternalSource
Line 108:
Line 109:
Line 110: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",77)
Line 111: Protected WithEvents rstBasketCount As Global.System.Web.UI.WebControls.SqlDataSource
Line 112:
Line 113: #End ExternalSource
Line 114:
Line 115:
Line 116: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",87)
Line 117: Protected WithEvents DataList3 As Global.System.Web.UI.WebControls.DataList
Line 118:
Line 119: #End ExternalSource
Line 120:
Line 121:
Line 122: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",92)
Line 123: Protected WithEvents rstTopTenSellers As Global.System.Web.UI.WebControls.SqlDataSource
Line 124:
Line 125: #End ExternalSource
Line 126:
Line 127:
Line 128: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",111)
Line 129: Protected WithEvents SqlDataSource3 As Global.System.Web.UI.WebControls.SqlDataSource
Line 130:
Line 131: #End ExternalSource
Line 132:
Line 133:
Line 134: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",60)
Line 135: Protected WithEvents form2 As Global.System.Web.UI.HtmlControls.HtmlForm
Line 136:
Line 137: #End ExternalSource
Line 138:
Line 139: Private Shared __initialized As Boolean
Line 140:
Line 141: Private Shared __stringResource As Object
Line 142:
Line 143: Private Shared __fileDependencies As Object
Line 144:
Line 145:
Line 146: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",11)
Line 147:
Line 148: Protected Sub page_load(ByVal sender As Object, ByVal e As System.EventArgs)
Line 149: If Page.IsPostBack Then
Line 150: If Request.Form("cmdSubscribe") = "Subscribe" Then
Line 151: ' adds subscriber and preferences or tells them they're already a subscriber
Line 152: Dim strConnectionString = ConfigurationManager.ConnectionStrings("vtg_constr").ConnectionString
Line 153: Dim cConn As New SqlConnection(sConn)
Line 154: Dim sCmd As String = "SELECT * FROM vtg_tblNewsletterSubs WHERE (sEmail = '" & Request.Form("txtEM") & "')"
Line 155: Dim cCmd As New SqlCommand(sCmd, cConn)
Line 156: Dim iNLID As Integer = 0
Line 157: cCmd.Connection.Open()
Line 158: Dim cReader As SqlDataReader = cCmd.ExecuteReader()
Line 159: If cReader.Read() Then
Line 160: iNLID = cReader("ID").ToString()
Line 161: Response.Redirect("subscribe2.aspx?NLID=" & iNLID)
Line 162: Else
Line 163: cReader.Close()
Line 164: cCmd.Connection.Close()
Line 165: Dim sCmd2 As String = "INSERT INTO vtg_tblNewsletterSubs (sEmail, sPostCode) VALUES ('" & Request.Form("txtEM") & "', '" & Request.Form("txtPC") & "')"
Line 166: cCmd = New SqlCommand(sCmd2, cConn)
Line 167: cCmd.Connection.Open()
Line 168: cCmd.ExecuteNonQuery()
Line 169: 'cCmd.Connection.Close()
Line 170: cCmd = New SqlCommand(sCmd, cConn)
Line 171: Dim cReader2 As SqlDataReader = cCmd.ExecuteReader()
Line 172: If cReader2.Read Then
Line 173: iNLID = cReader2("ID").ToString()
Line 174: cCmd.Connection.Close()
Line 175: Dim iIndex As Integer
Line 176: For iIndex = 0 To Me.NewsletterChoices.Items.Count - 1
Line 177: If Me.NewsletterChoices.Items(iIndex).Selected Then
Line 178: sCmd2 = "INSERT INTO vtg_tblNewsletterSubsCategory (NLID, CategoryID) VALUES (" & iNLID & ", " & Me.NewsletterChoices.Items(iIndex).Value & ")"
Line 179: cCmd = New SqlCommand(sCmd2, cConn)
Line 180: cCmd.Connection.Open()
Line 181: cCmd.ExecuteNonQuery()
Line 182: cCmd.Connection.Close()
Line 183: End If
Line 184: Next
Line 185: End If
Line 186: cReader2.Close()
Line 187: End If
Line 188: End If
Line 189: End If
Line 190: end sub
Line 191:
Line 192: #End ExternalSource
Line 193:
Line 194:
Line 195: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\header.aspx",8)
Line 196:
Line 197: Dim iCID As Integer
Line 198: Dim iRID As Integer
Line 199:
Line 200:
Line 201: #End ExternalSource
Line 202:
Line 203:
Line 204: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 205: Public Sub New()
Line 206: MyBase.New
Line 207: Dim dependencies() As String
Line 208: CType(Me,Global.System.Web.UI.Page).AppRelativeVirtualPath = "~/Subscribe.aspx"
Line 209: If (Global.ASP.subscribe_aspx.__initialized = false) Then
Line 210: Global.ASP.subscribe_aspx.__stringResource = Me.ReadStringResource
Line 211: dependencies = New String(5) {}
Line 212: dependencies(0) = "~/Subscribe.aspx"
Line 213: dependencies(1) = "~/header.aspx"
Line 214: dependencies(2) = "~/nav.aspx"
Line 215: dependencies(3) = "~/left.aspx"
Line 216: dependencies(4) = "~/right.aspx"
Line 217: dependencies(5) = "~/footer.asp"
Line 218: Global.ASP.subscribe_aspx.__fileDependencies = Me.GetWrappedFileDependencies(dependencies)
Line 219: Global.ASP.subscribe_aspx.__initialized = true
Line 220: End If
Line 221: Me.Server.ScriptTimeout = 30000000
Line 222: End Sub
Line 223:
Line 224: Protected ReadOnly Property Profile() As System.Web.Profile.DefaultProfile
Line 225: Get
Line 226: Return CType(Me.Context.Profile,System.Web.Profile.DefaultProfile)
Line 227: End Get
Line 228: End Property
Line 229:
Line 230: Protected ReadOnly Property ApplicationInstance() As System.Web.HttpApplication
Line 231: Get
Line 232: Return CType(Me.Context.ApplicationInstance,System.Web.HttpApplication)
Line 233: End Get
Line 234: End Property
Line 235:
Line 236: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 237: Private Function __BuildControl__control3() As Global.System.Web.UI.HtmlControls.HtmlTitle
Line 238: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlTitle
Line 239:
Line 240: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",6)
Line 241: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlTitle
Line 242:
Line 243: #End ExternalSource
Line 244: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 245:
Line 246: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",6)
Line 247: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("Vets 2 Go - Home"))
Line 248:
Line 249: #End ExternalSource
Line 250: Return __ctrl
Line 251: End Function
Line 252:
Line 253: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 254: Private Function __BuildControl__control4() As Global.System.Web.UI.HtmlControls.HtmlLink
Line 255: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlLink
Line 256:
Line 257: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",7)
Line 258: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlLink
Line 259:
Line 260: #End ExternalSource
Line 261:
Line 262: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",7)
Line 263: __ctrl.Href = "css/master.css"
Line 264:
Line 265: #End ExternalSource
Line 266:
Line 267: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",7)
Line 268: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("rel", "stylesheet")
Line 269:
Line 270: #End ExternalSource
Line 271:
Line 272: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",7)
Line 273: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("type", "text/css")
Line 274:
Line 275: #End ExternalSource
Line 276: Return __ctrl
Line 277: End Function
Line 278:
Line 279: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 280: Private Function __BuildControl__control5() As Global.System.Web.UI.HtmlControls.HtmlLink
Line 281: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlLink
Line 282:
Line 283: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",8)
Line 284: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlLink
Line 285:
Line 286: #End ExternalSource
Line 287:
Line 288: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",8)
Line 289: __ctrl.Href = "css/nav1.css"
Line 290:
Line 291: #End ExternalSource
Line 292:
Line 293: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",8)
Line 294: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("rel", "stylesheet")
Line 295:
Line 296: #End ExternalSource
Line 297:
Line 298: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",8)
Line 299: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("type", "text/css")
Line 300:
Line 301: #End ExternalSource
Line 302: Return __ctrl
Line 303: End Function
Line 304:
Line 305: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 306: Private Function __BuildControl__control2() As Global.System.Web.UI.HtmlControls.HtmlHead
Line 307: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlHead
Line 308:
Line 309: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",5)
Line 310: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlHead("head")
Line 311:
Line 312: #End ExternalSource
Line 313: Dim __ctrl1 As Global.System.Web.UI.HtmlControls.HtmlTitle
Line 314:
Line 315: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",5)
Line 316: __ctrl1 = Me.__BuildControl__control3
Line 317:
Line 318: #End ExternalSource
Line 319: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 320:
Line 321: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",5)
Line 322: __parser.AddParsedSubObject(__ctrl1)
Line 323:
Line 324: #End ExternalSource
Line 325: Dim __ctrl2 As Global.System.Web.UI.HtmlControls.HtmlLink
Line 326:
Line 327: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",5)
Line 328: __ctrl2 = Me.__BuildControl__control4
Line 329:
Line 330: #End ExternalSource
Line 331:
Line 332: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",5)
Line 333: __parser.AddParsedSubObject(__ctrl2)
Line 334:
Line 335: #End ExternalSource
Line 336: Dim __ctrl3 As Global.System.Web.UI.HtmlControls.HtmlLink
Line 337:
Line 338: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",5)
Line 339: __ctrl3 = Me.__BuildControl__control5
Line 340:
Line 341: #End ExternalSource
Line 342:
Line 343: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",5)
Line 344: __parser.AddParsedSubObject(__ctrl3)
Line 345:
Line 346: #End ExternalSource
Line 347: Return __ctrl
Line 348: End Function
Line 349:
Line 350: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 351: Private Function __BuildControl__control7() As Global.System.Web.UI.WebControls.HyperLink
Line 352: Dim __ctrl As Global.System.Web.UI.WebControls.HyperLink
Line 353:
Line 354: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",7)
Line 355: __ctrl = New Global.System.Web.UI.WebControls.HyperLink
Line 356:
Line 357: #End ExternalSource
Line 358: __ctrl.TemplateControl = Me
Line 359: __ctrl.ApplyStyleSheetSkin(Me)
Line 360:
Line 361: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",7)
Line 362: __ctrl.ID = "HyperLink0"
Line 363:
Line 364: #End ExternalSource
Line 365: If Me.TestDeviceFilter("__designer") Then
Line 366:
Line 367: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",7)
Line 368: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("wfdid", "w37")
Line 369:
Line 370: #End ExternalSource
Line 371: End If
Line 372:
Line 373: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",7)
Line 374: AddHandler __ctrl.DataBinding, AddressOf Me.__DataBinding__control7
Line 375:
Line 376: #End ExternalSource
Line 377: Return __ctrl
Line 378: End Function
Line 379:
Line 380: Public Sub __DataBinding__control7(ByVal sender As Object, ByVal e As System.EventArgs)
Line 381: Dim dataBindingExpressionBuilderTarget As System.Web.UI.WebControls.HyperLink
Line 382: Dim Container As System.Web.UI.WebControls.DataListItem
Line 383: dataBindingExpressionBuilderTarget = CType(sender,System.Web.UI.WebControls.HyperLink)
Line 384: Container = CType(dataBindingExpressionBuilderTarget.BindingContainer,System.Web.UI.WebControls.DataListItem)
Line 385:
Line 386: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",7)
Line 387: dataBindingExpressionBuilderTarget.NavigateUrl = System.Convert.ToString( "home.aspx?CID=" & Eval("ID") , System.Globalization.CultureInfo.CurrentCulture)
Line 388:
Line 389: #End ExternalSource
Line 390:
Line 391: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",7)
Line 392: dataBindingExpressionBuilderTarget.Text = System.Convert.ToString( Eval("sName") , System.Globalization.CultureInfo.CurrentCulture)
Line 393:
Line 394: #End ExternalSource
Line 395:
Line 396: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",7)
Line 397: dataBindingExpressionBuilderTarget.Visible = CType( Eval("ID") <> iCID,Boolean)
Line 398:
Line 399: #End ExternalSource
Line 400: End Sub
Line 401:
Line 402: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 403: Private Function __BuildControl__control8() As Global.System.Web.UI.WebControls.HyperLink
Line 404: Dim __ctrl As Global.System.Web.UI.WebControls.HyperLink
Line 405:
Line 406: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",8)
Line 407: __ctrl = New Global.System.Web.UI.WebControls.HyperLink
Line 408:
Line 409: #End ExternalSource
Line 410: __ctrl.TemplateControl = Me
Line 411: __ctrl.ApplyStyleSheetSkin(Me)
Line 412:
Line 413: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",8)
Line 414: __ctrl.ID = "HyperLink1"
Line 415:
Line 416: #End ExternalSource
Line 417:
Line 418: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",8)
Line 419: __ctrl.Font.Bold = true
Line 420:
Line 421: #End ExternalSource
Line 422:
Line 423: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",8)
Line 424: __ctrl.Font.Italic = true
Line 425:
Line 426: #End ExternalSource
Line 427:
Line 428: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",8)
Line 429: AddHandler __ctrl.DataBinding, AddressOf Me.__DataBinding__control8
Line 430:
Line 431: #End ExternalSource
Line 432: Return __ctrl
Line 433: End Function
Line 434:
Line 435: Public Sub __DataBinding__control8(ByVal sender As Object, ByVal e As System.EventArgs)
Line 436: Dim dataBindingExpressionBuilderTarget As System.Web.UI.WebControls.HyperLink
Line 437: Dim Container As System.Web.UI.WebControls.DataListItem
Line 438: dataBindingExpressionBuilderTarget = CType(sender,System.Web.UI.WebControls.HyperLink)
Line 439: Container = CType(dataBindingExpressionBuilderTarget.BindingContainer,System.Web.UI.WebControls.DataListItem)
Line 440:
Line 441: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",8)
Line 442: dataBindingExpressionBuilderTarget.NavigateUrl = System.Convert.ToString( "home.aspx?CID=" & Eval("ID") , System.Globalization.CultureInfo.CurrentCulture)
Line 443:
Line 444: #End ExternalSource
Line 445:
Line 446: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",8)
Line 447: dataBindingExpressionBuilderTarget.Text = System.Convert.ToString( Eval("sName") , System.Globalization.CultureInfo.CurrentCulture)
Line 448:
Line 449: #End ExternalSource
Line 450:
Line 451: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",8)
Line 452: dataBindingExpressionBuilderTarget.Visible = CType( Eval("ID") = iCID,Boolean)
Line 453:
Line 454: #End ExternalSource
Line 455: End Sub
Line 456:
Line 457: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 458: Private Sub __BuildControl__control6(ByVal __ctrl As System.Web.UI.Control)
Line 459: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 460:
Line 461: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",5)
Line 462: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 463:
Line 464: #End ExternalSource
Line 465: Dim __ctrl1 As Global.System.Web.UI.WebControls.HyperLink
Line 466:
Line 467: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",5)
Line 468: __ctrl1 = Me.__BuildControl__control7
Line 469:
Line 470: #End ExternalSource
Line 471:
Line 472: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",5)
Line 473: __parser.AddParsedSubObject(__ctrl1)
Line 474:
Line 475: #End ExternalSource
Line 476:
Line 477: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",5)
Line 478: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 479:
Line 480: #End ExternalSource
Line 481: Dim __ctrl2 As Global.System.Web.UI.WebControls.HyperLink
Line 482:
Line 483: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",5)
Line 484: __ctrl2 = Me.__BuildControl__control8
Line 485:
Line 486: #End ExternalSource
Line 487:
Line 488: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",5)
Line 489: __parser.AddParsedSubObject(__ctrl2)
Line 490:
Line 491: #End ExternalSource
Line 492:
Line 493: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",5)
Line 494: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 495:
Line 496: #End ExternalSource
Line 497: End Sub
Line 498:
Line 499: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 500: Private Function __BuildControlDataList1() As Global.System.Web.UI.WebControls.DataList
Line 501: Dim __ctrl As Global.System.Web.UI.WebControls.DataList
Line 502:
Line 503: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",5)
Line 504: __ctrl = New Global.System.Web.UI.WebControls.DataList
Line 505:
Line 506: #End ExternalSource
Line 507: Me.DataList1 = __ctrl
Line 508: __ctrl.ApplyStyleSheetSkin(Me)
Line 509:
Line 510: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",5)
Line 511: __ctrl.ItemTemplate = New System.Web.UI.CompiledTemplateBuilder(AddressOf Me.__BuildControl__control6)
Line 512:
Line 513: #End ExternalSource
Line 514:
Line 515: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",5)
Line 516: __ctrl.ID = "DataList1"
Line 517:
Line 518: #End ExternalSource
Line 519:
Line 520: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",5)
Line 521: __ctrl.DataSourceID = "SqlDataSource1"
Line 522:
Line 523: #End ExternalSource
Line 524:
Line 525: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",5)
Line 526: __ctrl.Width = New System.Web.UI.WebControls.Unit(100, System.Web.UI.WebControls.UnitType.Percentage)
Line 527:
Line 528: #End ExternalSource
Line 529: Return __ctrl
Line 530: End Function
Line 531:
Line 532: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 533: Private Function __BuildControlSqlDataSource1() As Global.System.Web.UI.WebControls.SqlDataSource
Line 534: Dim __ctrl As Global.System.Web.UI.WebControls.SqlDataSource
Line 535:
Line 536: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",10)
Line 537: __ctrl = New Global.System.Web.UI.WebControls.SqlDataSource
Line 538:
Line 539: #End ExternalSource
Line 540: Me.SqlDataSource1 = __ctrl
Line 541:
Line 542: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",10)
Line 543: __ctrl.ID = "SqlDataSource1"
Line 544:
Line 545: #End ExternalSource
Line 546:
Line 547: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",10)
Line 548: __ctrl.SelectCommand = "SELECT [ID], [sName] FROM [vtg_tblCategoryList]"
Line 549:
Line 550: #End ExternalSource
Line 551: __ctrl.ConnectionString = System.Convert.ToString(System.Web.Compilation.ConnectionStringsExpressionBuilder.GetConnectionString("interarcConnectionString"), System.Globalization.CultureInfo.CurrentCulture)
Line 552: Return __ctrl
Line 553: End Function
Line 554:
Line 555: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 556: Private Function __BuildControl__control10() As Global.System.Web.UI.WebControls.HyperLink
Line 557: Dim __ctrl As Global.System.Web.UI.WebControls.HyperLink
Line 558:
Line 559: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",19)
Line 560: __ctrl = New Global.System.Web.UI.WebControls.HyperLink
Line 561:
Line 562: #End ExternalSource
Line 563: __ctrl.TemplateControl = Me
Line 564: __ctrl.ApplyStyleSheetSkin(Me)
Line 565:
Line 566: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",19)
Line 567: __ctrl.ID = "HyperLink2"
Line 568:
Line 569: #End ExternalSource
Line 570: If Me.TestDeviceFilter("__designer") Then
Line 571:
Line 572: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",19)
Line 573: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("wfdid", "w40")
Line 574:
Line 575: #End ExternalSource
Line 576: End If
Line 577:
Line 578: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",19)
Line 579: AddHandler __ctrl.DataBinding, AddressOf Me.__DataBinding__control10
Line 580:
Line 581: #End ExternalSource
Line 582: Return __ctrl
Line 583: End Function
Line 584:
Line 585: Public Sub __DataBinding__control10(ByVal sender As Object, ByVal e As System.EventArgs)
Line 586: Dim dataBindingExpressionBuilderTarget As System.Web.UI.WebControls.HyperLink
Line 587: Dim Container As System.Web.UI.WebControls.DataListItem
Line 588: dataBindingExpressionBuilderTarget = CType(sender,System.Web.UI.WebControls.HyperLink)
Line 589: Container = CType(dataBindingExpressionBuilderTarget.BindingContainer,System.Web.UI.WebControls.DataListItem)
Line 590:
Line 591: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",19)
Line 592: dataBindingExpressionBuilderTarget.NavigateUrl = System.Convert.ToString( "range_list.aspx?RID=" & Eval("ID") , System.Globalization.CultureInfo.CurrentCulture)
Line 593:
Line 594: #End ExternalSource
Line 595:
Line 596: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",19)
Line 597: dataBindingExpressionBuilderTarget.Text = System.Convert.ToString( Eval("sName") , System.Globalization.CultureInfo.CurrentCulture)
Line 598:
Line 599: #End ExternalSource
Line 600:
Line 601: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",19)
Line 602: dataBindingExpressionBuilderTarget.Visible = CType( Eval("ID") <> iRID,Boolean)
Line 603:
Line 604: #End ExternalSource
Line 605: End Sub
Line 606:
Line 607: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 608: Private Function __BuildControl__control11() As Global.System.Web.UI.WebControls.HyperLink
Line 609: Dim __ctrl As Global.System.Web.UI.WebControls.HyperLink
Line 610:
Line 611: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",20)
Line 612: __ctrl = New Global.System.Web.UI.WebControls.HyperLink
Line 613:
Line 614: #End ExternalSource
Line 615: __ctrl.TemplateControl = Me
Line 616: __ctrl.ApplyStyleSheetSkin(Me)
Line 617:
Line 618: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",20)
Line 619: __ctrl.ID = "HyperLink3"
Line 620:
Line 621: #End ExternalSource
Line 622:
Line 623: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",20)
Line 624: __ctrl.Font.Bold = true
Line 625:
Line 626: #End ExternalSource
Line 627:
Line 628: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",20)
Line 629: __ctrl.Font.Italic = true
Line 630:
Line 631: #End ExternalSource
Line 632:
Line 633: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",20)
Line 634: AddHandler __ctrl.DataBinding, AddressOf Me.__DataBinding__control11
Line 635:
Line 636: #End ExternalSource
Line 637: Return __ctrl
Line 638: End Function
Line 639:
Line 640: Public Sub __DataBinding__control11(ByVal sender As Object, ByVal e As System.EventArgs)
Line 641: Dim dataBindingExpressionBuilderTarget As System.Web.UI.WebControls.HyperLink
Line 642: Dim Container As System.Web.UI.WebControls.DataListItem
Line 643: dataBindingExpressionBuilderTarget = CType(sender,System.Web.UI.WebControls.HyperLink)
Line 644: Container = CType(dataBindingExpressionBuilderTarget.BindingContainer,System.Web.UI.WebControls.DataListItem)
Line 645:
Line 646: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",20)
Line 647: dataBindingExpressionBuilderTarget.NavigateUrl = System.Convert.ToString( "range_list.aspx?RID=" & Eval("ID") , System.Globalization.CultureInfo.CurrentCulture)
Line 648:
Line 649: #End ExternalSource
Line 650:
Line 651: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",20)
Line 652: dataBindingExpressionBuilderTarget.Text = System.Convert.ToString( Eval("sName") , System.Globalization.CultureInfo.CurrentCulture)
Line 653:
Line 654: #End ExternalSource
Line 655:
Line 656: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",20)
Line 657: dataBindingExpressionBuilderTarget.Visible = CType( Eval("ID") = iRID,Boolean)
Line 658:
Line 659: #End ExternalSource
Line 660: End Sub
Line 661:
Line 662: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 663: Private Sub __BuildControl__control9(ByVal __ctrl As System.Web.UI.Control)
Line 664: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 665:
Line 666: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",17)
Line 667: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 668:
Line 669: #End ExternalSource
Line 670: Dim __ctrl1 As Global.System.Web.UI.WebControls.HyperLink
Line 671:
Line 672: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",17)
Line 673: __ctrl1 = Me.__BuildControl__control10
Line 674:
Line 675: #End ExternalSource
Line 676:
Line 677: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",17)
Line 678: __parser.AddParsedSubObject(__ctrl1)
Line 679:
Line 680: #End ExternalSource
Line 681:
Line 682: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",17)
Line 683: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 684:
Line 685: #End ExternalSource
Line 686: Dim __ctrl2 As Global.System.Web.UI.WebControls.HyperLink
Line 687:
Line 688: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",17)
Line 689: __ctrl2 = Me.__BuildControl__control11
Line 690:
Line 691: #End ExternalSource
Line 692:
Line 693: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",17)
Line 694: __parser.AddParsedSubObject(__ctrl2)
Line 695:
Line 696: #End ExternalSource
Line 697:
Line 698: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",17)
Line 699: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Line 700:
Line 701: #End ExternalSource
Line 702: End Sub
Line 703:
Line 704: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 705: Private Function __BuildControlDataList2() As Global.System.Web.UI.WebControls.DataList
Line 706: Dim __ctrl As Global.System.Web.UI.WebControls.DataList
Line 707:
Line 708: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",17)
Line 709: __ctrl = New Global.System.Web.UI.WebControls.DataList
Line 710:
Line 711: #End ExternalSource
Line 712: Me.DataList2 = __ctrl
Line 713: __ctrl.ApplyStyleSheetSkin(Me)
Line 714:
Line 715: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",17)
Line 716: __ctrl.ItemTemplate = New System.Web.UI.CompiledTemplateBuilder(AddressOf Me.__BuildControl__control9)
Line 717:
Line 718: #End ExternalSource
Line 719:
Line 720: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",17)
Line 721: __ctrl.ID = "DataList2"
Line 722:
Line 723: #End ExternalSource
Line 724:
Line 725: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",17)
Line 726: __ctrl.DataSourceID = "SqlDataSource2"
Line 727:
Line 728: #End ExternalSource
Line 729:
Line 730: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",17)
Line 731: __ctrl.Width = New System.Web.UI.WebControls.Unit(100, System.Web.UI.WebControls.UnitType.Percentage)
Line 732:
Line 733: #End ExternalSource
Line 734: Return __ctrl
Line 735: End Function
Line 736:
Line 737: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 738: Private Function __BuildControl__control13() As Global.System.Web.UI.WebControls.SessionParameter
Line 739: Dim __ctrl As Global.System.Web.UI.WebControls.SessionParameter
Line 740:
Line 741: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",28)
Line 742: __ctrl = New Global.System.Web.UI.WebControls.SessionParameter
Line 743:
Line 744: #End ExternalSource
Line 745:
Line 746: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",28)
Line 747: __ctrl.SessionField = "iCID"
Line 748:
Line 749: #End ExternalSource
Line 750:
Line 751: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",28)
Line 752: __ctrl.Type = System.TypeCode.Int32
Line 753:
Line 754: #End ExternalSource
Line 755:
Line 756: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",28)
Line 757: __ctrl.Name = "CategoryID"
Line 758:
Line 759: #End ExternalSource
Line 760: Return __ctrl
Line 761: End Function
Line 762:
Line 763: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 764: Private Sub __BuildControl__control12(ByVal __ctrl As System.Web.UI.WebControls.ParameterCollection)
Line 765: Dim __ctrl1 As Global.System.Web.UI.WebControls.SessionParameter
Line 766:
Line 767: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",26)
Line 768: __ctrl1 = Me.__BuildControl__control13
Line 769:
Line 770: #End ExternalSource
Line 771:
Line 772: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",26)
Line 773: __ctrl.Add(__ctrl1)
Line 774:
Line 775: #End ExternalSource
Line 776: End Sub
Line 777:
Line 778: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 779: Private Function __BuildControlSqlDataSource2() As Global.System.Web.UI.WebControls.SqlDataSource
Line 780: Dim __ctrl As Global.System.Web.UI.WebControls.SqlDataSource
Line 781:
Line 782: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",26)
Line 783: __ctrl = New Global.System.Web.UI.WebControls.SqlDataSource
Line 784:
Line 785: #End ExternalSource
Line 786: Me.SqlDataSource2 = __ctrl
Line 787:
Line 788: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",26)
Line 789: __ctrl.ID = "SqlDataSource2"
Line 790:
Line 791: #End ExternalSource
Line 792:
Line 793: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",26)
Line 794: __ctrl.SelectCommand = "SELECT [ID], [sName], [iOrder] FROM [vtg_tblRangeList] WHERE ([CategoryID] = @Cat"& _
Line 795: "egoryID) ORDER BY [iOrder]"
Line 796:
Line 797: #End ExternalSource
Line 798:
Line 799: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",26)
Line 800: Me.__BuildControl__control12(__ctrl.SelectParameters)
Line 801:
Line 802: #End ExternalSource
Line 803: __ctrl.ConnectionString = System.Convert.ToString(System.Web.Compilation.ConnectionStringsExpressionBuilder.GetConnectionString("interarcConnectionString"), System.Globalization.CultureInfo.CurrentCulture)
Line 804: Return __ctrl
Line 805: End Function
Line 806:
Line 807: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 808: Private Function __BuildControltxtEM() As Global.System.Web.UI.WebControls.TextBox
Line 809: Dim __ctrl As Global.System.Web.UI.WebControls.TextBox
Line 810:
Line 811: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",75)
Line 812: __ctrl = New Global.System.Web.UI.WebControls.TextBox
Line 813:
Line 814: #End ExternalSource
Line 815: Me.txtEM = __ctrl
Line 816: __ctrl.ApplyStyleSheetSkin(Me)
Line 817:
Line 818: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",75)
Line 819: __ctrl.ID = "txtEM"
Line 820:
Line 821: #End ExternalSource
Line 822: Return __ctrl
Line 823: End Function
Line 824:
Line 825: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 826: Private Function __BuildControltxtPC() As Global.System.Web.UI.WebControls.TextBox
Line 827: Dim __ctrl As Global.System.Web.UI.WebControls.TextBox
Line 828:
Line 829: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",84)
Line 830: __ctrl = New Global.System.Web.UI.WebControls.TextBox
Line 831:
Line 832: #End ExternalSource
Line 833: Me.txtPC = __ctrl
Line 834: __ctrl.ApplyStyleSheetSkin(Me)
Line 835:
Line 836: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",84)
Line 837: __ctrl.ID = "txtPC"
Line 838:
Line 839: #End ExternalSource
Line 840: Return __ctrl
Line 841: End Function
Line 842:
Line 843: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 844: Private Function __BuildControlNewsletterChoices() As Global.System.Web.UI.WebControls.CheckBoxList
Line 845: Dim __ctrl As Global.System.Web.UI.WebControls.CheckBoxList
Line 846:
Line 847: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",94)
Line 848: __ctrl = New Global.System.Web.UI.WebControls.CheckBoxList
Line 849:
Line 850: #End ExternalSource
Line 851: Me.NewsletterChoices = __ctrl
Line 852: __ctrl.ApplyStyleSheetSkin(Me)
Line 853:
Line 854: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",94)
Line 855: __ctrl.ID = "NewsletterChoices"
Line 856:
Line 857: #End ExternalSource
Line 858:
Line 859: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",94)
Line 860: __ctrl.DataSourceID = "SqlDataSource3"
Line 861:
Line 862: #End ExternalSource
Line 863:
Line 864: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",94)
Line 865: __ctrl.DataTextField = "sName"
Line 866:
Line 867: #End ExternalSource
Line 868:
Line 869: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",94)
Line 870: __ctrl.DataValueField = "ID"
Line 871:
Line 872: #End ExternalSource
Line 873: Return __ctrl
Line 874: End Function
Line 875:
Line 876: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 877: Private Function __BuildControlbtnSubscribe() As Global.System.Web.UI.WebControls.ImageButton
Line 878: Dim __ctrl As Global.System.Web.UI.WebControls.ImageButton
Line 879:
Line 880: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",102)
Line 881: __ctrl = New Global.System.Web.UI.WebControls.ImageButton
Line 882:
Line 883: #End ExternalSource
Line 884: Me.btnSubscribe = __ctrl
Line 885: __ctrl.ApplyStyleSheetSkin(Me)
Line 886:
Line 887: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",102)
Line 888: __ctrl.ID = "btnSubscribe"
Line 889:
Line 890: #End ExternalSource
Line 891:
Line 892: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",102)
Line 893: __ctrl.OnClientClick = "javascript:LogIn;"
Line 894:
Line 895: #End ExternalSource
Line 896:
Line 897: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",102)
Line 898: __ctrl.ImageUrl = "~/imgs/but_subscribe.gif"
Line 899:
Line 900: #End ExternalSource
Line 901: Return __ctrl
Line 902: End Function
Line 903:
Line 904: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 905: Private Function __BuildControlcmdSubscribe() As Global.System.Web.UI.HtmlControls.HtmlInputHidden
Line 906: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlInputHidden
Line 907:
Line 908: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",103)
Line 909: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlInputHidden
Line 910:
Line 911: #End ExternalSource
Line 912: Me.cmdSubscribe = __ctrl
Line 913:
Line 914: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",103)
Line 915: __ctrl.ID = "cmdSubscribe"
Line 916:
Line 917: #End ExternalSource
Line 918:
Line 919: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",103)
Line 920: CType(__ctrl,System.Web.UI.IAttributeAccessor).SetAttribute("type", "hidden")
Line 921:
Line 922: #End ExternalSource
Line 923:
Line 924: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",103)
Line 925: __ctrl.Value = "Subscribe"
Line 926:
Line 927: #End ExternalSource
Line 928: Return __ctrl
Line 929: End Function
Line 930:
Line 931: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 932: Private Function __BuildControl__control15() As Global.System.Web.UI.WebControls.Label
Line 933: Dim __ctrl As Global.System.Web.UI.WebControls.Label
Line 934:
Line 935: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",67)
Line 936: __ctrl = New Global.System.Web.UI.WebControls.Label
Line 937:
Line 938: #End ExternalSource
Line 939: __ctrl.TemplateControl = Me
Line 940: __ctrl.ApplyStyleSheetSkin(Me)
Line 941:
Line 942: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",67)
Line 943: __ctrl.ID = "Label2"
Line 944:
Line 945: #End ExternalSource
Line 946:
Line 947: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",67)
Line 948: AddHandler __ctrl.DataBinding, AddressOf Me.__DataBinding__control15
Line 949:
Line 950: #End ExternalSource
Line 951: Return __ctrl
Line 952: End Function
Line 953:
Line 954: Public Sub __DataBinding__control15(ByVal sender As Object, ByVal e As System.EventArgs)
Line 955: Dim dataBindingExpressionBuilderTarget As System.Web.UI.WebControls.Label
Line 956: Dim Container As System.Web.UI.WebControls.FormView
Line 957: dataBindingExpressionBuilderTarget = CType(sender,System.Web.UI.WebControls.Label)
Line 958: Container = CType(dataBindingExpressionBuilderTarget.BindingContainer,System.Web.UI.WebControls.FormView)
Line 959:
Line 960: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",67)
Line 961: dataBindingExpressionBuilderTarget.Text = System.Convert.ToString( Eval("iLines") , System.Globalization.CultureInfo.CurrentCulture)
Line 962:
Line 963: #End ExternalSource
Line 964: End Sub
Line 965:
Line 966: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 967: Private Function __BuildControl__control16() As Global.System.Web.UI.WebControls.Label
Line 968: Dim __ctrl As Global.System.Web.UI.WebControls.Label
Line 969:
Line 970: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",68)
Line 971: __ctrl = New Global.System.Web.UI.WebControls.Label
Line 972:
Line 973: #End ExternalSource
Line 974: __ctrl.TemplateControl = Me
Line 975: __ctrl.ApplyStyleSheetSkin(Me)
Line 976:
Line 977: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",68)
Line 978: __ctrl.ID = "Label4"
Line 979:
Line 980: #End ExternalSource
Line 981:
Line 982: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",68)
Line 983: AddHandler __ctrl.DataBinding, AddressOf Me.__DataBinding__control16
Line 984:
Line 985: #End ExternalSource
Line 986: Return __ctrl
Line 987: End Function
Line 988:
Line 989: Public Sub __DataBinding__control16(ByVal sender As Object, ByVal e As System.EventArgs)
Line 990: Dim dataBindingExpressionBuilderTarget As System.Web.UI.WebControls.Label
Line 991: Dim Container As System.Web.UI.WebControls.FormView
Line 992: dataBindingExpressionBuilderTarget = CType(sender,System.Web.UI.WebControls.Label)
Line 993: Container = CType(dataBindingExpressionBuilderTarget.BindingContainer,System.Web.UI.WebControls.FormView)
Line 994:
Line 995: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",68)
Line 996: dataBindingExpressionBuilderTarget.Text = System.Convert.ToString( format(Eval("cTotal"), "#0.00") , System.Globalization.CultureInfo.CurrentCulture)
Line 997:
Line 998: #End ExternalSource
Line 999: End Sub
Line 1000:
Line 1001: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1002: Private Function __BuildControl__control17() As Global.System.Web.UI.WebControls.Label
Line 1003: Dim __ctrl As Global.System.Web.UI.WebControls.Label
Line 1004:
Line 1005: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",69)
Line 1006: __ctrl = New Global.System.Web.UI.WebControls.Label
Line 1007:
Line 1008: #End ExternalSource
Line 1009: __ctrl.TemplateControl = Me
Line 1010: __ctrl.ApplyStyleSheetSkin(Me)
Line 1011:
Line 1012: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",69)
Line 1013: __ctrl.ID = "Label3"
Line 1014:
Line 1015: #End ExternalSource
Line 1016:
Line 1017: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",69)
Line 1018: AddHandler __ctrl.DataBinding, AddressOf Me.__DataBinding__control17
Line 1019:
Line 1020: #End ExternalSource
Line 1021: Return __ctrl
Line 1022: End Function
Line 1023:
Line 1024: Public Sub __DataBinding__control17(ByVal sender As Object, ByVal e As System.EventArgs)
Line 1025: Dim dataBindingExpressionBuilderTarget As System.Web.UI.WebControls.Label
Line 1026: Dim Container As System.Web.UI.WebControls.FormView
Line 1027: dataBindingExpressionBuilderTarget = CType(sender,System.Web.UI.WebControls.Label)
Line 1028: Container = CType(dataBindingExpressionBuilderTarget.BindingContainer,System.Web.UI.WebControls.FormView)
Line 1029:
Line 1030: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",69)
Line 1031: dataBindingExpressionBuilderTarget.Text = System.Convert.ToString( format(Eval("cTotal") + Eval("cDel") + Eval("cVDel") + Eval("cRef") + Eval("cVRef"), "#0.00") , System.Globalization.CultureInfo.CurrentCulture)
Line 1032:
Line 1033: #End ExternalSource
Line 1034: End Sub
Line 1035:
Line 1036: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1037: Private Sub __BuildControl__control14(ByVal __ctrl As System.Web.UI.Control)
Line 1038: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 1039:
Line 1040: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",66)
Line 1041: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<TABLE width=""100%""><TBODY><TR><TD>Items</TD><TD style=""TEXT-ALIGN: right"">"))
Line 1042:
Line 1043: #End ExternalSource
Line 1044: Dim __ctrl1 As Global.System.Web.UI.WebControls.Label
Line 1045:
Line 1046: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",66)
Line 1047: __ctrl1 = Me.__BuildControl__control15
Line 1048:
Line 1049: #End ExternalSource
Line 1050:
Line 1051: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",66)
Line 1052: __parser.AddParsedSubObject(__ctrl1)
Line 1053:
Line 1054: #End ExternalSource
Line 1055:
Line 1056: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",66)
Line 1057: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("</TD></TR>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<TR><TD>Goods <span class=""style1"">(exc delivery)</span></TD><TD styl"& _
Line 1058: "e=""TEXT-ALIGN: right"">£"))
Line 1059:
Line 1060: #End ExternalSource
Line 1061: Dim __ctrl2 As Global.System.Web.UI.WebControls.Label
Line 1062:
Line 1063: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",66)
Line 1064: __ctrl2 = Me.__BuildControl__control16
Line 1065:
Line 1066: #End ExternalSource
Line 1067:
Line 1068: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",66)
Line 1069: __parser.AddParsedSubObject(__ctrl2)
Line 1070:
Line 1071: #End ExternalSource
Line 1072:
Line 1073: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",66)
Line 1074: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("</TD></TR>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<TR><TD>Total <span class=""style1"">(inc delivery)</span></TD><TD styl"& _
Line 1075: "e=""TEXT-ALIGN: right"">£"))
Line 1076:
Line 1077: #End ExternalSource
Line 1078: Dim __ctrl3 As Global.System.Web.UI.WebControls.Label
Line 1079:
Line 1080: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",66)
Line 1081: __ctrl3 = Me.__BuildControl__control17
Line 1082:
Line 1083: #End ExternalSource
Line 1084:
Line 1085: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",66)
Line 1086: __parser.AddParsedSubObject(__ctrl3)
Line 1087:
Line 1088: #End ExternalSource
Line 1089:
Line 1090: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",66)
Line 1091: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("</TD></TR>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<TR><TD colspan=""2""><a href=""Basket.aspx"" >My Basket</a></TD></TR></T"& _
Line 1092: "BODY></TABLE>"))
Line 1093:
Line 1094: #End ExternalSource
Line 1095: End Sub
Line 1096:
Line 1097: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1098: Private Function __BuildControlfrvBasketDel() As Global.System.Web.UI.WebControls.FormView
Line 1099: Dim __ctrl As Global.System.Web.UI.WebControls.FormView
Line 1100:
Line 1101: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",66)
Line 1102: __ctrl = New Global.System.Web.UI.WebControls.FormView
Line 1103:
Line 1104: #End ExternalSource
Line 1105: Me.frvBasketDel = __ctrl
Line 1106: __ctrl.ApplyStyleSheetSkin(Me)
Line 1107:
Line 1108: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",66)
Line 1109: __ctrl.ItemTemplate = New System.Web.UI.CompiledBindableTemplateBuilder(AddressOf Me.__BuildControl__control14, Nothing)
Line 1110:
Line 1111: #End ExternalSource
Line 1112:
Line 1113: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",66)
Line 1114: __ctrl.ID = "frvBasketDel"
Line 1115:
Line 1116: #End ExternalSource
Line 1117:
Line 1118: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",66)
Line 1119: __ctrl.DataSourceID = "rstBasketCount"
Line 1120:
Line 1121: #End ExternalSource
Line 1122:
Line 1123: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",66)
Line 1124: __ctrl.EnableViewState = false
Line 1125:
Line 1126: #End ExternalSource
Line 1127:
Line 1128: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",66)
Line 1129: __ctrl.Width = New System.Web.UI.WebControls.Unit(100, System.Web.UI.WebControls.UnitType.Percentage)
Line 1130:
Line 1131: #End ExternalSource
Line 1132: Return __ctrl
Line 1133: End Function
Line 1134:
Line 1135: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1136: Private Function __BuildControl__control19() As Global.System.Web.UI.WebControls.Label
Line 1137: Dim __ctrl As Global.System.Web.UI.WebControls.Label
Line 1138:
Line 1139: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",73)
Line 1140: __ctrl = New Global.System.Web.UI.WebControls.Label
Line 1141:
Line 1142: #End ExternalSource
Line 1143: __ctrl.TemplateControl = Me
Line 1144: __ctrl.ApplyStyleSheetSkin(Me)
Line 1145:
Line 1146: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",73)
Line 1147: __ctrl.ID = "Label2"
Line 1148:
Line 1149: #End ExternalSource
Line 1150:
Line 1151: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",73)
Line 1152: AddHandler __ctrl.DataBinding, AddressOf Me.__DataBinding__control19
Line 1153:
Line 1154: #End ExternalSource
Line 1155: Return __ctrl
Line 1156: End Function
Line 1157:
Line 1158: Public Sub __DataBinding__control19(ByVal sender As Object, ByVal e As System.EventArgs)
Line 1159: Dim dataBindingExpressionBuilderTarget As System.Web.UI.WebControls.Label
Line 1160: Dim Container As System.Web.UI.WebControls.FormView
Line 1161: dataBindingExpressionBuilderTarget = CType(sender,System.Web.UI.WebControls.Label)
Line 1162: Container = CType(dataBindingExpressionBuilderTarget.BindingContainer,System.Web.UI.WebControls.FormView)
Line 1163:
Line 1164: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",73)
Line 1165: dataBindingExpressionBuilderTarget.Text = System.Convert.ToString( Eval("iLines") , System.Globalization.CultureInfo.CurrentCulture)
Line 1166:
Line 1167: #End ExternalSource
Line 1168: End Sub
Line 1169:
Line 1170: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1171: Private Function __BuildControl__control20() As Global.System.Web.UI.WebControls.Label
Line 1172: Dim __ctrl As Global.System.Web.UI.WebControls.Label
Line 1173:
Line 1174: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",74)
Line 1175: __ctrl = New Global.System.Web.UI.WebControls.Label
Line 1176:
Line 1177: #End ExternalSource
Line 1178: __ctrl.TemplateControl = Me
Line 1179: __ctrl.ApplyStyleSheetSkin(Me)
Line 1180:
Line 1181: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",74)
Line 1182: __ctrl.ID = "Label4"
Line 1183:
Line 1184: #End ExternalSource
Line 1185:
Line 1186: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",74)
Line 1187: AddHandler __ctrl.DataBinding, AddressOf Me.__DataBinding__control20
Line 1188:
Line 1189: #End ExternalSource
Line 1190: Return __ctrl
Line 1191: End Function
Line 1192:
Line 1193: Public Sub __DataBinding__control20(ByVal sender As Object, ByVal e As System.EventArgs)
Line 1194: Dim dataBindingExpressionBuilderTarget As System.Web.UI.WebControls.Label
Line 1195: Dim Container As System.Web.UI.WebControls.FormView
Line 1196: dataBindingExpressionBuilderTarget = CType(sender,System.Web.UI.WebControls.Label)
Line 1197: Container = CType(dataBindingExpressionBuilderTarget.BindingContainer,System.Web.UI.WebControls.FormView)
Line 1198:
Line 1199: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",74)
Line 1200: dataBindingExpressionBuilderTarget.Text = System.Convert.ToString( format(Eval("cTotal"), "#0.00") , System.Globalization.CultureInfo.CurrentCulture)
Line 1201:
Line 1202: #End ExternalSource
Line 1203: End Sub
Line 1204:
Line 1205: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1206: Private Sub __BuildControl__control18(ByVal __ctrl As System.Web.UI.Control)
Line 1207: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 1208:
Line 1209: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",72)
Line 1210: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<TABLE width=""100%""><TBODY><TR><TD>Items</TD><TD style=""TEXT-ALIGN: right"">"))
Line 1211:
Line 1212: #End ExternalSource
Line 1213: Dim __ctrl1 As Global.System.Web.UI.WebControls.Label
Line 1214:
Line 1215: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",72)
Line 1216: __ctrl1 = Me.__BuildControl__control19
Line 1217:
Line 1218: #End ExternalSource
Line 1219:
Line 1220: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",72)
Line 1221: __parser.AddParsedSubObject(__ctrl1)
Line 1222:
Line 1223: #End ExternalSource
Line 1224:
Line 1225: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",72)
Line 1226: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("</TD></TR>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<TR><TD>Total</TD><TD style=""TEXT-ALIGN: right"">£"))
Line 1227:
Line 1228: #End ExternalSource
Line 1229: Dim __ctrl2 As Global.System.Web.UI.WebControls.Label
Line 1230:
Line 1231: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",72)
Line 1232: __ctrl2 = Me.__BuildControl__control20
Line 1233:
Line 1234: #End ExternalSource
Line 1235:
Line 1236: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",72)
Line 1237: __parser.AddParsedSubObject(__ctrl2)
Line 1238:
Line 1239: #End ExternalSource
Line 1240:
Line 1241: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",72)
Line 1242: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl("</TD></TR>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<TR><TD colspan=""2""><a href=""Basket.aspx"" >My Basket</a></TD></TR></T"& _
Line 1243: "BODY></TABLE>"))
Line 1244:
Line 1245: #End ExternalSource
Line 1246: End Sub
Line 1247:
Line 1248: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1249: Private Function __BuildControlfrvBasketCol() As Global.System.Web.UI.WebControls.FormView
Line 1250: Dim __ctrl As Global.System.Web.UI.WebControls.FormView
Line 1251:
Line 1252: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",72)
Line 1253: __ctrl = New Global.System.Web.UI.WebControls.FormView
Line 1254:
Line 1255: #End ExternalSource
Line 1256: Me.frvBasketCol = __ctrl
Line 1257: __ctrl.ApplyStyleSheetSkin(Me)
Line 1258:
Line 1259: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",72)
Line 1260: __ctrl.ItemTemplate = New System.Web.UI.CompiledBindableTemplateBuilder(AddressOf Me.__BuildControl__control18, Nothing)
Line 1261:
Line 1262: #End ExternalSource
Line 1263:
Line 1264: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",72)
Line 1265: __ctrl.ID = "frvBasketCol"
Line 1266:
Line 1267: #End ExternalSource
Line 1268:
Line 1269: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",72)
Line 1270: __ctrl.DataSourceID = "rstBasketCount"
Line 1271:
Line 1272: #End ExternalSource
Line 1273:
Line 1274: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",72)
Line 1275: __ctrl.EnableViewState = false
Line 1276:
Line 1277: #End ExternalSource
Line 1278:
Line 1279: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",72)
Line 1280: __ctrl.Width = New System.Web.UI.WebControls.Unit(100, System.Web.UI.WebControls.UnitType.Percentage)
Line 1281:
Line 1282: #End ExternalSource
Line 1283:
Line 1284: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",72)
Line 1285: __ctrl.Visible = false
Line 1286:
Line 1287: #End ExternalSource
Line 1288: Return __ctrl
Line 1289: End Function
Line 1290:
Line 1291: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1292: Private Function __BuildControl__control22() As Global.System.Web.UI.WebControls.CookieParameter
Line 1293: Dim __ctrl As Global.System.Web.UI.WebControls.CookieParameter
Line 1294:
Line 1295: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",79)
Line 1296: __ctrl = New Global.System.Web.UI.WebControls.CookieParameter
Line 1297:
Line 1298: #End ExternalSource
Line 1299:
Line 1300: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",79)
Line 1301: __ctrl.Type = System.TypeCode.Int32
Line 1302:
Line 1303: #End ExternalSource
Line 1304:
Line 1305: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",79)
Line 1306: __ctrl.DefaultValue = "0"
Line 1307:
Line 1308: #End ExternalSource
Line 1309:
Line 1310: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",79)
Line 1311: __ctrl.Name = "CompID"
Line 1312:
Line 1313: #End ExternalSource
Line 1314:
Line 1315: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",79)
Line 1316: __ctrl.CookieName = "iCompID"
Line 1317:
Line 1318: #End ExternalSource
Line 1319: Return __ctrl
Line 1320: End Function
Line 1321:
Line 1322: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1323: Private Function __BuildControl__control23() As Global.System.Web.UI.WebControls.Parameter
Line 1324: Dim __ctrl As Global.System.Web.UI.WebControls.Parameter
Line 1325:
Line 1326: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",80)
Line 1327: __ctrl = New Global.System.Web.UI.WebControls.Parameter
Line 1328:
Line 1329: #End ExternalSource
Line 1330:
Line 1331: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",80)
Line 1332: __ctrl.Type = System.TypeCode.Int32
Line 1333:
Line 1334: #End ExternalSource
Line 1335:
Line 1336: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",80)
Line 1337: __ctrl.Direction = System.Data.ParameterDirection.ReturnValue
Line 1338:
Line 1339: #End ExternalSource
Line 1340:
Line 1341: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",80)
Line 1342: __ctrl.Name = "RETURN_VALUE"
Line 1343:
Line 1344: #End ExternalSource
Line 1345: Return __ctrl
Line 1346: End Function
Line 1347:
Line 1348: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1349: Private Function __BuildControl__control24() As Global.System.Web.UI.WebControls.CookieParameter
Line 1350: Dim __ctrl As Global.System.Web.UI.WebControls.CookieParameter
Line 1351:
Line 1352: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",81)
Line 1353: __ctrl = New Global.System.Web.UI.WebControls.CookieParameter
Line 1354:
Line 1355: #End ExternalSource
Line 1356:
Line 1357: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",81)
Line 1358: __ctrl.Type = System.TypeCode.Int32
Line 1359:
Line 1360: #End ExternalSource
Line 1361:
Line 1362: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",81)
Line 1363: __ctrl.DefaultValue = "0"
Line 1364:
Line 1365: #End ExternalSource
Line 1366:
Line 1367: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",81)
Line 1368: __ctrl.Name = "UserID"
Line 1369:
Line 1370: #End ExternalSource
Line 1371:
Line 1372: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",81)
Line 1373: __ctrl.CookieName = "iUserID"
Line 1374:
Line 1375: #End ExternalSource
Line 1376: Return __ctrl
Line 1377: End Function
Line 1378:
Line 1379: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1380: Private Sub __BuildControl__control21(ByVal __ctrl As System.Web.UI.WebControls.ParameterCollection)
Line 1381: Dim __ctrl1 As Global.System.Web.UI.WebControls.CookieParameter
Line 1382:
Line 1383: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",77)
Line 1384: __ctrl1 = Me.__BuildControl__control22
Line 1385:
Line 1386: #End ExternalSource
Line 1387:
Line 1388: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",77)
Line 1389: __ctrl.Add(__ctrl1)
Line 1390:
Line 1391: #End ExternalSource
Line 1392: Dim __ctrl2 As Global.System.Web.UI.WebControls.Parameter
Line 1393:
Line 1394: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",77)
Line 1395: __ctrl2 = Me.__BuildControl__control23
Line 1396:
Line 1397: #End ExternalSource
Line 1398:
Line 1399: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",77)
Line 1400: __ctrl.Add(__ctrl2)
Line 1401:
Line 1402: #End ExternalSource
Line 1403: Dim __ctrl3 As Global.System.Web.UI.WebControls.CookieParameter
Line 1404:
Line 1405: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",77)
Line 1406: __ctrl3 = Me.__BuildControl__control24
Line 1407:
Line 1408: #End ExternalSource
Line 1409:
Line 1410: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",77)
Line 1411: __ctrl.Add(__ctrl3)
Line 1412:
Line 1413: #End ExternalSource
Line 1414: End Sub
Line 1415:
Line 1416: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1417: Private Function __BuildControlrstBasketCount() As Global.System.Web.UI.WebControls.SqlDataSource
Line 1418: Dim __ctrl As Global.System.Web.UI.WebControls.SqlDataSource
Line 1419:
Line 1420: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",77)
Line 1421: __ctrl = New Global.System.Web.UI.WebControls.SqlDataSource
Line 1422:
Line 1423: #End ExternalSource
Line 1424: Me.rstBasketCount = __ctrl
Line 1425:
Line 1426: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",77)
Line 1427: __ctrl.ID = "rstBasketCount"
Line 1428:
Line 1429: #End ExternalSource
Line 1430:
Line 1431: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",77)
Line 1432: __ctrl.SelectCommand = "vtg_spBasketValueIncDelivery"
Line 1433:
Line 1434: #End ExternalSource
Line 1435:
Line 1436: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",77)
Line 1437: __ctrl.SelectCommandType = System.Web.UI.WebControls.SqlDataSourceCommandType.StoredProcedure
Line 1438:
Line 1439: #End ExternalSource
Line 1440:
Line 1441: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",77)
Line 1442: Me.__BuildControl__control21(__ctrl.SelectParameters)
Line 1443:
Line 1444: #End ExternalSource
Line 1445: __ctrl.ConnectionString = System.Convert.ToString(System.Web.Compilation.ConnectionStringsExpressionBuilder.GetConnectionString("interarcConnectionString"), System.Globalization.CultureInfo.CurrentCulture)
Line 1446: Return __ctrl
Line 1447: End Function
Line 1448:
Line 1449: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1450: Private Function __BuildControl__control26() As Global.System.Web.UI.WebControls.HyperLink
Line 1451: Dim __ctrl As Global.System.Web.UI.WebControls.HyperLink
Line 1452:
Line 1453: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",89)
Line 1454: __ctrl = New Global.System.Web.UI.WebControls.HyperLink
Line 1455:
Line 1456: #End ExternalSource
Line 1457: __ctrl.TemplateControl = Me
Line 1458: __ctrl.ApplyStyleSheetSkin(Me)
Line 1459:
Line 1460: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",89)
Line 1461: __ctrl.ID = "HyperLink1"
Line 1462:
Line 1463: #End ExternalSource
Line 1464:
Line 1465: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",89)
Line 1466: AddHandler __ctrl.DataBinding, AddressOf Me.__DataBinding__control26
Line 1467:
Line 1468: #End ExternalSource
Line 1469: Return __ctrl
Line 1470: End Function
Line 1471:
Line 1472: Public Sub __DataBinding__control26(ByVal sender As Object, ByVal e As System.EventArgs)
Line 1473: Dim dataBindingExpressionBuilderTarget As System.Web.UI.WebControls.HyperLink
Line 1474: Dim Container As System.Web.UI.WebControls.DataListItem
Line 1475: dataBindingExpressionBuilderTarget = CType(sender,System.Web.UI.WebControls.HyperLink)
Line 1476: Container = CType(dataBindingExpressionBuilderTarget.BindingContainer,System.Web.UI.WebControls.DataListItem)
Line 1477:
Line 1478: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",89)
Line 1479: dataBindingExpressionBuilderTarget.NavigateUrl = System.Convert.ToString( "~/details.aspx?PID=" & Eval("ProdID") , System.Globalization.CultureInfo.CurrentCulture)
Line 1480:
Line 1481: #End ExternalSource
Line 1482:
Line 1483: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",89)
Line 1484: dataBindingExpressionBuilderTarget.Text = System.Convert.ToString( Eval("sProductName") , System.Globalization.CultureInfo.CurrentCulture)
Line 1485:
Line 1486: #End ExternalSource
Line 1487: End Sub
Line 1488:
Line 1489: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1490: Private Sub __BuildControl__control25(ByVal __ctrl As System.Web.UI.Control)
Line 1491: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 1492:
Line 1493: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",87)
Line 1494: __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)))
Line 1495:
Line 1496: #End ExternalSource
Line 1497: Dim __ctrl1 As Global.System.Web.UI.WebControls.HyperLink
Line 1498:
Line 1499: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",87)
Line 1500: __ctrl1 = Me.__BuildControl__control26
Line 1501:
Line 1502: #End ExternalSource
Line 1503:
Line 1504: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",87)
Line 1505: __parser.AddParsedSubObject(__ctrl1)
Line 1506:
Line 1507: #End ExternalSource
Line 1508:
Line 1509: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",87)
Line 1510: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Line 1511:
Line 1512: #End ExternalSource
Line 1513: End Sub
Line 1514:
Line 1515: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1516: Private Function __BuildControlDataList3() As Global.System.Web.UI.WebControls.DataList
Line 1517: Dim __ctrl As Global.System.Web.UI.WebControls.DataList
Line 1518:
Line 1519: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",87)
Line 1520: __ctrl = New Global.System.Web.UI.WebControls.DataList
Line 1521:
Line 1522: #End ExternalSource
Line 1523: Me.DataList3 = __ctrl
Line 1524: __ctrl.ApplyStyleSheetSkin(Me)
Line 1525:
Line 1526: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",87)
Line 1527: __ctrl.ItemTemplate = New System.Web.UI.CompiledTemplateBuilder(AddressOf Me.__BuildControl__control25)
Line 1528:
Line 1529: #End ExternalSource
Line 1530:
Line 1531: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",87)
Line 1532: __ctrl.ID = "DataList3"
Line 1533:
Line 1534: #End ExternalSource
Line 1535:
Line 1536: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",87)
Line 1537: __ctrl.DataSourceID = "rstTopTenSellers"
Line 1538:
Line 1539: #End ExternalSource
Line 1540:
Line 1541: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",87)
Line 1542: __ctrl.Width = New System.Web.UI.WebControls.Unit(100, System.Web.UI.WebControls.UnitType.Percentage)
Line 1543:
Line 1544: #End ExternalSource
Line 1545: Return __ctrl
Line 1546: End Function
Line 1547:
Line 1548: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1549: Private Function __BuildControlrstTopTenSellers() As Global.System.Web.UI.WebControls.SqlDataSource
Line 1550: Dim __ctrl As Global.System.Web.UI.WebControls.SqlDataSource
Line 1551:
Line 1552: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",92)
Line 1553: __ctrl = New Global.System.Web.UI.WebControls.SqlDataSource
Line 1554:
Line 1555: #End ExternalSource
Line 1556: Me.rstTopTenSellers = __ctrl
Line 1557:
Line 1558: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",92)
Line 1559: __ctrl.ID = "rstTopTenSellers"
Line 1560:
Line 1561: #End ExternalSource
Line 1562:
Line 1563: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",92)
Line 1564: __ctrl.SelectCommand = "SELECT TOP 10 vtg_tblOrderItemList.ProdID, vtg_tblProdList.sProductName FROM vtg_"& _
Line 1565: "tblOrderHeadList INNER JOIN vtg_tblOrderItemList ON vtg_tblOrderHeadList.OrderHe"& _
Line 1566: "adID = vtg_tblOrderItemList.OrderHeadID INNER JOIN vtg_tblProdList ON vtg_tblOrd"& _
Line 1567: "erItemList.ProdID = vtg_tblProdList.ID WHERE (vtg_tblOrderHeadList.dCreated > GE"& _
Line 1568: "TDATE() - 30) AND (vtg_tblProdList.iVisible = 1) GROUP BY vtg_tblOrderItemList.P"& _
Line 1569: "rodID, vtg_tblProdList.sProductName ORDER BY SUM(vtg_tblOrderItemList.iQuant) DE"& _
Line 1570: "SC"
Line 1571:
Line 1572: #End ExternalSource
Line 1573: __ctrl.ConnectionString = System.Convert.ToString(System.Web.Compilation.ConnectionStringsExpressionBuilder.GetConnectionString("interarcConnectionString"), System.Globalization.CultureInfo.CurrentCulture)
Line 1574: Return __ctrl
Line 1575: End Function
Line 1576:
Line 1577: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1578: Private Function __BuildControlSqlDataSource3() As Global.System.Web.UI.WebControls.SqlDataSource
Line 1579: Dim __ctrl As Global.System.Web.UI.WebControls.SqlDataSource
Line 1580:
Line 1581: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",111)
Line 1582: __ctrl = New Global.System.Web.UI.WebControls.SqlDataSource
Line 1583:
Line 1584: #End ExternalSource
Line 1585: Me.SqlDataSource3 = __ctrl
Line 1586:
Line 1587: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",111)
Line 1588: __ctrl.ID = "SqlDataSource3"
Line 1589:
Line 1590: #End ExternalSource
Line 1591:
Line 1592: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",111)
Line 1593: __ctrl.SelectCommand = "SELECT [ID], [sName] FROM [vtg_tblCategoryList]"
Line 1594:
Line 1595: #End ExternalSource
Line 1596: __ctrl.ConnectionString = System.Convert.ToString(System.Web.Compilation.ConnectionStringsExpressionBuilder.GetConnectionString("interarcConnectionString"), System.Globalization.CultureInfo.CurrentCulture)
Line 1597: Return __ctrl
Line 1598: End Function
Line 1599:
Line 1600: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Line 1601: Private Function __BuildControlform2() As Global.System.Web.UI.HtmlControls.HtmlForm
Line 1602: Dim __ctrl As Global.System.Web.UI.HtmlControls.HtmlForm
Line 1603:
Line 1604: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",60)
Line 1605: __ctrl = New Global.System.Web.UI.HtmlControls.HtmlForm
Line 1606:
Line 1607: #End ExternalSource
Line 1608: Me.form2 = __ctrl
Line 1609:
Line 1610: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",60)
Line 1611: __ctrl.ID = "form2"
Line 1612:
Line 1613: #End ExternalSource
Line 1614: Dim __ctrl1 As Global.System.Web.UI.WebControls.TextBox
Line 1615:
Line 1616: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",60)
Line 1617: __ctrl1 = Me.__BuildControltxtEM
Line 1618:
Line 1619: #End ExternalSource
Line 1620: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Line 1621:
Line 1622: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",60)
Line 1623: __parser.AddParsedSubObject(__ctrl1)
Line 1624:
Line 1625: #End ExternalSource
Line 1626: Dim __ctrl2 As Global.System.Web.UI.WebControls.TextBox
Line 1627:
Line 1628: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",60)
Line 1629: __ctrl2 = Me.__BuildControltxtPC
Line 1630:
Line 1631: #End ExternalSource
Line 1632:
Line 1633: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",60)
Line 1634: __parser.AddParsedSubObject(__ctrl2)
Line 1635:
Line 1636: #End ExternalSource
Line 1637: Dim __ctrl3 As Global.System.Web.UI.WebControls.CheckBoxList
Line 1638:
Line 1639: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",60)
Line 1640: __ctrl3 = Me.__BuildControlNewsletterChoices
Line 1641:
Line 1642: #End ExternalSource
Line 1643:
Line 1644: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",60)
Line 1645: __parser.AddParsedSubObject(__ctrl3)
Line 1646:
Line 1647: #End ExternalSource
Line 1648: Dim __ctrl4 As Global.System.Web.UI.WebControls.ImageButton
Line 1649:
Line 1650: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",60)
Line 1651: __ctrl4 = Me.__BuildControlbtnSubscribe
Line 1652:
Line 1653: #End ExternalSource
Line 1654:
Line 1655: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",60)
Line 1656: __parser.AddParsedSubObject(__ctrl4)
Line 1657:
Line 1658: #End ExternalSource
Line 1659: Dim __ctrl5 As Global.System.Web.UI.HtmlControls.HtmlInputHidden
Line 1660:
Line 1661: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",60)
Line 1662: __ctrl5 = Me.__BuildControlcmdSubscribe
Line 1663:
Line 1664: #End ExternalSource
Line 1665:
Line 1666: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",60)
Line 1667: __parser.AddParsedSubObject(__ctrl5)
Line 1668:
Line 1669: #End ExternalSource
Line 1670: Dim __ctrl6 As Global.System.Web.UI.WebControls.FormView
Line 1671:
Line 1672: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",60)
Line 1673: __ctrl6 = Me.__BuildControlfrvBasketDel
Line 1674:
Line 1675: #End ExternalSource
Line 1676:
Line 1677: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",60)
Line 1678: __parser.AddParsedSubObject(__ctrl6)
Line 1679:
Line 1680: #End ExternalSource
Line 1681: Dim __ctrl7 As Global.System.Web.UI.WebControls.FormView
Line 1682:
Line 1683: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",60)
Line 1684: __ctrl7 = Me.__BuildControlfrvBasketCol
Line 1685:
Line 1686: #End ExternalSource
Line 1687:
Line 1688: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",60)
Line 1689: __parser.AddParsedSubObject(__ctrl7)
Line 1690:
Line 1691: #End ExternalSource
Line 1692: Dim __ctrl8 As Global.System.Web.UI.WebControls.SqlDataSource
Line 1693:
Line 1694: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",60)
Line 1695: __ctrl8 = Me.__BuildControlrstBasketCount
Line 1696:
Line 1697: #End ExternalSource
Line 1698:
Line 1699: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",60)
Line 1700: __parser.AddParsedSubObject(__ctrl8)
Line 1701:
Line 1702: #End ExternalSource
Line 1703: Dim __ctrl9 As Global.System.Web.UI.WebControls.DataList
Line 1704:
Line 1705: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",60)
Line 1706: __ctrl9 = Me.__BuildControlDataList3
Line 1707:
Line 1708: #End ExternalSource
Line 1709:
Line 1710: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",60)
Line 1711: __parser.AddParsedSubObject(__ctrl9)
Line 1712:
Line 1713: #End ExternalSource
Line 1714: Dim __ctrl10 As Global.System.Web.UI.WebControls.SqlDataSource
Line 1715:
Line 1716: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",60)
Line 1717: __ctrl10 = Me.__BuildControlrstTopTenSellers
Line 1718:
Line 1719: #End ExternalSource
Line 1720:
Line 1721: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",60)
Line 1722: __parser.AddParsedSubObject(__ctrl10)
Line 1723:
Line 1724: #End ExternalSource
Line 1725: Dim __ctrl11 As Global.System.Web.UI.WebControls.SqlDataSource
Line 1726:
Line 1727: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",60)
Line 1728: __ctrl11 = Me.__BuildControlSqlDataSource3
Line 1729:
Line 1730: #End ExternalSource
Line 1731:
Line 1732: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\Subscribe.aspx",60)
Line 1733: __parser.AddParsedSubObject(__ctrl11)
Line 1734:
Line 1735: #End ExternalSource
Line 1736: __ctrl.SetRenderMethodDelegate(AddressOf Me.__Renderform2)
Line 1737: Return __ctrl
Line 1738: End Function
Line 1739:
Line 1740: Private Sub __Renderform2(ByVal __w As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line 1741: Me.WriteUTF8ResourceString(__w, 35387, 377, true)
Line 1742: parameterContainer.Controls(0).RenderControl(__w)
Line 1743: __w.Write("</td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <td></td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 1744: " Your PostCode</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 1745: " <td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 1746: parameterContainer.Controls(1).RenderControl(__w)
Line 1747: __w.Write("</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)&" </tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 1748: " <td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" Your Interests</td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </t"& _
Line 1749: "d>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 1750: parameterContainer.Controls(2).RenderControl(__w)
Line 1751: __w.Write(""&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)&" </td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
Line 1752: "<tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <td colspan=""3"" align=""center"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 1753: parameterContainer.Controls(3).RenderControl(__w)
Line 1754: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 1755: parameterContainer.Controls(4).RenderControl(__w)
Line 1756: __w.Write(""&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)&" </td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </ta"& _
Line 1757: "ble>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </div>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 1758: Me.WriteUTF8ResourceString(__w, 35764, 421, true)
Line 1759:
Line 1760: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\right.aspx",21)
Line 1761: If Request.Cookies("iUserID") Is Nothing Then
Line 1762:
Line 1763: #End ExternalSource
Line 1764: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<h1>My Account</h1>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<table width=""100%"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <td><a href="""& _
Line 1765: "LogIn.aspx"">Log In / Register</a></td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</table>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))
Line 1766:
Line 1767: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\right.aspx",30)
Line 1768: Else
Line 1769:
Line 1770: #End ExternalSource
Line 1771: __w.Write(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<h1>My Account</h1>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<table width=""100%"">"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <td>User = ")
Line 1772:
Line 1773: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\right.aspx",35)
Line 1774: __w.Write(Request.Cookies("sUserName").Value)
Line 1775:
Line 1776:
Line 1777: #End ExternalSource
Line 1778: __w.Write("</td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <td><a href=""home.aspx?LogOut=YES"">Log Out</a"& _
Line 1779: "></td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <tr>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <td><a href=""Account1.aspx"">My Account</a><"& _
Line 1780: "/td>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </tr> "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ")
Line 1781:
Line 1782: #ExternalSource("\\NAS40ENT\domains\v\vet2go.co.uk\user\htdocs\right.aspx",43)
Line 1783: If Request.Cookies("iUserID").Value = 1 Then
Li |