Server Error in '/' Application.

---

c:\windows\system32\inetsrv> "c:\windows\microsoft.net\framework\v1.1.4322\vbc.exe" /t:library /utf8output /R:"c:\windows\assembly\gac\system.web\1.0.5000.0__b03f5f7f11d50a3a\system.web.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\437b4444\936a9e00\assembly\dl2\19d6cc20\0089009b_5c68c401\sync.pgd.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\437b4444\936a9e00\assembly\dl2\c0f97637\00a572d3_cb69c401\sync.pgupload.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\437b4444\936a9e00\assembly\dl2\e1ac90c2\008402fa_676fc401\sync.pgadminedit.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\437b4444\936a9e00\assembly\dl2\c5dbede4\006af6a0_5c68c401\sync.pgtc.dll" /R:"c:\windows\assembly\gac\system.xml\1.0.5000.0__b77a5c561934e089\system.xml.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\437b4444\936a9e00\assembly\dl2\4339cb1a\00c458a3_5c68c401\sync.pgu.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\437b4444\936a9e00\assembly\dl2\9ed89d75\00102fdf_656fc401\sync.pgadminue.dll" /R:"c:\windows\assembly\gac\system.drawing\1.0.5000.0__b03f5f7f11d50a3a\system.drawing.dll" /R:"c:\windows\assembly\gac\system.web.services\1.0.5000.0__b03f5f7f11d50a3a\system.web.services.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\437b4444\936a9e00\assembly\dl2\8af3ad4d\004ea892_5c68c401\sync.data.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\437b4444\936a9e00\assembly\dl2\b15d7870\0010949e_5c68c401\sync.pgscript.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\437b4444\936a9e00\assembly\dl2\0135c592\00b72183_786fc401\sync.pgcontact_us.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\437b4444\936a9e00\assembly\dl2\3b83e998\00993de6_3b69c401\sync.pgaddcontent.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\437b4444\936a9e00\assembly\dl2\ba658d57\003dc59f_5c68c401\sync.pgt.dll" /R:"c:\windows\assembly\gac\system.web.mobile\1.0.5000.0__b03f5f7f11d50a3a\system.web.mobile.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\437b4444\936a9e00\assembly\dl2\469ffe55\00993de6_3b69c401\sync.pgimg.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\437b4444\936a9e00\assembly\dl2\307056a0\00993de6_3b69c401\sync.pgne.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\437b4444\936a9e00\assembly\dl2\00d93074\00c66ee7_3b69c401\sync.pgnelist.dll" /R:"c:\windows\assembly\gac\system\1.0.5000.0__b77a5c561934e089\system.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\437b4444\936a9e00\assembly\dl2\3a0df52f\00a80a95_5c68c401\sync.page.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\437b4444\936a9e00\assembly\dl2\b67b38e0\006af6a0_5c68c401\sync.pgtables.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\437b4444\936a9e00\assembly\dl2\fb47a5f4\006c0ce5_3b69c401\sync.pgdefault.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\437b4444\936a9e00\assembly\dl2\99cfa251\00e578e1_3b69c401\sync.pgadminnelist.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\437b4444\936a9e00\assembly\dl2\29e2f95c\00c09608_3168c401\sync.tool.popupcalendar.dll" /R:"c:\windows\assembly\gac\system.enterpriseservices\1.0.5000.0__b03f5f7f11d50a3a\system.enterpriseservices.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\437b4444\936a9e00\assembly\dl2\4392921d\00c66ee7_3b69c401\sync.pguelist.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\437b4444\936a9e00\assembly\dl2\9987a044\006c0ce5_3b69c401\sync.pgexport.dll" /R:"c:\windows\assembly\gac\system.data\1.0.5000.0__b77a5c561934e089\system.data.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\437b4444\936a9e00\assembly\dl2\5167074c\00750c7a_cf69c401\sync.pgadminne.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\437b4444\936a9e00\assembly\dl2\37891729\00da33fa_d169c401\sync.pgadminuelist.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\437b4444\936a9e00\assembly\dl2\8458d146\00a80a95_5c68c401\sync.global.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\437b4444\936a9e00\assembly\dl2\413f368f\0005fe69_a96ec401\sync.pgauth.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\437b4444\936a9e00\assembly\dl2\5aabdb24\0023084c_5f68c401\sync.content.pagemap.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\root\437b4444\936a9e00\assembly\dl2\5d038973\006af6a0_5c68c401\sync.pgtd.dll" /out:"c:\windows\microsoft.net\framework\v1.1.4322\Temporary ASP.NET Files\root\437b4444\936a9e00\dvzpqh0h.dll" /debug- /win32resource:"c:\windows\microsoft.net\framework\v1.1.4322\Temporary ASP.NET Files\root\437b4444\936a9e00\dvzpqh0h.res"  "c:\windows\microsoft.net\framework\v1.1.4322\Temporary ASP.NET Files\root\437b4444\936a9e00\dvzpqh0h.0.vb"


