<% @Language=VBScript %> <% Option Explicit %> MarkCustom Search Display <% ' Microsoft-provided include file that defines constants used with recordsets %> 404 Not Found

404 Not Found


nginx
<% 'Dixie Classsic database stuff. Defines path to database, access method %> <% '****** DIXIE DATABASE ******** dim dixie2012 dixie2012 = server.mappath("/DataBase/dixie2012.mdb") dim dixieDB dixieDB = server.mappath("/DataBase/dixie.mdb") dim DixieLOG DixieLOG = server.mappath("/DataBase/dixielog.mdb") dim MusicListDB MusicListDB = server.mappath("/DataBase/MusicListJW.mdb") dim dixieMail dixieMail = server.mappath("/DataBase/MailFile.mdb") dim FestivalOrdersDB FestivalOrdersDB = server.mappath("/DataBase/Orders.mdb") dim printPath 'printPAth= "http://69.55.61.113/generate?uid=dixie-2468-23&filename=invoice.pdf&url=" printPAth= "http://159.89.43.157/generate?uid=dixie-2468-23&filename=invoice.pdf&url=" ' ********* Mark Custom Orders ******* dim OrdersDB OrdersDB = server.mappath("/DataBase/Orders.mdb") dim MarkMusicDB MarkMusicDB = server.mappath("/DataBase/MarkMusic.mdb") dim MarkOrdersDB MarkOrdersDB = server.mappath("/DataBase/MarkOrders.mdb") dim securePathMark ' securePathMark="https://www.dixieclassic.com/MarkCustom_new/secure/" ' *** use for Secure Database securePathMark="" '*** use when working locally '****** ELLIOT DATABASE ******** dim ElliotMusicDB ElliotMusicDB = server.mappath("/DataBase/ElliotMusic.mdb") dim ElliotOrdersDB ElliotOrdersDB = server.mappath("/DataBase/ElliotOrders.mdb") dim securePathElliot ' securePathElliot="https://www.dixieclassic.com/Elliot/secure/" ' *** use for Secure Database securePathElliot="" '*** use when working locally '****** WBDI DATABASE ******** dim WBDI_DB WBDI_DB = server.mappath("/DataBase/WBDI.mdb") ' Secure Paths added 9/2008 dim secureDixieDB secureDixieDB = server.mappath("/dixieclassic/DataBase/dixie.mdb") Const secureOrdersURL = "https://www.dixieclassic.com/MarkCustom/Orders/secure" Const dixieSecureOrdersURL = "https://www.dixieclassic.com/Recordings/Orders/secure" ' Access method Const connectionProvider = "Microsoft.Jet.OLEDB.4.0" ' old Secure Paths 'Const secureOrdersURL = "https://secureweb2.globalweb.net/dixieclassic/MarkCustom/Orders/secure" 'Const dixieSecureOrdersURL = "https://secureweb2.globalweb.net/dixieclassic/Recordings/Orders/secure" ' Path to Music List database ' Const MusicListDB = "C:\dixieweb\DataBase\MusicListJW.mdb" ' Const MusicListDB = "D:\Inetpub\wwwroot\dixieclassic\DataBases\MusicListJW.mdb" ' Const MusicListDB = "C:\Inetpub\WebSites\dixieclassic.com\DataBase\MusicListJW.mdb" ' Const MusicListDB = "\DataBase\MusicListJW.mdb" %> <% ' Log Music Visit is at the bottom (do not move) %> <% Response.Buffer = True %> <% 'response.write request.form("Title") 'response.write request.form("Composer") 'response.write request.form("Class") 'response.write request.queryString("class") 'response.write request.form("GroupType") 'response.write request.queryString("GroupType") 'response.write request.queryString("Grade") ' response.end %> <% ' ************************************************ Functions *********************************************************************** dim reg Function cleanup() Set objRS = Nothing objConn.close Set objConn = Nothing end function Function strFormat(strTainted) Set reg = New RegExp reg.Pattern = "\W+" ' One or more characters which are NOT 0-9, a-z, A-Z, or '_' strFormat = reg.Replace(strTainted, "") end function ' ****** Code to Highlight or Underline information entered **** Not used here.... KEEP !!! **** 'dim highlightBegin 'highlightBegin = "" 'Const highlightEnd = "" 'dim underLineBegin 'underLineBegin = "" 'Const underLineEnd = "" 'dim Title1 'If len(trim(Title)) > 0 then 'title1=mid(objRS("Title"),inStr(ucase(objRS("Title")),ucase(title)),len(trim(Title))) ' TitleRepl = replace(objRS("Title"), Title, underLineBegin & Title1 & underLineEnd, 1,1,1) ' Else ' TitleRepl = objRS("Title") 'end If ' ****** End **** ' ************************************************ End Functions ******************************************************************* dim strSQL dim objRS dim messageURL dim Song_ID dim Title dim Composer dim Arranger dim Publisher dim Grade dim BandOrch dim Remarks dim Classvar dim Gradevar dim NoGrade dim cnt dim SearchType Title = trim(request.form("Title")) Title = replace(Title, "'", "_") Composer = ucase(trim(request.form("Composer"))) Composer = replace(Composer, "'", "_") Arranger = ucase(trim(request.form("Arranger"))) Arranger = replace(Arranger, "'", "_") BandOrch = ucase(trim(request.form("Class"))) if BandOrch="" then BandOrch = ucase(trim(request.queryString("Class"))) end if session("BandOrch")=BandOrch Grade = request.queryString("Grade") ' *********** VALIDATION SECTION *********** if Title="" and Composer=""and Grade="" then response.redirect("Menu1_Search.asp?ErrorMessage=" &"Form is not complete") end if if Title>"" and (Len(Title)<3 or Title="_") then response.redirect("Menu1_Search.asp?ErrorMessage=" &"Not a valid entry") end if if Composer>"" and (Len(Composer)<3 or Composer="_") then response.redirect("Menu1_Search.asp?ErrorMessage=" &"Not a valid entry") end if ' *********** END VALIDATION ********** %>
404 Not Found

