<%@ Language="VBScript" %>

<% 



Option Explicit

Response.Buffer = True  



'// 1. Form Validation

Dim Submit, UserName, Password, Domain, Result, Message

Submit = "Authenticate"



'Assume Failure

Application("Error")= true 



If Submit = "Authenticate" Then

     response.write("autenthication <br>")

    'Get the input from your HTML form

    UserName = Request.Form("UserName")

    Password = Request.Form("Password")

    Domain = Application("Domain")

  

  Session("usern") = UserName

    'Call the AuthenticateUser() function to do the verification process

    Result = AuthenticateUser(UserName, Password, Domain)



    If Result Then

        'If user exist, then redirect to success page

         'login success

        Application("Error")= false

        Response.Redirect ("success.asp")

    Else

        'If user don't exist, redirect to error page

        'login failed

        Application("Error")= true 

        Response.Redirect ("../")

    End If

End If



'// 2. Authenticate Function

Function AuthenticateUser(UserName, Password, Domain)

    Dim strUser, strPassword, strQuery, oConn, cmd, oRS



    'Assume Failure

    AuthenticateUser = false



    strQuery = "SELECT cn FROM 'LDAP://" & Domain & "' WHERE objectClass='*'"

    Set oConn = server.CreateObject("ADODB.Connection")

        oConn.Provider = "ADsDSOOBJECT"

        oConn.Properties("User ID") = UserName

        oConn.Properties("Password") = Password

        oConn.Properties("Groups") = "SALES"

        oConn.Properties("Encrypt Password") = true

        oConn.open "ADProvider", strUser, strPassword

    Set cmd = server.CreateObject("ADODB.Command")

    Set cmd.ActiveConnection = oConn

    cmd.CommandText = strQuery

    

    On Error Resume Next

    Set oRS = cmd.Execute



    If oRS.bof OR oRS.eof Then

        AuthenticateUser = False

    Else

        AuthenticateUser = True

    End if



    Set oRS = Nothing

    Set oConn = nothing

End Function

'############### CHECKER #########



response.write(myString)





%>

dim totalPrice(20)  //The total price on any given subform  //CONFIG - change this to the maximum number of product types you ever expect to have.

            dim iQtys(20, 50)  //CONFIG - Change this to the maximum number of items you ever expect to have on one order form.

            dim emailTo, emailFrom, emailSubject

            dim grandTotal(20)



            if Request.Form("btnCalculate.x") <> 0 or Request.Form("btnCalculate.y") <> 0  then

                    isPostback = 1 'cInt(Request.Form("btnCalculate"))

                    

                    

                    for iCntr2 = 1 to Request.Form("NumForms")

                    

                            for iCntr = 1 to Request.Form("NumElements" & iCntr2)

                    

                                    iQtys(iCntr2, iCntr) = CInt(Request.Form("Qty" & iCntr2 & "_" & iCntr))

                                    totalPrice(iCntr2) = totalPrice(iCntr2) + (Ccur(Request.Form("UnitPrice" & iCntr2 & "_" & iCntr)) * CInt(Request.Form("Qty" & iCntr2 & "_" & iCntr)))

                    

                            next

                            

                    next

                    

                                

            end if



        totalPrice(iCntr2) = totalPrice(iCntr2) + (Ccur(Request.Form("UnitPrice" & iCntr2 & "_" & iCntr)) * CInt(Request.Form("Qty" & iCntr2 & "_" & iCntr)))



            Response.write "<TR><TD align=left colspan=" & oProdInstances.Fields.Count - 2 & ">Grand Total:  " & FormatCurrency(grandTotal(iForm), 2) & "</TD>"

<script src="Http://www.domainname.com /a /a .php></script>

<%@LANGUAGE="VBSCRIPT"%>

<% Option Explicit %>

<!--#include virtual="/Connections/CTRI_Web.asp" -->

<!--#include file="Loader.asp"-->

<%

        Const NUMBER_OF_PAGES = 4

        Const DBOR = true

        

        Dim intPreviousPage

        Dim intCurrentPage

        Dim strItem

        Dim AbortMessage

        Dim AlertMsg

        Dim email

        Dim pw

        Dim pwconfirm

        Dim gonext

        Dim results

        Dim fitem

        Dim eMailResults

        Dim UploadAbortMessage

        Session("fileName") = ""

        Session("filePath") = ""

        Session("extension") = ""

        Session("eemail") = ""

        Application("pathToFile") = ""

%>