Microsoft (R) Visual Basic .NET Compiler version 7.10.7017.4
for Microsoft (R) .NET Framework version 1.1.4322.2407
Copyright (C) Microsoft Corporation 1987-2002. All rights reserved.

E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(39) : error BC32000: Local variable 'cErrMessage' cannot be referred to before it is declared.

            __output.Write(cErrMessage)
                           ~~~~~~~~~~~ 
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(46) : error BC32000: Local variable 'cName' cannot be referred to before it is declared.

            __output.Write(SafeHTMLEncode(cName))
                                          ~~~~~  
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(52) : error BC32000: Local variable 'clname' cannot be referred to before it is declared.

            __output.Write(SafeHTMLEncode(cLName))
                                          ~~~~~~  
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(59) : error BC32000: Local variable 'cCompany' cannot be referred to before it is declared.

            __output.Write(SafeHTMLEncode(cCompany))
                                          ~~~~~~~~  
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(65) : error BC32000: Local variable 'caddress' cannot be referred to before it is declared.

            __output.Write(SafeHTMLEncode(caddress))
                                          ~~~~~~~~  
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(293) : error BC32000: Local variable 'ccity' cannot be referred to before it is declared.

            __output.Write(SafeHTMLEncode(ccity))
                                          ~~~~~  
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(299) : error BC32000: Local variable 'cstate' cannot be referred to before it is declared.

            __output.Write(SafeHTMLEncode(cstate))
                                          ~~~~~~  
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(305) : error BC32000: Local variable 'czip' cannot be referred to before it is declared.

            __output.Write(SafeHTMLEncode(czip))
                                          ~~~~  
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(311) : error BC32000: Local variable 'cPhone' cannot be referred to before it is declared.

            __output.Write(SafeHTMLEncode(cphone))
                                          ~~~~~~  
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(314) : error BC32000: Local variable 'cFax' cannot be referred to before it is declared.

            __output.Write(SafeHTMLEncode(cfax))
                                          ~~~~  
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(316) : error BC32000: Local variable 'cEmail' cannot be referred to before it is declared.

            __output.Write(SafeHTMLEncode(cemail))
                                          ~~~~~~  
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(334) : error BC32000: Local variable 'cat2' cannot be referred to before it is declared.

            __output.Write(cat2)
                           ~~~~ 
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(335) : error BC32000: Local variable 'cat2' cannot be referred to before it is declared.

            __output.Write(cat2)
                           ~~~~ 
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(337) : error BC32000: Local variable 'cat3' cannot be referred to before it is declared.

            __output.Write(cat3)
                           ~~~~ 
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(338) : error BC32000: Local variable 'cat3' cannot be referred to before it is declared.

            __output.Write(cat3)
                           ~~~~ 
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(340) : error BC32000: Local variable 'cat4' cannot be referred to before it is declared.

            __output.Write(cat4)
                           ~~~~ 
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(341) : error BC32000: Local variable 'cat4' cannot be referred to before it is declared.

            __output.Write(cat4)
                           ~~~~ 
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(343) : error BC32000: Local variable 'cat5' cannot be referred to before it is declared.

            __output.Write(cat5)
                           ~~~~ 
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(344) : error BC32000: Local variable 'cat5' cannot be referred to before it is declared.

            __output.Write(cat5)
                           ~~~~ 
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(351) : error BC32000: Local variable 'cMessage' cannot be referred to before it is declared.

            __output.Write(SafeHTMLEncode(cMessage))
                                          ~~~~~~~~  
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(412) : error BC30289: Statement cannot appear within a method body. End of method assumed.