404 Not Found


nginx
<% ' Open the database dim objConn Set objConn = server.CreateObject("ADODB.Connection") objConn.Provider = connectionProvider objConn.ConnectionString = "Data source=" & MusicListDB objConn.mode = adModeReadWrite objConn.open ' *************************** TITLE and GRADE LEVEL SEARCH*********************** IF request.form("Title")>"" or request.queryString("Grade") THEN if request.form("Title")> "" then strSQL = "SELECT * FROM [Songs Outer Junction] where Title like '%" & Title & "%'" SearchType="Title" end if if request.queryString("Grade")>"" then strSQL = "SELECT * FROM [Songs Outer Junction] where Grade='" &Grade& "'" SearchType="Grade " & Grade end if if request.queryString("Grade")="8" then strSQL = "SELECT * FROM [Songs Outer Junction] where Grade=''" NoGrade=" (not graded)" SearchType="NoGrade" end if Select Case BandOrch case "C" strSQL = strSQL & " and BandOrch like '%" & BandOrch & "%'" case "B" strSQL = strSQL & " and BandOrch = '" & BandOrch & "'" case "S" strSQL = strSQL & " and BandOrch = '" & BandOrch & "'" case "O" strSQL = strSQL & " and BandOrch = '" & BandOrch & "'" case "M" strSQL = strSQL & " and BandOrch = '" & BandOrch & "'" end select if request.queryString("Grade")="7" then ' ******* do not move - needs to be after BandOrch strSQL = "SELECT * FROM [Songs Outer Junction] where BandOrch='M'" SearchType="March" end if Set objRS = Server.Createobject("ADODB.Recordset") objRS.open strSQL, objConn, adOpenKeySet ' Sets up a Keyset scrollable cursor ' ************** Error code if not found if objRS.RecordCount = 0 then objRS.close cleanup() response.redirect("Menu1_Search.asp?ErrorMessage=" &"Title not found") end if ' ************************* BEGIN DISPLAY ************************** Select Case Mid(objRS("BandOrch"), 1, 1) case "B" classvar = "BAND" case "C" classvar = "CHOIR" case "S" classvar = "STRING ORCHESTRA" case "O" classvar = "FULL ORCHESTRA" case "M" classvar = "MARCHES - Band" end select if Grade>"" and Grade<>"7" and Grade<>"8" then GradeVar=" - Grade " & Grade end if %>

<%=ClassVar%> <%=GradeVar%>
<%=objRS.RecordCount%> selections <%=NoGrade%>