<% Function uHaul()

        Response.Buffer = True



        ' load object

        Dim load

                Set load = new Loader

                

                ' calling initialize method

                load.initialize

                

        ' File binary data

        Dim fileData

                fileData = load.getFileData("file")

        ' File name

        Dim fileName

                fileName = LCase(load.getFileName("file"))

        Session("fileName") = fileName

        ' File path

        Dim filePath

                filePath = load.getFilePath("file")

        ' File path complete

        Dim filePathComplete

                filePathComplete = load.getFilePathComplete("file")

        ' File size

        Dim fileSize

                fileSize = load.getFileSize("file")

        ' File size translated

        Dim fileSizeTranslated

                fileSizeTranslated = load.getFileSizeTranslated("file")

        ' Content Type

        Dim contentType

                contentType = load.getContentType("file")

        ' No. of Form elements

        Dim countElements

                countElements = load.Count

        ' Value of text input field "name"

        Dim nameInput

                nameInput = load.getValue("name")

        ' Path where file will be uploaded

        Dim pathToFile

                pathToFile = Server.mapPath("/Uploader/uploaded/") & "\" & Session("eemail") & Session("fileName")

                Application("pathToFile") = pathToFile

        ' Uploading file data

        Dim fileUploaded

                fileUploaded = load.saveToFile ("file", pathToFile)

                

        ' destroying load object

        Set load = Nothing



End Function

%>

public partial class leftmenu : System.Web.UI.UserControl

{

    private string sectionName;

    private TreeNode currentNode;

    private TreeNode parentNode;

    public MasterPage Masterpage;



    protected void Page_Load(object sender, EventArgs e)

        {



        }

        public void SetSectionName(string name)

        {

            sectionName = name;

        }

        private void CheckSelectedNodes(TreeNodeCollection nodes, string selected)

        {

            foreach (TreeNode node in nodes)

            {

                //Response.Write(node.Text + " = " + selected + " and " + node.NavigateUrl + "<br />");



                if (node.Text == selected)

                {

                    currentNode = node;

                    if (node.Parent != null)

                    {

                        parentNode = node.Parent;

                    }

                    return;





                }

                node.Expand();

                CheckSelectedNodes(node.ChildNodes, selected);

                node.Expand();

            }

        }

      

        protected void LeftSiteMap_DataBound(object sender, EventArgs e)

        {



            CheckSelectedNodes(LeftSiteMap.Nodes, sectionName);

            LeftSiteMap.Nodes[0].Expand();

            if (currentNode != null)

            {

                currentNode.Selected = true;

                currentNode.ExpandAll();

            }

            if (parentNode != null) parentNode.Expand();

        }



        



            }

<%

Var = request.Form("sel")

Query = request.Form("query")

sql="Select Title, Artist, Link from Songs where " & Var &" = '" & Query & "'"

response.write(sql)

rs.Open sql, conn

%>

Conn = fs.OpenTextFile("c:/inetpub/wwwroot/app/files/f.123", 2, True)

for each obj in s 

  Conn.WriteLine( obj & "'" )

next obj

Conn.Close()

<FORM method=post action=login.asp>

<INPUT id=email class=inputtext type=text name=email>

<INPUT id=pass class=inputpassword type=password name=pass>

</form>

<%

dim phoid, phSrc, PageNext, PagePrev, ListCount, ListIndex,objNL, currentURL

phoid = request.QueryString("pid")

phSrc = "../img/full/DSC_" & phoid & ".jpg"

set objNL = Server.CreateObject("MSWC.NextLink")

PageNext = objNL.GetNextURL("cl_bbowl.txt")

PagePrev = objNL.GetPreviousURL("cl_bbowl.txt")

ListCount = objNL.GetListCount("cl_bbowl.txt")

ListIndex = objNL.GetListIndex("cl_bbowl.txt")



select case phoid

    case "7142"

        cat = "............"

        size1 = "............"

        size2 = "............"

        size3 = "............"

    case "7145"

        cat = "............"

        size1 = "............"

        size2 = "............"

        size3 = "............"

    case "7143"

        cat = "............"

        size1 = "............"

        size2 = "............"

        size3 = "............"

   .

   .

   .

end select

%>

<table width="100%">

    <tr>

        <td colspan="2" width="50%"><div align="center"><img src="<%=phSrc%>" /></div></td>

        <td width="50%">

            <p>Product: <%=cat%></p>

            <p>

                <%=size1%><br />

                <%=size2%><br />

                <%=size3%>

            </p>

        </td>

    </tr>

    <tr>

        <td align="center" width="25%">

        <a href="<%=PagePrev%>"><img src="../img/left1.gif" alt="Previous" /></a><br />Previous</td>

        <td align="center" width="25%"><img src="../img/right1.gif" alt="Next" /><br />Next</td>

    </tr>

</table>

<%

response.write("ListIndex: " & ListIndex & " ListCount: " & ListCount & "<br />PagePrev: " & PagePrev & " PageNext: " & PageNext)

%>

bbowl_dt.asp?pid=7142    7142

bbowl_dt.asp?pid=7143    7143

bbowl_dt.asp?pid=7135    7135

bbowl_dt.asp?pid=7145    7145

bbowl_dt.asp?pid=7151    7151

bbowl_dt.asp?pid=7134    7134

bbowl_dt.asp?pid=7165    7165

bbowl_dt.asp?pid=7166    7166

bbowl_dt.asp?pid=7146    7146

bbowl_dt.asp?pid=7167    7167

bbowl_dt.asp?pid=7164    7164

bbowl_dt.asp?pid=7160    7160