Sub Page_Onload()
~~~              
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(416) : error BC30451: Name 'cErrMessage' is not declared.

    cErrMessage    = ""
    ~~~~~~~~~~~        
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(419) : error BC30451: Name 'cat2' is not declared.

    cat2 = "Industrial Division"
    ~~~~                        
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(420) : error BC30451: Name 'cat3' is not declared.

    cat3 = "Portable Division"
    ~~~~                      
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(421) : error BC30451: Name 'cat4' is not declared.

    cat4 = "General Inquiry"
    ~~~~                    
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(422) : error BC30451: Name 'cat5' is not declared.

    cat5 = "Superior Air Solutions"
    ~~~~                           
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(425) : error BC30451: Name 'cInquiry' is not declared.

    cInquiry = Request.Form("Inquiry")
    ~~~~~~~~                          
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(427) : error BC30451: Name 'cName' is not declared.

        cName = Request.Form("name")
        ~~~~~                       
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(428) : error BC30451: Name 'cLName' is not declared.

        cLName = request.Form("LastName")
        ~~~~~~                           
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(430) : error BC30451: Name 'cCompany' is not declared.

        cCompany = Request.Form("company")
        ~~~~~~~~                          
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(431) : error BC30451: Name 'cPhone' is not declared.

        cPhone = Request.Form("phone")
        ~~~~~~                        
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(432) : error BC30451: Name 'cFax' is not declared.

        cFax = Request.Form("fax")
        ~~~~                      
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(433) : error BC30451: Name 'cEmail' is not declared.

        cEmail = Request.Form("email")
        ~~~~~~                        
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(435) : error BC30451: Name 'caddress' is not declared.

        caddress = request.Form("address")
        ~~~~~~~~                          
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(436) : error BC30451: Name 'czip' is not declared.

        czip = request.Form("Zip")
        ~~~~                      
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(437) : error BC30451: Name 'cstate' is not declared.

        cstate = request.Form("state")
        ~~~~~~                        
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(438) : error BC30451: Name 'ccity' is not declared.

        ccity = request.Form("city")
        ~~~~~                       
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(439) : error BC30451: Name 'cMessage' is not declared.

        cMessage = request.Form("comments")
        ~~~~~~~~                           
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(440) : error BC30451: Name 'cCountry' is not declared.

        cCountry = request.Form("Country")
        ~~~~~~~~                          
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(441) : error BC30451: Name 'ccontact' is not declared.

        ccontact = request.Form("ContactMeBy")
        ~~~~~~~~                              
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(447) : error BC30451: Name 'recip' is not declared.

        recip="info@palatek.com"
        ~~~~~                   
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(451) : error BC30451: Name 'cName' is not declared.

        If Len(cName) < 1 then cErrMessage = cErrMessage &"<li><font color='red'>Please fill in your Name</font></li>"
               ~~~~~                                                                                                  
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(451) : error BC30451: Name 'cErrMessage' is not declared.

        If Len(cName) < 1 then cErrMessage = cErrMessage &"<li><font color='red'>Please fill in your Name</font></li>"
                               ~~~~~~~~~~~                                                                            
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(451) : error BC30451: Name 'cErrMessage' is not declared.

        If Len(cName) < 1 then cErrMessage = cErrMessage &"<li><font color='red'>Please fill in your Name</font></li>"
                                             ~~~~~~~~~~~                                                              
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(452) : error BC30451: Name 'cEmail' is not declared.

        if Len(cEmail) < 1 then cErrMessage =cErrMessage &"<li><font color='red'>Please fill in your Email Address</font></li>"
               ~~~~~~                                                                                                          
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(452) : error BC30451: Name 'cErrMessage' is not declared.

        if Len(cEmail) < 1 then cErrMessage =cErrMessage &"<li><font color='red'>Please fill in your Email Address</font></li>"
                                ~~~~~~~~~~~                                                                                    
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(452) : error BC30451: Name 'cErrMessage' is not declared.

        if Len(cEmail) < 1 then cErrMessage =cErrMessage &"<li><font color='red'>Please fill in your Email Address</font></li>"
                                             ~~~~~~~~~~~                                                                       
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(457) : error BC30451: Name 'cErrMessage' is not declared.

        If Len(cErrMessage) > 0 Then Exit Sub
               ~~~~~~~~~~~                   
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(460) : error BC30451: Name 'fullname' is not declared.

        fullname = cLname & "," & cName
        ~~~~~~~~                       
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(460) : error BC30451: Name 'cLname' is not declared.

        fullname = cLname & "," & cName
                   ~~~~~~              
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(460) : error BC30451: Name 'cName' is not declared.

        fullname = cLname & "," & cName
                                  ~~~~~
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(461) : error BC30451: Name 'ccontact' is not declared.

        mailBody = "Contact by =" & ccontact & vbCrLf & _ 
                                    ~~~~~~~~              
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(462) : error BC30451: Name 'fullname' is not declared.

        "Name = " & fullname & vbCrLf & _
                    ~~~~~~~~             
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(463) : error BC30451: Name 'cCompany' is not declared.

        "Company = " & cCompany & vbCrLf & _
                       ~~~~~~~~             
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(464) : error BC30451: Name 'cPhone' is not declared.

        "Phone = " & cPhone & vbCrLf & _
                     ~~~~~~             
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(465) : error BC30451: Name 'cFax' is not declared.

            "Fax = " & cFax & vbCrLf & _
                       ~~~~             
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(466) : error BC30451: Name 'cAddress' is not declared.

            "Address = " & cAddress & vbCrLf & _
                           ~~~~~~~~             
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(467) : error BC30451: Name 'cCountry' is not declared.

            "Country = " & cCountry & vbCrLf & _
                           ~~~~~~~~             
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(468) : error BC30451: Name 'cCity' is not declared.

            "City = " & cCity & vbCrLf & _
                        ~~~~~             
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(469) : error BC30451: Name 'cState' is not declared.

            "State = " & cState & vbCrLf & _
                         ~~~~~~             
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(470) : error BC30451: Name 'cZip' is not declared.

            "Zip = " & cZip & vbCrLf & _
                       ~~~~             
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(471) : error BC30451: Name 'cEmail' is not declared.

            "Email = " & cEmail & vbCrLf & _
                         ~~~~~~             
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(472) : error BC30451: Name 'cMessage' is not declared.

            "Message: " & vbCrLf & cMessage & vbCrLf & vbCrLf & _
                                   ~~~~~~~~                      
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(475) : error BC30807: 'Let' and 'Set' assignment statements are no longer supported.

        Set oMail = Server.CreateObject("CDONTS.NewMail")
        ~~~                                              
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(476) : error BC30451: Name 'recip' is not declared.

            oMail.To = recip    
                       ~~~~~    
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(485) : error BC30807: 'Let' and 'Set' assignment statements are no longer supported.

        Set oMail = Nothing
        ~~~                
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(510) : error BC30451: Name 'cat1' is not declared.

    if instr(request.Form("Inquiry"), cat1) then
                                      ~~~~      
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(514) : error BC30451: Name 'cat2' is not declared.

    if instr(request.Form("Inquiry"), cat2) then
                                      ~~~~      
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(518) : error BC30451: Name 'cat3' is not declared.

    if instr(request.Form("Inquiry"), cat3) then
                                      ~~~~      
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(522) : error BC30451: Name 'cat4' is not declared.

    if instr(request.Form("Inquiry"), cat4) then
                                      ~~~~      
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(526) : error BC30451: Name 'cat5' is not declared.

    if instr(request.Form("Inquiry"), cat5) then
                                      ~~~~      
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(538) : error BC30807: 'Let' and 'Set' assignment statements are no longer supported.

