<%@ Language=VBScript EnableSessionState=False %> <% Option Explicit Response.buffer = True dim v60,filename,useMysql,v127,v22,v18,v69,v44,v138,v105,v115,v70,v112,v122,v149,v148,v48,v50,v73,v63,v154,v24,v72,defaultVisualBaseName,bkgdColor,scrollInfoDisplay,tptBkgd,forceXMLplaylist,randomOnLoad,shuffleOnLoad,defaultImage,voteScript,trackPlays,wimpyApp,wimpySwf,v39,useConfigFile,v109,randomButtonState,startOnTrack,autoAdvance,bufferAudio,v124,v123,v133,v131,v94,wimpySkin,useSysCodePage,serveMP3 dim v120,ecomWindow,strAbv116,v132,v104,v5,hide_files,v150,j,v145,items,v54,v108,v117,v1,v53,v98,v118,totalv7,v155,v7,v119,tf,fso,v83,v78,v25,QueryString,playerH,playerW,playerSize_value,v140,destination,v141,v2,v3,v137,v66,v134,v136,v67,v135,v116,v4,v57,v151,v152,defaultVisualExt,defaultVisualName,ecommerce,forceDownload,hide_folders,defaultPlaylistFilename,myDataSetup,pwd,user,table,db,v64 dim v147,v113,theVolume,popUpHelp,startPlayingOnload,defaultPlayRandom,infoDisplayTime,displayDownloadButton,background_color,wimpyHTMLpageTitle,playlisterOutputDirName,getMyid3info,action,theFile,v59,queryValue,queryWhere,v92,dir,v41,v107,v106,retval,MP3,v130,v65,v100,v58,v40,v96,v19,v0,v6,v74,v46,v23,v143,v139,x,v101,v103,v102,v37,v15,v79,v55,v56,v49,v80,v128,v84,i,try,k dim v146,v82,v16,v71,v86,v47,v17,v81,bob,v9,v11,v12,v14,v99,b,v51,v68,v43,v8,v126,v76,v77,v89,v85,v90,v93,v87,v111,v110,v45,v142,v52,v35,v27,v26,v36,v33,v29,v28,v31,v34,v30,v32,v121,v21,fs,v62,value,v75,v13,v10,v42,theWidth,theHeight,v114,v61 dim v153,v91,httpOption,startDir,loopPlaylist,wimpyVersion,wimpyConfigFile,myWimpySWFfilename,wimpy_auth,media_types,mediaExtMp3,myCodePage,useCustomCharset,myCharSet,fileSortOrder,v95,v125,v38 Response.Clear '// // '// available at http://www.wimpyplayer.com // '// ©2002-2010 plaino // '// // '// by Mike Gieson // '// available at http://www.wimpyplayer.com // '// ©2002-2006 plaino // '// // '// // '// // '///////////////////////////////////////////////////////////////// '// // '// INSTALLATION: // '// // '///////////////////////////////////////////////////////////////// '// '// Upload wimpy.php and wimpy.swf to the folder that '// contains your mp3's. '// '// USE AT YOUR OWN RISK. '// wimpyVersion = "v6.0.26" wimpyConfigFile = "wimpyConfigs.xml" myWimpySWFfilename = "wimpy.swf" media_types = "xml,mp3" mediaExtMp3 = "mp3" ' httpOption = "https" httpOption = "http" '// '// Character Mapping '// If you are experiencing problems displaying glyphs and other '// double-byte (multibyte) characters, set myCharSet '// for your language's characters set here. '// '// For more information on "codepage" see: '// http://msdn.microsoft.com/library/default.asp?url=/library/en-us/iissdk/html/268f1db1-9a36-4591-956b-d7269aeadcb0.asp '// '// For more information on "CharSet" see: '// http://msdn.microsoft.com/library/default.asp?url=/workshop/author/dhtml/reference/charsets/charset4.asp '// '// In order to use a custom character mapping, you must "useCustomCharset" to "yes" '// '// Example: '// useCustomCharset = "yes" '// useCustomCharset = "no" myCodePage = 65001 myCharSet = "uft-8" '// '// fileSortOrder '// Controls the sort order of how the files should be listed. '// Can be set to: '//"asc" - sort the files in alphabetically acending order (A-Z) '//"des" - sort the files in alphabetically descenting order (Z-A) '// fileSortOrder = "des" 'fileSortOrder = "asc" '///////////////////////////////////////////////////////////////// '// // '// Do not edit anything below here unless // '// you really know what you are doing! // '// // '///////////////////////////////////////////////////////////////// '///////////////////////////////////////////////////////////////// '///////////////////////////////////////////////////////////////// '///////////////////////////////////////////////////////////////// '///////////////////////////////////////////////////////////////// '//> myDataSetup = "filename|artist|album|title|track|comments|genre|seconds|filesize|bitrate|visual" set v58 = CreateObject("Scripting.FileSystemObject") set v40 = CreateObject("Scripting.Dictionary") v40.add "physical", v58.getparentfoldername(request.servervariables("PATH_TRANSLATED")) v91 = v40("physical") v40.add "www", httpOption & "://" & request.servervariables("SERVER_NAME") & v58.getparentfoldername(request.servervariables("PATH_INFO")) v18 = split(request.servervariables("PATH_INFO"), "/") v96 = v18(Ubound(v18)) set v39 = CreateObject("Scripting.Dictionary") set v44 = CreateObject("Scripting.FileSystemObject") useConfigFile = false If v44.FileExists((v40("physical") & "\" & wimpyConfigFile)) Then Set v109 = Server.CreateObject("Microsoft.XMLDOM") v109.async = False v109.Load (v40("physical") & "\" & wimpyConfigFile) If v109.parseError.errorCode <> 0 Then useConfigFile = false else useConfigFile = true end if if useConfigFile = true then Set v115 = v109.documentElement Set v105 = v115.getElementsByTagName("*") if v105.length > 4 then For i = 0 to (v105.length-1) v39.add v105.item(i).nodeName, v105.item(i).text Next end if end if end if set v44 = nothing If v39.Exists("wimpySwf") = false Then v39.add "wimpySwf", v40("www") & "/" & myWimpySWFfilename end if If v39.Exists("wimpyApp") = false Then v39.add "wimpyApp", v40("www") & "/" & v96 end if If v39.Exists("wimpySkin") = false Then v39.add "wimpySkin", "" end if If v39.Exists("tptBkgd") = false Then v39.add "tptBkgd", "" end if If v39.Exists("defaultVisualExt") = false Then v39.add "defaultVisualExt", "jpg" end If If v39.Exists("defaultVisualBaseName") = false Then v39.add "defaultVisualBaseName", "coverart" end if If v39.Exists("bkgdColor") = false Then v39.add "bkgdColor", "000000" end if If v39.Exists("startDir") = false Then v39.add "startDir", "" end if If v39.Exists("hide_folders") = false Then v39.add "hide_folders", "goodies,playlister_output,skins,getid3,_private,_private,_vti_bin,_vti_cnf,_vti_pvt,_vti_txt,cgi-bin" end if If v39.Exists("hide_files") = false Then v39.add "hide_files", "skin.xml,wimpyConfigs.xml,wimpyAVConfigs.xml,wimpy.swf,wimpyAV.swf,wasp.swf,wimpy_button.swf" end if If v39.Exists("wimpyHTMLpageTitle") = false Then v39.add "wimpyHTMLpageTitle", "Wimpy Player" end if If v39.Exists("getMyid3info") = false Then v39.add "getMyid3info", "" end if If v39.Exists("ecommerce") = false Then v39.add "ecommerce", "" end If If v39.Exists("v50") = false Then v39.add "v50", 0 end If If v39.Exists("v48") = false Then v39.add "v48", 0 end If wimpySwf = v39("wimpySwf") wimpyApp = v39("wimpyApp") tptBkgd = v39("tptBkgd") bkgdColor = v39("bkgdColor") startDir = v39("startDir") hide_folders = v39("hide_folders") hide_files = v39("hide_files") wimpyHTMLpageTitle = v39("wimpyHTMLpageTitle") getMyid3info = v39("getMyid3info") ecommerce = v39("ecommerce") wimpySkin = v39("wimpySkin") defaultVisualExt = v39("defaultVisualExt") defaultVisualBaseName = v39("defaultVisualBaseName") if ecommerce = "yes" then forceDownload = "no" displayDownloadButton = "yes" getMyid3info = "yes" end if v148 = true if IsEmpty(Request.QueryString("action")) then if len(wimpySkin)>4 then Set v109 = Server.CreateObject("MSXML2.DOMDocument") v109.setProperty "ServerHTTPRequest", true v109.async = False v109.Load (wimpySkin) If NOT v109.parseError.errorCode <> 0 Then Set v115 = v109.getElementsByTagName("bkgd_main") v50 = v115.item(0).getAttribute("width") v48 = v115.item(0).getAttribute("height") v148 = true end if set v115 = nothing set v109 = nothing else v148 = false end if if v50 < 1 or v48 < 1 then v148 = false v50 = 480 v48 = 140 end if end If if NOT startDir = "" Then v40("physical") = startDir end if v5 = Split(hide_files, ",") v6 = Split(hide_folders, ",") v41 = Split("Blues,Classic Rock,Country,Dance,Disco,Funk,Grunge,Hip-Hop,Jazz,Metal,New Age,Oldies,Other,Pop,R&B,Rap,Reggae,Rock,Techno,Industrial,Alternative,Ska,Death Metal,Pranks,Soundtrack,Euro-Techno,Ambient,Trip-Hop,Vocal,Jazz+Funk,Fusion,Trance,Classical,Instrumental,Acid,House,Game,Sound Clip,Gospel,Noise,Altern Rock,Bass,Soul,Punk,Space,Meditative,Instrumental Pop,Instrumental Rock,Ethnic,Gothic,Darkwave,Techno-Industrial,Electronic,Pop-Folk,Eurodance,Dream,Southern Rock,Comedy,Cult,Gangsta,Top 40,Christian Rap,Pop/Funk,Jungle,Native American,Cabaret,New Wave,Psychadelic,Rave,Showtunes,Trailer,Lo-Fi,Tribal,Acid Punk,Acid Jazz,Polka,Retro,Musical,Rock & Roll,Hard Rock,Folk,Folk/Rock,National Folk,Swing,Bebob,Latin,Revival,Celtic,Bluegrass,Avantgarde,Gothic Rock,Progressive Rock,Psychedelic Rock,Symphonic Rock,Slow Rock,Big Band,Chorus,Easy Listening,Acoustic,Humour,Speech,Chanson,Opera,Chamber Music,Sonata,Symphony,Booty Bass,Primus,Porn Groove,Satire,Slow Jam,Club,Tango,Samba,Folklore", ",") v0 = split(myDataSetup, "|") function f5(theURL) v139 = v40("www") & "/" f5 = v40("physical") & "\" & Replace(Replace(theURL, v139, ""), "/", "\") end function function f4(theFilePath) v139 = v40("physical") & "\" f4 = Replace(theFilePath, v139, "") end function function f6(theURL) v139 = v40("www") & "/" f6 = Replace(theURL, v139, "") end function function f2(theString_in) v99 = "" b = 0 for i=0 to len(theString_in)-1 b = b + 1 v51 = false v68 = mid(theString_in, b, 1) v43 = Asc(v68) if v43 < 46 then bob = "%" & Hex(v43) elseif v43 > 58 AND v43 < 65 then bob = "%" & Hex(v43) elseif v43 > 90 AND v43 < 97 then bob = "%" & Hex(v43) else bob = v68 end if v99 = v99 & bob next f2 = v99 end function function f3(theStringIn) f3 = Server.URLEncode(theStringIn) end function function f0(thebytes) For x = 1 to LenB(thebytes) If AscB(MidB(thebytes, x, 1)) <> 0 Then f0 = f0 & Chr(AscB(MidB(thebytes, x, 1))) End If Next End Function Function sortArray(array_in, order) dim v20() ReDim v20(UBound(array_in)) Set v38 = Server.CreateObject ("ADODB.RecordSet") v38.Fields.Append "S", 200, 255 v38.Open For i = 0 To UBound(array_in) v38.AddNew v38.Fields(0) = array_in(i) v38.Update Next If order = "des" Then v38.Sort = "S DESC" End If If order = "asc" Then v38.Sort = "S ASC" End If For i=1 to v38.RecordCount v20(i-1) = v38(0) v38.MoveNext Next Set v38 = Nothing sortArray = v20 end function function f1(sPath) redim AmyFiles(0) redim v82(Ubound(v0)) Set v101 = CreateObject("Scripting.FileSystemObject") Set v107 = v101.GetFolder(sPath) Set v106 = Server.CreateObject("ADODB.Stream") v106.Type = 1 v46 = 0 v24 = "" Set v37 = CreateObject("Scripting.FileSystemObject") Set v15 = v107.SubFolders redim v16(v15.Count) v128 = 0 For Each v80 in v15 v16(v128) = v80.Name v128 = v128 + 1 next For Each v79 in v16 v49 = true if Len(join(Filter(v6, v79), "")) > 0 then v49 = false end if if InStr(LCase(v79), "skin") > 0 then v49 = false end if if v49 = true then v82(0) = v74 & "/" & v79'v55("filename") v82(1) = v79 'v55("artist") v82(2) = "" 'v55("album") v82(3) = v79 'v55("title") v82(4) = "" 'v55("track") v82(5) = "" 'v55("comments") v82(6) = "" 'v55("genre") v82(7) = "" 'v55("seconds") v82(8) = "" 'v55("filesize") v82(9) = "" 'v55("bitrate") v82(10) = "" 'v55("visual") for k=0 to Ubound(v82) v82(k) = f3(v82(k)) Next v24 = v24 & "&item" & v46 & "=" & join(v82, "|") v46 = v46 + 1 end if Next v8 = split(media_types, ",") v125 = "yes" If fileSortOrder = "asc" Then v125 = "no" End If If fileSortOrder = "des" Then v125 = "no" End if If v125 = "no" Then v95 = sortArray(AmyFiles, fileSortOrder) Else v95 = AmyFiles End If For Each MP3 in v107.Files if Not LCase(MP3.name) = LCase(join(Filter(v5, MP3.name, true), "")) Then if LCase(v37.GetExtensionName(MP3)) = LCase(join(Filter(v8, LCase(v37.GetExtensionName(MP3)), true), "")) then set v55 = CreateObject("Scripting.Dictionary") v56 = MP3.name v126 = false v55.add "filename", v74 & "/" & v56 if LCase(v37.GetExtensionName(MP3)) = LCase(mediaExtMp3) then If getMyid3info= "yes"Then v55.add "filesize", Round((MP3.Size * .000001), 2) v106.Open v106.LoadFromFile MP3.Path v106.Position = v106.Size - 128 If UCase(f0(v106.Read(3))) = "TAG" Then v55.add "title", f0(v106.Read(30)) v55.add "artist", f0(v106.Read(30)) v55.add "album", f0(v106.Read(30)) v55.add "track", f0(v106.Read(4)) v130 = v106.Read(30) If AscB(MidB(v130, 29, 1)) = 0 AND AscB(MidB(v130, 30, 1)) > 0 AND AscB(MidB(v130, 30, 1)) < 256 Then v55.add "comments", f0(LeftB(v130, 28)) Else v55.add "comments", f0(v130) End If v55.add "genre", "" Else v55.add "artist", "" v55.add "album", "" v55.add "title", "" v55.add "track", "" v55.add "comments", "" v55.add "genre", "" End If v106.Close v55.add "bitrate", "" v55.add "seconds", "" else v55.add "filesize", "" v55.add "artist", "" v55.add "album", "" v55.add "title", "" v55.add "track", "" v55.add "comments", "" v55.add "genre", "" v55.add "bitrate", "" v55.add "seconds", "" End If Else if InStr(LCase(MP3.name), "skin") > 0 then v126 = true end if if InStr(LCase(MP3.name), "config") > 0 then v126 = true end if if v126 = false then v55.add "filesize", "" v55.add "artist", "" v55.add "album", "" v55.add "title", "" v55.add "track", "" v55.add "comments", "" v55.add "genre", "" v55.add "bitrate", "" v55.add "seconds", "" end if set v115 = nothing set v109 = nothing End If if v126 = false then v4 = left(v56,InStrRev(v56, ".")-1) v57 = v4 & "." & defaultVisualExt v151 = v74 & "/" & v57 v152 = f5(v151) If v37.FileExists(v152) Then if not startDir = "" then v151 = v40("www") & "/" & v96 & "?action=getCoverart&theFile=" & v151 end if v55.add "visual", v151 else v55.add "visual", "" End If for k=0 to Ubound(v0) v82(k) = f3(v55(v0(k))) next redim Preserve AmyFiles(v46) AmyFiles(v46) = "&item" & v46 & "=" & join(v82, "|") v46 = v46 + 1 end if set v55 = nothing end if end if Next v151 = v74 & "/" & defaultVisualBaseName & "." & defaultVisualExt v152 = f5(v151) If v37.FileExists(v152) Then if not startDir = "" then v151 = f3(v40("www") & "/" & v96 & "?action=getCoverart&theFile=" & v151) end if v150 = "&visualURL=" & v151 else v150 = "" End If Set v106 = Nothing Set v107 = Nothing Set v101 = Nothing v24 = v24 & join(AmyFiles, "") f1 = v24 & "&datasetup=" & myDataSetup & v150 & "&totalitems=" & v46 end Function if IsEmpty(Request.QueryString("getMyid3info")) then getMyid3info = getMyid3info else getMyid3info = Request.QueryString("getMyid3info") end if if IsEmpty(Request.QueryString("action")) then action = "" else action = Request.QueryString("action") end if if IsEmpty(Request.QueryString("theFile")) then theFile = "" else theFile = Request.QueryString("theFile") end if if IsEmpty(Request.QueryString("filename")) then filename = "" else filename = Request.QueryString("filename") end if if IsEmpty(Request.QueryString("dir")) then dir = "" else dir = Request.QueryString("dir") end if if IsEmpty(Request.QueryString("useMysql")) then useMysql = "" else useMysql = Request.QueryString("useMysql") end if if IsEmpty(Request.QueryString("destination")) then destination = "" else destination = Request.QueryString("destination") end if if IsEmpty(Request.QueryString("items")) then items = "" else items = Request.QueryString("items") end if if IsEmpty(Request.QueryString("queryValue")) then queryValue = "" else queryValue = Request.QueryString("queryValue") end if if IsEmpty(Request.QueryString("queryWhere")) then queryWhere = "" else queryWhere = Request.QueryString("queryWhere") end if if not isEmpty(Request.QueryString("defaultVisualExt")) then defaultVisualExt = Request.QueryString("defaultVisualExt") end If if not isEmpty(Request.QueryString("defaultVisualBaseName")) then defaultVisualBaseName = Request.QueryString("defaultVisualBaseName") end if Function URLDecode(byVal v54) v134 = v54 : v136 = _ "" : v67 = Instr(v134, "+") Do While v67 v135 = "" : v137 = "" If v67 > 1 then _ v135 = Left(v134, v67 - 1) If v67 < len(v134) then _ v137 = Mid(v134, v67 + 1) v134 = v135 & " " & v137 v67 = InStr(v134, "+") v66 = v66 + 1 Loop v67 = InStr(v134, "%") Do while v67 If v67 > 1 then _ v136 = v136 & _ Left(v134, v67 - 1) v136 = v136 & _ Chr(CInt("&H" & _ mid(v134, v67 + 1, 2))) If v67 > (len(v134) - 3) then v134 = "" Else v134 = Mid(v134, v67 + 3) End If v67 = InStr(v134, "%") Loop URLDecode = v136 & v134 End Function Function formatDate(myDate, offset) dim v88,v97 myDate = CDate(myDate) v76 = WeekdayName(Weekday(myDate),true) v77 = Day(myDate) v88 = MonthName(Month(myDate), true) v97 = Year(myDate) v85 = zeroPad(Hour(myDate), 2) v87 = zeroPad(Minute(myDate), 2) v93 = zeroPad(Second(myDate), 2) formatDate = v76&", "& _ v77&" "& _ v88&" "& _ v97&" "& _ v85&":"& _ v87&":"& _ v93&" "& _ offset End Function Function zeroPad(m, t) zeroPad = String(t-Len(m),"0")&m End Function v72 = false function f7(theString) v138 = theString v138 = Replace(v138, Chr(10), "x") v138 = Replace(v138, Chr(13), "x") v138 = Replace(v138, Chr(9), "x") v138 = Replace(v138, "\", "x") v138 = Replace(v138, "./", "x") v138 = Replace(v138, "..", "x") f7 = v138 end function If action="getVersion" Then Response.Write wimpyVersion elseif action="dir" Then If useCustomCharset="yes" then Response.codepage = myCodePage Response.CharSet = myCharSet End if v74 = dir retval = f1(f5(f7(v74))) Response.Write retval ElseIf action="getCoverart" Then v1 = split(theFile, "/") v53 = v1(Ubound(v1)) v116 = v40("physical") & "\" & Replace(theFile, v40("www") & "/", "") strAbv116 = v116 Set v101 = Server.CreateObject("Scripting.FileSystemObject") If v101.FileExists(strAbv116) Then Set v104 = v101.GetFile(strAbv116) Response.AddHeader "Pragma", "public" Response.AddHeader "Expires", "Thu, 19 Nov 1981 08:52:00 GMT" Response.AddHeader "Cache-Control", "must-revalidate, post-check=0, pre-check=0" Response.AddHeader "Cache-Control", "no-store, no-cache, must-revalidate" Response.AddHeader "Cache-Control", "private" Response.AddHeader "Content-Length", v104.Size Response.ContentType = "image/jpeg" Set v108 = Server.CreateObject("ADODB.Stream") v108.Open v108.Type = 1 If useCustomCharset="yes" then Response.codepage = myCodePage Response.CharSet = myCharSet End if v108.LoadFromFile(strAbv116) Response.BinaryWrite(v108.Read) v108.Close Set v108 = Nothing Set v104 = Nothing End If Set v101 = Nothing ElseIf action="serveMP3" OR action="downloadfile" Then if not startDir = "" then v1 = split(theFile, "/") v53 = v1(Ubound(v1)) v116 = v40("physical") & "\" & Replace(theFile, v40("www") & "/", "") strAbv116 = v116 else v116 = f5(f7(theFile)) v1 = split(theFile, "/") v53 = v1(Ubound(v1)) v116 = Replace(theFile, v40("www") & "/", "") strAbv116 = Server.MapPath(v116) end if Set v101 = Server.CreateObject("Scripting.FileSystemObject") If v101.FileExists(strAbv116) Then Set v104 = v101.GetFile(strAbv116) Response.AddHeader "Pragma", "public" Response.AddHeader "Expires", "Thu, 19 Nov 1981 08:52:00 GMT" Response.AddHeader "Cache-Control", "must-revalidate, post-check=0, pre-check=0" Response.AddHeader "Cache-Control", "no-store, no-cache, must-revalidate" Response.AddHeader "Cache-Control", "private" if action="downloadfile" Then Response.AddHeader "Content-Disposition", ("attachment; filename=""" & v104.Name & """") end if Response.AddHeader "Content-Length", v104.Size Response.ContentType = "audio/x-mpeg, audio/x-mpeg-3, audio/mpeg3" Set v108 = Server.CreateObject("ADODB.Stream") v108.Open v108.Type = 1 If useCustomCharset="yes" then Response.codepage = myCodePage Response.CharSet = myCharSet End if v108.LoadFromFile(strAbv116) Response.BinaryWrite(v108.Read) v108.Close Set v108 = Nothing Set v104 = Nothing End If Set v101 = Nothing ElseIf action="getstartupdirlist" Then If useCustomCharset="yes" then Response.codepage = myCodePage Response.CharSet = myCharSet End if v74 = v40("www") retval = f1(v40("physical")) Response.Write retval Else queryString = "" queryString = queryString & wimpySwf if useConfigFile = true then queryString = queryString & "?wimpyConfigs=" & v40("www") & "/" & wimpyConfigFile else queryString = queryString & "?wimpyApp=" & wimpyApp end if v120 = VBNewLine if bkgdColor = "" then bkgdColor = "000000" end if if tptBkgd = "yes" then v149 = true else v149 = false end if if v149 then v146 = "wmode=""transparent" v147 = "" & v120 else v146 = "" v147 = "" end if v60 = "" & v120 v60 = v60 & "" & v120 v60 = v60 & "" & wimpyHTMLpageTitle & "" & v120 v60 = v60 & "" & v120 v60 = v60 & "" & v120 v60 = v60 & "" & v120 v60 = v60 & " " & v120 v60 = v60 & "" & v120 v60 = v60 & "" & v120 v60 = v60 & "
" & v120 v60 = v60 & "" & v120 v60 = v60 & "" & v120 v60 = v60 & "" & v120 v60 = v60 & "" & v120 v60 = v60 & "" & v120 v60 = v60 & "" & v120 v60 = v60 & "" & v120 v60 = v60 & "" & v120 v60 = v60 & v147 v60 = v60 & "" & v120 v60 = v60 & "
" & v120 v60 = v60 & "" & v120 v60 = v60 & "" & v120 Response.Write v60 End If set v58 = nothing set v40 = nothing set v39 = Nothing Response.Flush %>