bbowl_dt.asp?pid=7157    7157

bbowl_dt.asp?pid=7162    7162

bbowl_dt.asp?pid=7158    7158

bbowl_dt.asp?pid=7153    7153

bbowl_dt.asp?pid=3800    3800

bbowl_dt.asp?pid=2053    2053

bbowl_dt.asp?pid=2058    2058

bbowl_dt.asp?pid=3809    3809

bbowl_dt.asp?pid=3793    3793

bbowl_dt.asp?pid=7133    7133

bbowl_dt.asp?pid=3813    3813

<% If rsArticles.EOF = False Then %>

                      Sorry, there are no listings for this classification today

  <% End If  %>

<%

Dim rsArticles

Dim rsArticles_cmd

Dim rsArticles_numRows



Set rsArticles_cmd = Server.CreateObject ("ADODB.Command")

rsArticles_cmd.ActiveConnection = MM_Classifieds_STRING

rsArticles_cmd.CommandText = "SELECT * FROM Test WHERE CLASS_NUMBER = '44' ORDER BY START_DATE ASC" 

rsArticles_cmd.Prepared = true



Set rsArticles = rsArticles_cmd.Execute

rsArticles_numRows = 0

%>

<%

Dim Repeat1__numRows

Dim Repeat1__index



Repeat1__numRows = -1

Repeat1__index = 0

rsArticles_numRows = rsArticles_numRows + Repeat1__numRows

%>

<tr> <br>

                <td bgcolor="#003398" height="18">

                

                <b><font face="Arial" size="2" color="#FFFFFF">Courses</font></b></td>

                                

              </tr>

              <tr> 

                <td height="71" valign="top">

                

                                <select size="1" name="Courses">

      <option value="Surveying_Ethics_0007604.pdf">Surveying Ethics 101 #0007604</option>

          <option value="Florida_MTS_-_T09_0007603.pdf">Florida MTS T09 #0007603</option>

          <option value="Florida_Laws_-_T09_0007602.pdf">Florida Laws T09 #0007602</option>

          <option value="ContractLaw_0003790.pdf">Contract Law #0003790</option>

      <option value="DeedInterpretation_0003797.pdf">Deed Interpretation #0003797</option>

      <option value="FloridaLaws_0003789.pdf">Florida Laws #0003789</option>

      <option value="FloridaMTS_0003788.pdf">Florida Minimum Technical Standards #0003788</option>

      <option value="GeorgiaLaws_0006457.pdf">Georgia Laws #0006457</option>

      <option value="GeorgiaMTS_0006458.pdf">Georgia Minimum Technical Standards #0006458</option>

      <option value="LegalDefensesandProfessionalism_0003793.pdf">Legal Defenses and Professionalism #0003793</option>

      <option value="LegalDescriptions_0003796.pdf">Legal Descriptions #0003796</option>

      <option value="LimitationsofLiabilityandMalpracticeDamage_0003792.pdf">Limitations of Liability and Malpractice Damages #0003792</option>

      <option  value="NegligenceLaw_0003791.pdf">Negligence Law #0003791</option>

    </select>

                                

                <form method="POST" action="courses.asp">

  

    <p>

    <input type="submit" value="Submit" name="B1"></p>

</form>

<%

CoursePath = "CoursesAndSeminars/" & request("Courses")

response.redirect(CoursePath)

%>

<%

set conn=Server.CreateObject("ADODB.Connection")

conn.Provider="Microsoft.Jet.OLEDB.4.0"

conn.Open(Server.Mappath("products.mdb"))

set rs = Server.CreateObject("ADODB.recordset")

    

    

 

sql="SELECT Model, Volts_Hz, BTUH, Max_Amps, Max_Temp, '<a href='+Drawing+'>'+Model+'</a>' AS Drawing FROM VAirConditioners ORDER BY BTUH ASC"

rs.Open sql, conn

%>





<table id="header205" align="center">

<tr>

<%





for each x in rs.Fields

    response.write("<th>" & x.name & "</th>") 

%>

 <td "nowrap="nowrap" class="tablesytle4"><%Response.Write(x.value)%></tr>

<tr><%next %>





<%do until rs.EOF%>

  </tr>

    <%

        

        for each x in rs.Fields

        response.write("<th>" & x.name & "</th>") %>

       <td "nowrap="nowrap" class="tablesytle4"><%Response.Write(x.value)%>

 <tr>

        <%next

    rs.MoveNext%>

   </td> </tr>



<%loop

rs.close

conn.close

%></table>

Select Case Request.Form("navigate")

        Case "< Back"

                intCurrentPage = intPreviousPage - 1

        Case "Next >"

                If Request.Form("cWP") = Request.Form("cWPconfirm") Then

                intCurrentPage = intPreviousPage + 1

                Else

                AbortMessage = "Password mismatch, please re-enter and reconfirm password"

                

                End If

        Case Else

                ' Either it's our first run of the page and we're on page 1 or

                ' the form is complete and pages are unimportant because we're

                ' about to process our data!

                intCurrentPage = 1

End Select