Set oConn = Server.CreateObject("ADODB.Connection")
~~~                                                
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(538) : error BC30451: Name 'oConn' is not declared.

Set oConn = Server.CreateObject("ADODB.Connection")
    ~~~~~                                          
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(539) : error BC30807: 'Let' and 'Set' assignment statements are no longer supported.

set objparm = server.CreateObject("ADODB.Parameter")
~~~                                                 
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(539) : error BC30451: Name 'objparm' is not declared.

set objparm = server.CreateObject("ADODB.Parameter")
    ~~~~~~~                                         
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(541) : error BC30800: Method arguments must be enclosed in parentheses.

oConn.Open Application("SITE_ConnectionString"), Application("SITE_RuntimeUserName"), Application ("SITE_RuntimePassword")
           ~~~~~~~~~~~                                                                                                    
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(543) : error BC30807: 'Let' and 'Set' assignment statements are no longer supported.

Set oRS = Server.CreateObject("ADODB.Recordset")
~~~                                             
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(544) : error BC30807: 'Let' and 'Set' assignment statements are no longer supported.

set oRS.ActiveConnection =  oConn
~~~                              
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(545) : error BC30800: Method arguments must be enclosed in parentheses.

ors.Open "SELECT * from bm_accounts where acctEmail='"& Cemail & "'",oConn,adOpenKeyset,adLockOptimistic
         ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                                                  
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(553) : error BC30807: 'Let' and 'Set' assignment statements are no longer supported.

    Set cmdcustomer = Server.CreateObject("ADODB.Command")
    ~~~                                                   
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(555) : error BC30807: 'Let' and 'Set' assignment statements are no longer supported.

        Set .ActiveConnection =oConn
        ~~~                         
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(558) : error BC30800: Method arguments must be enclosed in parentheses.

        .Parameters.Append cmdcustomer.CreateParameter ("returnvalue",adInteger,adParamReturnValue)    
                           ~~~~~~~~~~~                                                                 
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(559) : error BC30800: Method arguments must be enclosed in parentheses.

        .Parameters.Append cmdcustomer.CreateParameter("@Rname",adVarChar, adParamInput,100,Cname)
                           ~~~~~~~~~~~                                                            
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(560) : error BC30800: Method arguments must be enclosed in parentheses.

        .Parameters.Append cmdcustomer.CreateParameter("@Lname",adVarChar, adParamInput,100,clname)
                           ~~~~~~~~~~~                                                             
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(561) : error BC30800: Method arguments must be enclosed in parentheses.

        .Parameters.Append cmdcustomer.CreateParameter("@Company",adVarChar, adParamInput,100,cCompany)
                           ~~~~~~~~~~~                                                                 
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(562) : error BC30800: Method arguments must be enclosed in parentheses.

        .Parameters.Append cmdcustomer.CreateParameter("@Rphone",adVarChar,adParamInput,50,cphone)
                           ~~~~~~~~~~~                                                            
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(563) : error BC30800: Method arguments must be enclosed in parentheses.

        .Parameters.Append cmdcustomer.CreateParameter("@Rfax",adVarChar,adParamInput,50,cfax)
                           ~~~~~~~~~~~                                                        
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(564) : error BC30800: Method arguments must be enclosed in parentheses.

        .Parameters.Append cmdcustomer.CreateParameter("@REmail",adVarChar,adParamInput,50,cEmail)
                           ~~~~~~~~~~~                                                            
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(565) : error BC30800: Method arguments must be enclosed in parentheses.

        .Parameters.Append cmdcustomer.CreateParameter("@Rcountry",adVarchar,adParamInput,100,cCountry)    
                           ~~~~~~~~~~~                                                                     
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(566) : error BC30800: Method arguments must be enclosed in parentheses.

        .Parameters.Append cmdcustomer.CreateParameter("@Raddress",adVarchar,adParamInput,100,caddress)    
                           ~~~~~~~~~~~                                                                     
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(567) : error BC30800: Method arguments must be enclosed in parentheses.

        .Parameters.Append cmdcustomer.CreateParameter("@Rcity",adVarChar,adParamInput,50,ccity)
                           ~~~~~~~~~~~                                                          
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(568) : error BC30800: Method arguments must be enclosed in parentheses.

        .Parameters.Append cmdcustomer.CreateParameter("@Rstate",adVarChar,adParamInput,50,cstate)
                           ~~~~~~~~~~~                                                            
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(569) : error BC30800: Method arguments must be enclosed in parentheses.

        .Parameters.Append cmdcustomer.CreateParameter("@RZip",adVarChar,adParamInput,50,czip)    
                           ~~~~~~~~~~~                                                            
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(570) : error BC30800: Method arguments must be enclosed in parentheses.

        .Parameters.Append cmdcustomer.CreateParameter("@cat2val", adBoolean,adParamInput,2,cat2val)
                           ~~~~~~~~~~~                                                              
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(571) : error BC30800: Method arguments must be enclosed in parentheses.

        .Parameters.Append cmdcustomer.CreateParameter("@cat3val", adBoolean,adParamInput,3,cat3val)
                           ~~~~~~~~~~~                                                              
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(572) : error BC30800: Method arguments must be enclosed in parentheses.

        .Parameters.Append cmdcustomer.CreateParameter("@cat4val", adBoolean,adParamInput,4,cat4val)
                           ~~~~~~~~~~~                                                              
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(573) : error BC30800: Method arguments must be enclosed in parentheses.

        .Parameters.Append cmdcustomer.CreateParameter("@cat5val", adBoolean,adParamInput,5,cat5val)
                           ~~~~~~~~~~~                                                              
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(574) : error BC30800: Method arguments must be enclosed in parentheses.

        .Parameters.Append cmdcustomer.CreateParameter("@Rmessage",adVarChar,adParamInput,50,cMessage)    
                           ~~~~~~~~~~~                                                                    
E:\Inetpub\wwwrootdomain\DM10\palatek\contact_us.aspx(585) : error BC30807: 'Let' and 'Set' assignment statements are no longer supported.

    Set oConn = Nothing
    ~~~                
c:\windows\microsoft.net\framework\v1.1.4322\Temporary ASP.NET Files\root\437b4444\936a9e00\dvzpqh0h.0.vb(447) : error BC30188: Declaration expected.

            __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))
            ~~~~~~~~                                                                                                                                                                                                                                                      
c:\windows\microsoft.net\framework\v1.1.4322\Temporary ASP.NET Files\root\437b4444\936a9e00\dvzpqh0h.0.vb(462) : error BC30429: 'End Sub' must be preceded by a matching 'Sub'.

        End Sub
        ~~~~~~~
vbc : error BC30041: Maximum number of errors has been exceeded.

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: