Line 1: '------------------------------------------------------------------------------
Line 2: ' <autogenerated>
Line 3: ' This code was generated by a tool.
Line 4: ' Runtime Version: 1.1.4322.2407
Line 5: '
Line 6: ' Changes to this file may cause incorrect behavior and will be lost if
Line 7: ' the code is regenerated.
Line 8: ' </autogenerated>
Line 9: '------------------------------------------------------------------------------
Line 10:
Line 11: Option Strict Off
Line 12: Option Explicit On
Line 13:
Line 14: Imports Microsoft.VisualBasic
Line 15: Imports System
Line 16: Imports System.Collections
Line 17: Imports System.Collections.Specialized
Line 18: Imports System.Configuration
Line 19: Imports System.Text
Line 20: Imports System.Text.RegularExpressions
Line 21: Imports System.Web
Line 22: Imports System.Web.Caching
Line 23: Imports System.Web.Security
Line 24: Imports System.Web.SessionState
Line 25: Imports System.Web.UI
Line 26: Imports System.Web.UI.HtmlControls
Line 27: Imports System.Web.UI.WebControls
Line 28:
Line 29: Namespace ASP
Line 30:
Line 31: Public Class contact_us_aspx
Line 32: Inherits System.Web.UI.Page
Line 33: Implements System.Web.SessionState.IRequiresSessionState
Line 34:
Line 35: Private Shared __initialized As Boolean = false
Line 36:
Line 37: Private Shared __stringResource As Object
Line 38:
Line 39: Private Shared __fileDependencies As System.Collections.ArrayList
Line 40:
Line 41: Public Sub New()
Line 42: MyBase.New
Line 43: Dim dependencies As System.Collections.ArrayList
Line 44: If (ASP.contact_us_aspx.__initialized = false) Then
Line 45: ASP.contact_us_aspx.__stringResource = System.Web.UI.TemplateControl.ReadStringResource(GetType(ASP.contact_us_aspx))
Line 46: dependencies = New System.Collections.ArrayList
Line 47: dependencies.Add("E:\Inetpub\wwwrootdomain\DM10\palatek\include\navigation.asp")
Line 48: dependencies.Add("E:\Inetpub\wwwrootdomain\DM10\palatek\include\header_global.asp")
Line 49: dependencies.Add("E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx")
Line 50: dependencies.Add("E:\Inetpub\wwwrootdomain\DM10\palatek\include\subnav_global.asp")
Line 51: dependencies.Add("E:\Inetpub\wwwrootdomain\DM10\palatek\include\footer.asp")
Line 52: ASP.contact_us_aspx.__fileDependencies = dependencies
Line 53: ASP.contact_us_aspx.__initialized = true
Line 54: End If
Line 55: End Sub
Line 56:
Line 57: Protected Overrides ReadOnly Property SupportAutoEvents As Boolean
Line 58: Get
Line 59: Return false
Line 60: End Get
Line 61: End Property
Line 62:
Line 63: Protected ReadOnly Property ApplicationInstance As System.Web.HttpApplication
Line 64: Get
Line 65: Return CType(Me.Context.ApplicationInstance,System.Web.HttpApplication)
Line 66: End Get
Line 67: End Property
Line 68:
Line 69: Public Overrides ReadOnly Property TemplateSourceDirectory As String
Line 70: Get
Line 71: Return "/"
Line 72: End Get
Line 73: End Property
Line 74:
Line 75: Private Sub __BuildControlTree(ByVal __ctrl As System.Web.UI.Control)
Line 76: __ctrl.SetRenderMethodDelegate(AddressOf Me.__Render__control1)
Line 77: End Sub
Line 78:
Line 79: Private Sub __Render__control1(ByVal __output As System.Web.UI.HtmlTextWriter, ByVal parameterContainer As System.Web.UI.Control)
Line 80: __output.Write("<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"<html>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"<head>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&"<title>| Sullivan-Palatek | Contact Us</title>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&"<link rel=""stylesheet"" type="""& _
Line 81: "text/css"" href=""text.css"">"&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&"<script type=""text/javascript"" src=""anylink.js""></"& _
Line 82: "script>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9))
Line 83:
Line 84: #ExternalSource("E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx",8)
Line 85:
Line 86: 'On Error Resume Next
Line 87: response.Buffer =true
Line 88: Page_OnLoad
Line 89:
Line 90:
Line 91:
Line 92:
Line 93: #End ExternalSource
Line 94: Me.WriteUTF8ResourceString(__output, 0, 912, true)
Line 95: Me.WriteUTF8ResourceString(__output, 912, 1647, true)
Line 96: __output.Write("</td></tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&"<tr valign=""top""><td>")
Line 97: Me.WriteUTF8ResourceString(__output, 2559, 1897, true)
Line 98: __output.Write("</td></tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&"<tr valign=""top"" class=""globalBG"" height=""33""><td>")
Line 99: Me.WriteUTF8ResourceString(__output, 4456, 1269, true)
Line 100: Me.WriteUTF8ResourceString(__output, 5725, 784, true)
Line 101:
Line 102: #ExternalSource("E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx",39)
Line 103: __output.Write(cErrMessage)
Line 104:
Line 105: #End ExternalSource
Line 106: Me.WriteUTF8ResourceString(__output, 6509, 267, true)
Line 107:
Line 108: #ExternalSource("E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx",46)
Line 109: __output.Write(SafeHTMLEncode(cName))
Line 110:
Line 111: #End ExternalSource
Line 112: __output.Write("""></td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"</tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<tr valign=""top"">"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)& _
Line 113: ""&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<td><div align=""left""><font>Last Name</font></div>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"</td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)& _
Line 114: ""&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<td><input type=""text"" name=""Lastname"" size=""40"" ID=""Text2"" value=""")
Line 115:
Line 116: #ExternalSource("E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx",52)
Line 117: __output.Write(SafeHTMLEncode(cLName))
Line 118:
Line 119: #End ExternalSource
Line 120: __output.Write("""></td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"</tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<tr valign=""top"""& _
Line 121: ">"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<td><div align=""left""><font>Company</font></div>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"</t"& _
Line 122: "d>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<td><input type=""text"" name=""company"" size=""40"" ID=""Text3"" value"& _
Line 123: "=""")
Line 124:
Line 125: #ExternalSource("E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx",59)
Line 126: __output.Write(SafeHTMLEncode(cCompany))
Line 127:
Line 128: #End ExternalSource
Line 129: __output.Write("""></td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"</tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<td><div al"& _
Line 130: "ign=""left""><font>Address</font></div>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"</td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<td><input"& _
Line 131: " type=""text"" name=""address"" size=""40"" ID=""Text4"" value=""")
Line 132:
Line 133: #ExternalSource("E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx",65)
Line 134: __output.Write(SafeHTMLEncode(caddress))
Line 135:
Line 136: #End ExternalSource
Line 137: Me.WriteUTF8ResourceString(__output, 6776, 13451, true)
Line 138:
Line 139: #ExternalSource("E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx",293)
Line 140: __output.Write(SafeHTMLEncode(ccity))
Line 141:
Line 142: #End ExternalSource
Line 143: __output.Write("""></td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"</tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<td><div align=""left""><fo"& _
Line 144: "nt>State</font></div>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"</td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<input t"& _
Line 145: "ype=""text"" name=""state"" size=""40"" ID=""Text10"" value=""")
Line 146:
Line 147: #ExternalSource("E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx",299)
Line 148: __output.Write(SafeHTMLEncode(cstate))
Line 149:
Line 150: #End ExternalSource
Line 151: __output.Write(""">"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"</td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"</tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<td><div al"& _
Line 152: "ign=""left""><font>Zip</font></div>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"</td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<td><input typ"& _
Line 153: "e=""text"" name=""zip"" size=""40"" ID=""Text6"" value=""")
Line 154:
Line 155: #ExternalSource("E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx",305)
Line 156: __output.Write(SafeHTMLEncode(czip))
Line 157:
Line 158: #End ExternalSource
Line 159: __output.Write("""></td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"</tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<td><div ali"& _
Line 160: "gn=""left""><font>Phone</font></div>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"</td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<td><input ty"& _
Line 161: "pe=""text"" name=""phone"" size=""40"" ID=""Text7"" value=""")
Line 162:
Line 163: #ExternalSource("E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx",311)
Line 164: __output.Write(SafeHTMLEncode(cphone))
Line 165:
Line 166: #End ExternalSource
Line 167: __output.Write("""></td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"</tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<tr><td><div align=""left""><font>Fax</font><"& _
Line 168: "/div></td>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<td><input type=""text"" name=""fax"" size=""40"" ID=""Text8"" v"& _
Line 169: "alue=""")
Line 170:
Line 171: #ExternalSource("E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx",314)
Line 172: __output.Write(SafeHTMLEncode(cfax))
Line 173:
Line 174: #End ExternalSource
Line 175: __output.Write(""" ></td></tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<tr><td><div align=""left""><font>Email*</font></div></td"& _
Line 176: ">"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<td><input type=""text"" name=""email"" size=""40"" ID=""Text9"" value=""")
Line 177:
Line 178: #ExternalSource("E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx",316)
Line 179: __output.Write(SafeHTMLEncode(cemail))
Line 180:
Line 181: #End ExternalSource
Line 182: Me.WriteUTF8ResourceString(__output, 20227, 1187, true)
Line 183:
Line 184: #ExternalSource("E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx",334)
Line 185: __output.Write(cat2)
Line 186:
Line 187: #End ExternalSource
Line 188: __output.Write(""" size=""23"" class=""input"" ID=""Checkbox3"">"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<font>")
Line 189:
Line 190: #ExternalSource("E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx",335)
Line 191: __output.Write(cat2)
Line 192:
Line 193: #End ExternalSource
Line 194: __output.Write("</font></label></tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<tr><td valign=""top"" colspan=""2"">"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)& _
Line 195: ""&Microsoft.VisualBasic.ChrW(9)&"<label><input type=""checkbox"" name=""Inquiry"" size=""23"" value=""")
Line 196:
Line 197: #ExternalSource("E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx",337)
Line 198: __output.Write(cat3)
Line 199:
Line 200: #End ExternalSource
Line 201: __output.Write(""" class=""input"" ID=""Checkbox5"">"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<font>")
Line 202:
Line 203: #ExternalSource("E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx",338)
Line 204: __output.Write(cat3)
Line 205:
Line 206: #End ExternalSource
Line 207: __output.Write("</font></label></td></tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<tr><td valign=""top"" colspan=""2"">"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)& _
Line 208: ""&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<label><input type=""checkbox"" name=""Inquiry"" size=""23"" value=""")
Line 209:
Line 210: #ExternalSource("E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx",340)
Line 211: __output.Write(cat4)
Line 212:
Line 213: #End ExternalSource
Line 214: __output.Write(""" class=""input"" ID=""Checkbox6"">"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<font>")
Line 215:
Line 216: #ExternalSource("E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx",341)
Line 217: __output.Write(cat4)
Line 218:
Line 219: #End ExternalSource
Line 220: __output.Write("</font></label></td></tr>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<tr><td valign=""top"" colspan=""2"">"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)& _
Line 221: ""&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<label><input type=""checkbox"" name=""Inquiry"" size=""23"" value=""")
Line 222:
Line 223: #ExternalSource("E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx",343)
Line 224: __output.Write(cat5)
Line 225:
Line 226: #End ExternalSource
Line 227: __output.Write(""" class=""input"" ID=""Checkbox6"">"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&Microsoft.VisualBasic.ChrW(9)&"<font>")
Line 228:
Line 229: #ExternalSource("E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx",344)
Line 230: __output.Write(cat5)
Line 231:
Line 232: #End ExternalSource
Line 233: Me.WriteUTF8ResourceString(__output, 21414, 290, true)
Line 234:
Line 235: #ExternalSource("E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx",351)
Line 236: __output.Write(SafeHTMLEncode(cMessage))
Line 237:
Line 238: #End ExternalSource
Line 239: Me.WriteUTF8ResourceString(__output, 21704, 1196, true)
Line 240: Me.WriteUTF8ResourceString(__output, 22900, 684, true)
Line 241: Me.WriteUTF8ResourceString(__output, 23584, 346, true)
Line 242:
Line 243: #ExternalSource("E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx",391)
Line 244:
Line 245: Dim cInquiry
Line 246: Dim cContactMeBy
Line 247: Dim cName Rem ** Required
Line 248: Dim cCompany Rem ** Required
Line 249: Dim cPhone Rem ** Required
Line 250: Dim cFax
Line 251: Dim clname
Line 252: Dim cEmail Rem ** Required
Line 253: Dim cMessage
Line 254: Dim bShowThanks
Line 255: Dim cErrMessage
Line 256: dim joinemail
Line 257: dim fullname
Line 258: dim cTitle
Line 259: dim cjoinemail
Line 260: dim ccountry
Line 261: dim ccontact
Line 262: dim cat1,cat2,cat3,cat4,cat5,cat6
Line 263: dim caddress,czip,cstate,ccity,recip
Line 264:
Line 265: Sub Page_Onload()
Line 266: 'bShowThanks = False
Line 267:
Line 268:
Line 269: cErrMessage = ""
Line 270: 'cat1 = "Leads"
Line 271: 'cat1 = "Campaign Headquarters Help "
Line 272: cat2 = "Industrial Division"
Line 273: cat3 = "Portable Division"
Line 274: cat4 = "General Inquiry"
Line 275: cat5 = "Superior Air Solutions"
Line 276:
Line 277: If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
Line 278: cInquiry = Request.Form("Inquiry")
Line 279: 'cContactMeBy = Request.Form("ContactMeBy")
Line 280: cName = Request.Form("name")
Line 281: cLName = request.Form("LastName")
Line 282: 'cTitle = request.form("title")
Line 283: cCompany = Request.Form("company")
Line 284: cPhone = Request.Form("phone")
Line 285: cFax = Request.Form("fax")
Line 286: cEmail = Request.Form("email")
Line 287: 'cHaveWebsite = Request.Form("HaveWebsite")
Line 288: caddress = request.Form("address")
Line 289: czip = request.Form("Zip")
Line 290: cstate = request.Form("state")
Line 291: ccity = request.Form("city")
Line 292: cMessage = request.Form("comments")
Line 293: cCountry = request.Form("Country")
Line 294: ccontact = request.Form("ContactMeBy")
Line 295: 'recip = request.QueryString("e")
Line 296:
Line 297: 'cjoinemail= Request.Form("emaillist")
Line 298: 'Company Info
Line 299:
Line 300: recip="info@palatek.com"
Line 301:
Line 302:
Line 303: Rem ** Check for Required Fields
Line 304: If Len(cName) < 1 then cErrMessage = cErrMessage &"<li><font color='red'>Please fill in your Name</font></li>"
Line 305: if Len(cEmail) < 1 then cErrMessage =cErrMessage &"<li><font color='red'>Please fill in your Email Address</font></li>"
Line 306: 'If Len(cCompany) < 1 then cErrMessage = cErrMessage &"<li><font color='red'>Please fill in your Company Name</font></li>"
Line 307:
Line 308:
Line 309: Rem ** Quit if any of the Required Fields is not satisfied
Line 310: If Len(cErrMessage) > 0 Then Exit Sub
Line 311:
Line 312: Dim mailBody, oMail
Line 313: fullname = cLname & "," & cName
Line 314: mailBody = "Contact by =" & ccontact & vbCrLf & _
Line 315: "Name = " & fullname & vbCrLf & _
Line 316: "Company = " & cCompany & vbCrLf & _
Line 317: "Phone = " & cPhone & vbCrLf & _
Line 318: "Fax = " & cFax & vbCrLf & _
Line 319: "Address = " & cAddress & vbCrLf & _
Line 320: "Country = " & cCountry & vbCrLf & _
Line 321: "City = " & cCity & vbCrLf & _
Line 322: "State = " & cState & vbCrLf & _
Line 323: "Zip = " & cZip & vbCrLf & _
Line 324: "Email = " & cEmail & vbCrLf & _
Line 325: "Message: " & vbCrLf & cMessage & vbCrLf & vbCrLf & _
Line 326: "[End Message]"
Line 327:
Line 328: Set oMail = Server.CreateObject("CDONTS.NewMail")
Line 329: oMail.To = recip
Line 330: 'oMail.bcc = "shiraz@datamine.net"
Line 331: oMail.From = "info@palatek.com"
Line 332: oMail.Subject = "Contact Us"
Line 333: oMail.Body = mailBody
Line 334:
Line 335: 'if len(recip) > 3 then
Line 336: oMail.Send
Line 337: 'end if
Line 338: Set oMail = Nothing
Line 339:
Line 340: 'bShowThanks = true
Line 341: 'end if
Line 342: 'Response.Write "hosting value is " & hostingval &"<br>"
Line 343: response.Write("email send")
Line 344:
Line 345:
Line 346: 'cjoinemail= Request.Form("emaillist")
Line 347: 'if instr(cjoinemail, "Yes") then
Line 348: dim cat1val
Line 349:
Line 350: dim cat2val
Line 351: dim cat3val
Line 352: dim cat4val
Line 353: dim cat5val
Line 354: dim cat6val
Line 355:
Line 356: cat1val=0
Line 357: cat2val=0
Line 358: cat3val=0
Line 359: cat4val=0
Line 360: cat5val=0
Line 361: cat6val=0
Line 362:
Line 363: if instr(request.Form("Inquiry"), cat1) then
Line 364: cat1val=1
Line 365: end if
Line 366:
Line 367: if instr(request.Form("Inquiry"), cat2) then
Line 368: cat2val=1
Line 369: end if
Line 370:
Line 371: if instr(request.Form("Inquiry"), cat3) then
Line 372: cat3val=1
Line 373: end if
Line 374:
Line 375: if instr(request.Form("Inquiry"), cat4) then
Line 376: cat4val=1
Line 377: end if
Line 378:
Line 379: if instr(request.Form("Inquiry"), cat5) then
Line 380: cat5val=1
Line 381: end if
Line 382:
Line 383: 'Next
Line 384:
Line 385: dim ors
Line 386: dim sqllist
Line 387: dim adCmdText
Line 388: dim value
Line 389:
Line 390: 'Response.Write ("before")
Line 391: Set oConn = Server.CreateObject("ADODB.Connection")
Line 392: set objparm = server.CreateObject("ADODB.Parameter")
Line 393: oConn.ConnectionTimeout = Application("connTimeout")
Line 394: oConn.Open Application("SITE_ConnectionString"), Application("SITE_RuntimeUserName"), Application ("SITE_RuntimePassword")
Line 395:
Line 396: Set oRS = Server.CreateObject("ADODB.Recordset")
Line 397: set oRS.ActiveConnection = oConn
Line 398: ors.Open "SELECT * from bm_accounts where acctEmail='"& Cemail & "'",oConn,adOpenKeyset,adLockOptimistic
Line 399:
Line 400: 'Response.Write("after connection")
Line 401:
Line 402: 'response.Write(Application("SITE_ConnectionString"))
Line 403:
Line 404: 'response.Write(Cname)
Line 405: Dim cmdcustomer
Line 406: Set cmdcustomer = Server.CreateObject("ADODB.Command")
Line 407: With cmdcustomer
Line 408: Set .ActiveConnection =oConn
Line 409: .CommandText = "dbo.spContact"
Line 410: .CommandType = adCmdStoredProc
Line 411: .Parameters.Append cmdcustomer.CreateParameter ("returnvalue",adInteger,adParamReturnValue)
Line 412: .Parameters.Append cmdcustomer.CreateParameter("@Rname",adVarChar, adParamInput,100,Cname)
Line 413: .Parameters.Append cmdcustomer.CreateParameter("@Lname",adVarChar, adParamInput,100,clname)
Line 414: .Parameters.Append cmdcustomer.CreateParameter("@Company",adVarChar, adParamInput,100,cCompany)
Line 415: .Parameters.Append cmdcustomer.CreateParameter("@Rphone",adVarChar,adParamInput,50,cphone)
Line 416: .Parameters.Append cmdcustomer.CreateParameter("@Rfax",adVarChar,adParamInput,50,cfax)
Line 417: .Parameters.Append cmdcustomer.CreateParameter("@REmail",adVarChar,adParamInput,50,cEmail)
Line 418: .Parameters.Append cmdcustomer.CreateParameter("@Rcountry",adVarchar,adParamInput,100,cCountry)
Line 419: .Parameters.Append cmdcustomer.CreateParameter("@Raddress",adVarchar,adParamInput,100,caddress)
Line 420: .Parameters.Append cmdcustomer.CreateParameter("@Rcity",adVarChar,adParamInput,50,ccity)
Line 421: .Parameters.Append cmdcustomer.CreateParameter("@Rstate",adVarChar,adParamInput,50,cstate)
Line 422: .Parameters.Append cmdcustomer.CreateParameter("@RZip",adVarChar,adParamInput,50,czip)
Line 423: .Parameters.Append cmdcustomer.CreateParameter("@cat2val", adBoolean,adParamInput,2,cat2val)
Line 424: .Parameters.Append cmdcustomer.CreateParameter("@cat3val", adBoolean,adParamInput,3,cat3val)
Line 425: .Parameters.Append cmdcustomer.CreateParameter("@cat4val", adBoolean,adParamInput,4,cat4val)
Line 426: .Parameters.Append cmdcustomer.CreateParameter("@cat5val", adBoolean,adParamInput,5,cat5val)
Line 427: .Parameters.Append cmdcustomer.CreateParameter("@Rmessage",adVarChar,adParamInput,50,cMessage)
Line 428: .Execute
Line 429:
Line 430: .Execute
Line 431:
Line 432: End With
Line 433: value = cmdcustomer.Parameters("returnvalue")
Line 434:
Line 435:
Line 436:
Line 437: 'response.Write("successfull")
Line 438: Set oConn = Nothing
Line 439: 'end if
Line 440: response.Redirect("contact_submit.asp")
Line 441: end if
Line 442:
Line 443: End Sub
Line 444:
Line 445:
Line 446: #End ExternalSource
Line 447: __output.Write(""&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(9)&"</body>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"</HTML>"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10))
Line 448:
Line 449: #ExternalSource("E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx",594)
Line 450:
Line 451: Function SafeHTMLEncode(cText)
Line 452: If IsNull(cText) Then
Line 453: SafeHTMLEncode = ""
Line 454: Else
Line 455: SafeHTMLEncode = Server.HTMLEncode(Trim(cText))
Line 456: End If
Line 457: End Function
Line 458:
Line 459:
Line 460:
Line 461: #End ExternalSource
Line 462: End Sub
Line 463:
Line 464: Protected Overrides Sub FrameworkInitialize()
Line 465: SetStringResourcePointer(ASP.contact_us_aspx.__stringResource, 23930)
Line 466: Me.__BuildControlTree(Me)
Line 467: Me.FileDependencies = ASP.contact_us_aspx.__fileDependencies
Line 468: Me.EnableViewStateMac = true
Line 469: End Sub
Line 470:
Line 471: Public Overrides Function GetTypeHashCode() As Integer
Line 472: Return 730706169
Line 473: End Function
Line 474: End Class
Line 475: End Namespace
Line 476:
|