<% cnt=1 do while not objRS.EOF Title = objRS("Title") if Remarks>" " then Remarks=" - " & objRS("Remarks") end if if objRS("Remarks")>" " then Remarks=" - " & objRS("Remarks") else Remarks="" end if if objRS("Grade")>" " and objRS("Grade")<>"" then Grade="Grade " & objRS("Grade") else Grade="Not graded" end if %>
<%=Title%><%= Remarks%>
<%=objRS("Composer")%><%if objRS("Arranger")>"" then%> / <%=objRS("Arranger")%><%end if%>
<%=Grade%><%=objRS("Publisher")%>
<%if objRS("CDCount") > 0 then%>Recording available
MARKCUSTOM.COM
<%end if%>
<% objRS.MoveNext cnt=cnt+1 loop END IF ' ****************** End TITLE Search ***************** ' ***************** COMPOSER SEARCH *********************** IF request.form("Composer")>"" THEN SearchType="Composer" strSQL = "SELECT * FROM [Songs Outer Junction] where (Composer like '%" &Composer &"%' or Arranger like '%" &Composer& "%')" Select Case BandOrch case "C" strSQL = strSQL & " and BandOrch like '%" & BandOrch & "%'" case "B" strSQL = strSQL & " and BandOrch = '" & BandOrch & "'" case "S" strSQL = strSQL & " and BandOrch = '" & BandOrch & "'" case "O" strSQL = strSQL & " and BandOrch = '" & BandOrch & "'" case "M" strSQL = strSQL & " and BandOrch = '" & BandOrch & "'" end select Set objRS = Server.Createobject("ADODB.Recordset") objRS.open strSQL, objConn, adOpenKeySet ' Sets up a Keyset scrollable cursor ' ************** Error code if not found if objRS.RecordCount = 0 then objRS.close cleanup() response.redirect("Menu1_Search.asp?ErrorMessage=" &"Composer not found") end if ' ************************* BEGIN DISPLAY ************************** Select Case Mid(objRS("BandOrch"), 1, 1) case "B" classvar = "BAND" case "C" classvar = "CHOIR" case "S" classvar = "STRING ORCHESTRA" case "O" classvar = "FULL ORCHESTRA" case "M" classvar = "MARCHES - Band" end select If Grade>"" and Grade<>"7" then GradeVar=" - Grade " & Grade end if %>

<%=ClassVar%><%=GradeVar%>
<%=objRS.RecordCount%> selections

