<%



sql="INSERT INTO bookings (performanceID, customerID, bookingDate)"

sql=sql & " VALUES "

sql=sql & "('" & Request.Form("performanceID") & "',"

sql=sql & "'" & Request.Form("customerID") & "',"

sql=sql & "'" & Request.Form("bookingDate") & "')"



'on error resume next

conn.Execute sql,recaffected 



'debug the sql statement

response.write sql



'create a new recordset to hold the new data, as we need to run a seperate query to find the bookingID



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

sql2 = "SELECT @@Identity"

set rs2 = conn.execute(sql2)

bookingID = "Your Booking Number is: " & rs2(0)

response.write rs2(0)



sql3=sql3 = "UPDATE performances SET Status=booked WHERE performanceID='" & performanceID &"'"

'on error resume next

conn.Execute sql3,recaffected 



%>

<%@ 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>