<% cnt=1 do while not objRS.EOF Title = objRS("Title") if Remarks>" " then Remarks=" - " & objRS("Remarks") end if if objRS("Remarks")>" " then Remarks=" - " & objRS("Remarks") else Remarks="" end if if objRS("Grade")>" " and objRS("Grade")<>"" then Grade="Grade " & objRS("Grade") else Grade="Not graded" end if %>
<%=objRS("Composer")%><%if objRS("Arranger")>"" then%> / <%=objRS("Arranger")%><%end if%><%= Remarks%>
<%=Title%>
<%=Grade%><%=objRS("Publisher")%>
<%if objRS("CDCount") > 0 then%>Recording available
MARKCUSTOM.COM
<%end if%>
<% objRS.MoveNext cnt=cnt+1 loop END IF ' ****************** COMPOSER Search ***************** objRS.close cleanup() ' ************ Log Music List Visit *********** dim Category Select Case BandOrch case "C" Category="Choir" case "B" Category="Band" case "S" Category="S Orch" case "O" Category="F Orch" case "M" Category="March" end select %> <% Dim SQL Dim SQLUpdate ' Dim CompName dim SchoolLogName dim Name ' ************* INSERT INTO Director_View TABLE ********************* Function Procedure_DirectorLog(PageName) IF session("AdminLogin")<>"YES" then ' does not logview if access is from Admin if session("loggedOnAs") > " " then SchoolLogName = left(session("schoolName"),30) Name = session("loggedOnAs") else SchoolLogName = "HomePage" Name = "n/a" end if ' ** Get the computer name dim CompName CompName = request.servervariables("REMOTE_ADDR") ' ** remove Quote in Name Name = replace(Name, "'", "") ' ** write to database dim objConn dim objRS dim strSQL Set objConn = server.CreateObject("ADODB.Connection") objConn.Provider = "Microsoft.Jet.OLEDB.4.0" objConn.ConnectionString = "Data Source=" & Server.MapPath("\Database\DixieLog.mdb") objConn.open Set objRS = Server.Createobject("ADODB.Recordset") ' ** write to Director_View if director strSQL = "INSERT INTO Director_View (School, Conform, Name, Date_Time, MachAdd)" strSQL = strSQL & " VALUES (' " & SchoolLogName & "' , '" & PageName & "', '" & Name & "', #" & Now() & "#, '" & CompName & "');" set objRS = objConn.Execute(strSQL) set objRS = Nothing objConn.Close Set objConn = Nothing END IF End Function ' ************* INSERT INTO WBDI_View TABLE ********************* Function Procedure_WBDI_Log(PageName) Name = session("loggedOnAs") ' ** Get the computer name dim CompName CompName = request.servervariables("REMOTE_ADDR") ' ** write to database dim objConn dim objRS dim strSQL Set objConn = server.CreateObject("ADODB.Connection") objConn.Provider = "Microsoft.Jet.OLEDB.4.0" objConn.ConnectionString = "Data Source=" & Server.MapPath("\Database\DixieLog.mdb") objConn.open ' ** write to Director_View if director strSQL = "INSERT INTO WBDI_View (Name, Conform, Date_Time, MachAdd)" strSQL = strSQL & " VALUES ('" & Name & "', '" & PageName & "' , #" & Now() & "#, '" & CompName & "');" set objRS = objConn.Execute(strSQL) set objRS = Nothing objConn.Close Set objConn = Nothing End Function ' ************* INSERT INTO CDLog_View TABLE ********************* Function Procedure_CDLog(PageName) if session("loggedOnAs") > " " then SchoolName = left(session("schoolName"),30) Name = session("loggedOnAs") else SchoolName = "HomePage" Name = "n/a" end if ' ** Get the computer name dim CompName CompName = request.servervariables("REMOTE_ADDR") ' ** write to database dim objConn dim objRS dim strSQL Set objConn = server.CreateObject("ADODB.Connection") objConn.Provider = "Microsoft.Jet.OLEDB.4.0" objConn.ConnectionString = "Data Source=" & Server.MapPath("\Database\DixieLog.mdb") objConn.open ' ** write to CD_View if director strSQL = "INSERT INTO CDLog_View (School, Conform, Name, Date_Time, MachAdd)" strSQL = strSQL & " VALUES ('" & SchoolName & "', '" & PageName & "', '" & Name & "', #" & Now() & "#, '" & CompName & "');" set objRS = objConn.Execute(strSQL) set objRS = Nothing objConn.Close Set objConn = Nothing End Function ' ************* INSERT INTO Honor_View TABLE ********************* Function Procedure_HonorLog(PageName) if session("loggedOnAs") > " " then SchoolName = left(session("schoolName"),30) ' Name = session("loggedOnAs") else SchoolName = "HomePage" ' Name = "n/a" end if dim SchoolSearch if session("HonorSchool")>"" then SchoolSearch=session("HonorSchool") else SchoolSearch="" end if ' ** Get the computer name dim CompName CompName = request.servervariables("REMOTE_ADDR") ' ** write to database dim objConn dim objRS dim strSQL Set objConn = server.CreateObject("ADODB.Connection") objConn.Provider = "Microsoft.Jet.OLEDB.4.0" objConn.ConnectionString = "Data Source=" & Server.MapPath("\Database\DixieLog.mdb") objConn.open ' ** write to CD_View if director ' strSQL = strSQL & " VALUES ('" & SchoolName & "', '" & PageName & "', '" & Name & "', #" & Now() & "#, '" & CompName & "');" ' strSQL = "INSERT INTO Honor_View (School, Conform, SchoolSearch, Name, Date_Time, MachAdd)" ' strSQL = strSQL & " VALUES ('" & SchoolName & "', '" & PageName & "', '" & SchoolSearch & "', '" & Name & "', #" & Now() & "#, '" & CompName & "');" strSQL = "INSERT INTO Honor_View (School, Conform, SchoolSearch, Date_Time, MachAdd)" strSQL = strSQL & " VALUES ('" & SchoolName & "', '" & PageName & "', '" & SchoolSearch & "', #" & Now() & "#, '" & CompName & "');" set objRS = objConn.Execute(strSQL) set objRS = Nothing objConn.Close Set objConn = Nothing End Function ' ********************** INSERT INTO SCHEDULE_VIEW TABEL (Festival Info) ********************* Function Procedure_ScheduleLog(PageName) dim loggedOnAs loggedOnAs = session("loggedOnAs") if loggedOnAs > " " then SchoolName = session("loggedOnAs") else SchoolName = "HomePage" end if dim conn dim strSQL dim strMachAdd dim RS set conn = server.CreateObject("ADODB.Connection") conn.Provider = "Microsoft.Jet.OLEDB.4.0" conn.ConnectionString = "Data Source=" & Server.MapPath("\Database\DixieLog.mdb") conn.open strMachAdd=request.servervariables("REMOTE_ADDR") strSQL = "INSERT INTO Schedule_View (School, Conform, Date_Time, MachAdd)" strSQL = strSQL & " VALUES ('" & SchoolName & "', '" & FormVal & "', #" & Now() & "#, '" & strMachAdd & "');" SET RS = conn.Execute(strSQL) conn.Close End Function ' ********************** INSERT INTO LOCATION_VIEW TABLE ********************* Function Procedure_FestivalDates_View(PageName) dim MachAdd MachAdd=request.servervariables("REMOTE_ADDR") DatabasePath = server.mapPath("\DataBase\DixieLog.mdb") Dim DataConnection, cmdDC, RecordSet, SQL, strError '-- Create object and open database Set DataConnection = Server.CreateObject("ADODB.Connection") DataConnection.Provider = "Microsoft.Jet.OLEDB.4.0" DataConnection.ConnectionString = "Data Source=" & DatabasePath DataConnection.Open Set RS = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT last(ID) AS ID FROM Festival_Dates" RS.open strSQL, DataConnection, 1,3 ID=RS("ID") RS.close strSQL = "SELECT * FROM Festival_Dates where ID="&ID RS.open strSQL, DataConnection, 1,3 'response.write RS("ID") 'response.end dim ATL dim CHI dim RIC dim TN dim SL dim WA dim WIL dim NF dim FestPage dim LocaPage ATL=RS("ATL") CHI=RS("CHI") RIC=RS("RIC") TN=RS("TN") SL=RS("SL") WA=RS("WA") WIL=RS("WIL") NF=RS("NF") FestPage=RS("FestPage") LocaPage=RS("LocaPage") RS.addnew RS("MachADD") = MachAdd RS("Date_Time") = now() RS("ATL")=ATL RS("CHI")=CHI RS("RIC")=RIC RS("TN")=TN RS("SL")=SL RS("WA")=WA RS("WIL")=WIL RS("NF")=NF RS("FestPage")=FestPage RS("LocaPage")=LocaPage if PageName="ATL" then RS("ATL")=ATL+1 RS("VisitedPage")="Atlanta" end if if PageName="CHI" then RS("CHI")=CHI+1 RS("VisitedPage")="Chicago" end if if PageName="RIC" then RS("RIC")=RIC+1 RS("VisitedPage")="Richmond" end if if PageName="TN" then RS("TN")=TN+1 RS("VisitedPage")="Chattanooga" end if if PageName="SL" then RS("SL")=SL+1 RS("VisitedPage")="St Louis" end if if PageName="WA" then RS("WA")=WA+1 RS("VisitedPage")="Washington" end if if PageName="WIL" then RS("WIL")=WIL+1 RS("VisitedPage")="Williamsburg" end if if PageName="NF" then RS("NF")=NF+1 RS("VisitedPage")="Niagara Falls" end if if PageName="Location_Page" then RS("LocaPage")=LocaPage+1 RS("VisitedPage")="LocationPage" end if if PageName="Festival_Page" then RS("FestPage")=FestPage+1 RS("VisitedPage")="FestivalPage" end if RS.Update ' rs.close dataconnection.close End Function ' ********************** INSERT INTO STAFF_VIEW TABLE ********************* Function Procedure_StaffLog(PageName) SchoolName = session("loggedOnAs") Name = session("name") ' ** Get the computer name CompName = request.servervariables("REMOTE_ADDR") ' ** write to database dim objConn dim objRS dim strSQL Set objConn = server.CreateObject("ADODB.Connection") objConn.Provider = "Microsoft.Jet.OLEDB.4.0" objConn.ConnectionString = "Data Source=" & Server.MapPath("\Database\DixieLog.mdb") objConn.open ' ** write to Staff_View if staff strSQL = "INSERT INTO Staff_View (School, Conform, Name, Date_Time, MachAdd)" strSQL = strSQL & " VALUES ('" & SchoolName & "', '" & PageName & "', '" & Name & "', #" & Now() & "#, '" & CompName & "');" set objRS = objConn.Execute(strSQL) set objRS = Nothing objConn.Close Set objConn = Nothing End Function %> <% Function Procedure_LogPage(PageName) 'Get the computer name CompName = request.servervariables("REMOTE_ADDR") dim conn set conn = server.CreateObject("ADODB.Connection") conn.Provider = "Microsoft.Jet.OLEDB.4.0" 'Change the name of the database if it changes conn.ConnectionString = "Data Source=C:\Inetpub\websites\dixieclassic.com\DataBase\DixieLog.mdb" conn.open '#### Database is open 'Create the SQL statement 'Get the computer name, ID(cursor location), and page value 'Where value = the machine id SQL = "Select MACHID, ID, " & PageName & " from tbl_DC_Visitors WHERE MACHID ='" & CompName & "';" 'response.write SQL & "
" dim rs Set rs = conn.execute(SQL) 'If end of file (EOF) encountered then the value does not exist in the database 'So let's make a new record for that computer name dim val If NOT rs.EOF Then ' Record Returned 'Make sure the database record is a integer value, then increment it one... val = Cint(rs(2)) + 1 'Now update the record to reflect the updated hit SQLUpdate = "UPDATE tbl_DC_Visitors SET Date_Time='" & now & "', " & PageName & "= " & val & " WHERE ID =" & rs("ID") & ";" 'Execute the command SET rs= conn.execute(SQLUpdate) 'response.write SQLUpdate Else 'Record Does not exist 'First time in so the value is one val = 1 'Create new MACHID, Update Values 'SQLUpdate = "INSERT INTO tbl_DC_Visitors (MACHID, " & PageName & ") VALUES('" & CompName & "', " & val & ");" SQLUpdate = "INSERT INTO tbl_DC_Visitors (MACHID, " & PageName & ", Date_Time) VALUES('" & CompName & "', " & val & ", '" & now() & "');" 'Execute the command SET rs= conn.execute(SQLUpdate) ' response.write SQLUpdate End if 'Clean Up SET rs = Nothing conn.Close Set Conn = Nothing End Function ' ******* Insert view info into OFFICE_View table Function Procedure_OfficeLog(PageName) 'SchoolName = left(session("schoolName"),30) 'Name = session("loggedOnAs") ' ******* Get the computer name CompName = request.servervariables("REMOTE_ADDR") ' ****** write to database dim objConn dim objRS dim strSQL Set objConn = server.CreateObject("ADODB.Connection") objConn.Provider = "Microsoft.Jet.OLEDB.4.0" objConn.ConnectionString = "Data Source=" & Server.MapPath("\Database\DixieLog.mdb") objConn.open ' ****** write to Director_View if director strSQL = "INSERT INTO Office_Log (Conform, Date_Time, MachAdd)" strSQL = strSQL & " VALUES ('" & PageName & "', #" & Now() & "#, '" & CompName & "');" set objRS = objConn.Execute(strSQL) set objRS = Nothing objConn.Close Set objConn = Nothing End Function ' ********************** LOG MUSIC REQUEST IN DixieLog ********************* Function Procedure_MusicListView dim strMachAdd strMachAdd=request.servervariables("REMOTE_ADDR") Dim DataConnection, cmdDC, RecordSet, SQL, strError, RS Set DataConnection = Server.CreateObject("ADODB.Connection") DataConnection.Provider = "Microsoft.Jet.OLEDB.4.0" DataConnection.ConnectionString = "Data Source=" & Server.MapPath("\database\DixieLog.mdb") DataConnection.Open Set RS = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM MusicList_View" RS.open strSQL, DataConnection, 1,3 RS.addnew RS("Category")= Category RS("SearchType")= SearchType RS("Date_Time") = now() RS("MachAdd")=strMachAdd RS.Update rs.close dataconnection.close End Function ' ************* End Login Info *************** %> <% Procedure_MusicListView ' ************* End Log Visit ************** %>