/&artistname&amp ;/
ASKER
ASKER
ASKER
ASKER
The & issue may have been my sql database which had tons of unwanted characters embedded in the rows.
ASKER
ASKER
ASKER
<%
if request.form<>"" then
dim fs,fname, pathToPlayList
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fname=fs.CreateTextFile("m:\playlist\myplaylist_"&Session.SessionID&".m3u",true)
pathToPlayList="/playlist/myplaylist_"&Session.SessionID&".m3u"
strSongs=request.form("selectItem")
arraySongs=split(strSongs,",")
response.write "<ul>"
fname.WriteLine "#EXTM3U" '** M3U'
for each song in arraySongs
response.write "<li><a href=""" & replace(song,"M:\Music","/mp3") & """>" & song & "</a></li>"
fname.WriteLine "#EXTINF:000, "& makeSongName(song)
fname.WriteLine "http://www.tomsmp3.com"&replace(replace(replace(trim(song),"M:\Music","/mp3"),"\","/")," ","%20")
next
response.write "</ul>"
fname.Close
else
response.write "You did not post any data yet<br>"
end if
set fname=nothing
set fs=nothing
function makeSongName(song)
p = InStrRev(song,"\",-1)
makeSongName = mid(song,p+1,len(song)-p)
end function
%>
<input type="button" value="BACK!"onClick="history.back();">
<button value="Playlist" onclick="window.location = '<%=pathToPlayList%>'"> Playlist </button>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Response.Buffer = false%>
<!-- #include file="db_connection.inc" -->
{"data": [
<%
Set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open strConnect
strSQL1 = "SELECT dbo.Artists.artistname, dbo.Recordings.RecordingTitle, dbo.Tracks.TrackTitle, dbo.Tracks.TrackFileName FROM dbo.Artists INNER JOIN dbo.Recordings ON dbo.Artists.artistid = dbo.Recordings.ArtistID INNER JOIN dbo.Tracks ON dbo.Recordings.RecordingID = dbo.Tracks.RecordingID "
Set oRs1=oConn.Execute(strSQL1,lngRecs,1)
' send data to an array'
if not oRs1.eof then
myArray=oRs1.getrows()
end if
oRs1.Close
Set oRs1 = Nothing
oConn.Close
Set oConn = Nothing
for r = LBound (myArray,2) to UBound(myArray,2)
artistname = myArray(0, r)
RecordingTitle = myArray(1, r)
TrackTitle = myArray(2, r)
TrackFileName = myArray(3, r)
TrackFileUrl = replace(TrackFileName,"M:\Music\","\mp3\")
'M:\Music\MP3MusicAlbums\!!!\Louden Up Now\01-Louden Up Now-When The Going Gets Tough The Tough Gets Krazee.mp3
' convert to'
'\mp3\MP3MusicAlbums\!!!\Louden Up Now\01-Louden Up Now-When The Going Gets Tough The Tough Gets Krazee.mp3
TrackFileLink = "<a href="&"[x]"&TrackFileUrl&"[x]"&">"&TrackTitle&"</a>"
theURL = replace("["&chr(34)&artistname&chr(34)&","&chr(34)&RecordingTitle&chr(34)&","&chr(34)&TrackTitle&chr(34)&","&chr(34)&TrackFileLink&chr(34)&"]","\","\\")
theURL = replace(theURL,"[x]","\"&chr(34))
response.write theURL
if r < UBound(myArray,2) then
response.write ","
end if
next
%>
]}
<input type="button" value="BACK!"onClick="history.back() ;">
ASKER
<!-- #include file="db_connection.inc" -->
<%
dim searchWord
dim strFont1
dim strFont2
searchWord = Request.Querystring("genre")
strFont1 = "<font style=""font-size: 20px; color: #ff0000; font-family:verdana"">"
strFont2 = "<font style=""font-size: 16px; color: #000000; font-family:verdana"">"
Set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open strConnect
strSQL1 = "SELECT TOP 1000 dbo.Artists.artistname, dbo.Recordings.RecordingTitle, dbo.Tracks.TrackTitle, dbo.Tracks.TrackFileName FROM dbo.Artists INNER JOIN dbo.Recordings ON dbo.Artists.artistid = dbo.Recordings.ArtistID INNER JOIN dbo.Tracks ON dbo.Recordings.RecordingID = dbo.Tracks.RecordingID WHERE (dbo.Recordings.genre = '"&searchWord&"')"
Set oRs1=oConn.Execute(strSQL1,lngRecs,1)
%>
<form method="post" action="music3.asp">
<%
Response.Write strFont1 & "Select Songs you Wish to Add to Your Playlist then click on Submit button<br />"
Response.Write "<br />"
if not oRs1.eof then
do until oRs1.eof
response.write strFont2 & "<div class=""results""><input type=""checkbox"" name=""selectItem"" value="""&oRs1("TrackFileName")&"""> "&oRs1("artistname")&" "&oRs1("RecordingTitle")&" "&oRs1("TrackTitle")&" "&oRs1("TrackFileName")&"</div>"
oRs1.movenext
loop
end if
%>
<button type="submit">Submit</button> <input type="button" value="BACK!" onClick="history.back();">
</form>
ASKER
<!DOCTYPE html>
<head>
files references go here, as well as javascript code
</head>
<body>
<form method="post" action="music3.asp">
<font style="font-size: 20px; color: #ff0000; font-family:verdana">Select Songs you Wish to Add to Your Playlist then click on Submit button<br /><br />
all of your content
<button type="submit">Submit</button> <input type="button" value="BACK!" onClick="history.back();">
</form>
</body>
</html>
ASKER
<!DOCTYPE html>
<html>
<head>
<title> document title </title>
</head>
<body>
content goes here...
</body>
</html>
ASKER
<!-- #include file="db_connection.inc" -->
<%
dim searchWord
dim strFont1
dim strFont2
searchWord = Request.Querystring("genre")
strFont1 = "<font style=""font-size: 20px; color: #ff0000; font-family:verdana"">"
strFont2 = "<font style=""font-size: 16px; color: #000000; font-family:verdana"">"
Set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open strConnect
strSQL1 = "SELECT TOP 100 dbo.Artists.artistname, dbo.Recordings.RecordingTitle, dbo.Tracks.TrackTitle, dbo.Tracks.TrackFileName FROM dbo.Artists INNER JOIN dbo.Recordings ON dbo.Artists.artistid = dbo.Recordings.ArtistID INNER JOIN dbo.Tracks ON dbo.Recordings.RecordingID = dbo.Tracks.RecordingID WHERE (dbo.Recordings.genre = '"&searchWord&"')"
Set oRs1=oConn.Execute(strSQL1,lngRecs,1)
%>
<!DOCTYPE html>
<head></head>
<body>
<form method="post" action="music3.asp">
<%
Response.Write strFont1 & "Select Songs you Wish to Add to Your Playlist then click on Submit button<br />"
Response.Write "<br />"
if not oRs1.eof then
do until oRs1.eof
response.write strFont2 & "<div class=""results""><input type=""checkbox"" name=""selectItem"" value="""&oRs1("TrackFileName")&"""> "&oRs1("artistname")&" "&oRs1("RecordingTitle")&" "&oRs1("TrackTitle")&" "&oRs1("TrackFileName")&"</div>"
oRs1.movenext
loop
end if
%>
<button type="submit">Submit</button> <input type="button" value="BACK!" onClick="history.back();">
</form>
</body>
</html>
ASKER
<!-- #include file="db_connection.inc" -->
<%
dim searchWord
dim strFont1
dim strFont2
searchWord = Request.Querystring("genre")
strFont1 = "<font style=""font-size: 20px; color: #ff0000; font-family:verdana"">"
strFont2 = "<font style=""font-size: 16px; color: #000000; font-family:verdana"">"
Set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open strConnect
strSQL1 = "SELECT TOP 100 dbo.Artists.artistname, dbo.Recordings.RecordingTitle, dbo.Tracks.TrackTitle, dbo.Tracks.TrackFileName FROM dbo.Artists INNER JOIN dbo.Recordings ON dbo.Artists.artistid = dbo.Recordings.ArtistID INNER JOIN dbo.Tracks ON dbo.Recordings.RecordingID = dbo.Tracks.RecordingID WHERE (dbo.Recordings.genre = '"&searchWord&"')"
Set oRs1=oConn.Execute(strSQL1,lngRecs,1)
%>
<!DOCTYPE html>
<html>
<head></head>
<body>
<form method="post" action="music3.asp">
<%
Response.Write strFont1 & "Select Songs you Wish to Add to Your Playlist then click on Submit button<br />"
Response.Write "<br />"
if not oRs1.eof then
do until oRs1.eof
response.write strFont2 & "<div class=""results""><input type=""checkbox"" name=""selectItem"" value="""&oRs1("TrackFileName")&"""> "&oRs1("artistname")&" "&oRs1("RecordingTitle")&" "&oRs1("TrackTitle")&" "&oRs1("TrackFileName")&"</div>"
oRs1.movenext
loop
end if
%>
<button type="submit">Submit</button> <input type="button" value="BACK!" onClick="history.back();">
</form>
</body>
</html>
ASKER
<!-- #include file="db_connection.inc" -->
<%
dim searchWord
dim strFont1
dim strFont2
searchWord = Request.Querystring("genre")
strFont1 = "<font style=""font-size: 20px; color: #ff0000; font-family:verdana"">"
strFont2 = "<font style=""font-size: 16px; color: #000000; font-family:verdana"">"
Set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open strConnect
strSQL1 = "SELECT TOP 100 dbo.Artists.artistname, dbo.Recordings.RecordingTitle, dbo.Tracks.TrackTitle, dbo.Tracks.TrackFileName FROM dbo.Artists INNER JOIN dbo.Recordings ON dbo.Artists.artistid = dbo.Recordings.ArtistID INNER JOIN dbo.Tracks ON dbo.Recordings.RecordingID = dbo.Tracks.RecordingID WHERE (dbo.Recordings.genre = '"&searchWord&"')"
Set oRs1=oConn.Execute(strSQL1,lngRecs,1)
%>
<!DOCTYPE html>
<html>
<head></head>
<body>
<form method="post" action="music3.asp">
<%
Response.Write strFont1 & "Select Songs you Wish to Add to Your Playlist then click on Submit button</font><br />"
Response.Write "<br />"
if not oRs1.eof then
do until oRs1.eof
response.write strFont2 & "<div class=""results""><input type=""checkbox"" name=""selectItem"" value="""&oRs1("TrackFileName")&"""> "&oRs1("artistname")&" "&oRs1("RecordingTitle")&" "&oRs1("TrackTitle")&" "&oRs1("TrackFileName")&"</div>/font>"
oRs1.movenext
loop
end if
%>
<button type="submit">Submit</button> <input type="button" value="BACK!" onClick="history.back();">
</form>
</body>
</html>
ASKER
<!-- #include file="db_connection.inc" -->
<%
dim searchWord
dim strFont1
dim strFont2
searchWord = Request.Querystring("genre")
strFont1 = "<font style=""font-size: 20px; color: #ff0000; font-family:verdana"">"
strFont2 = "<font style=""font-size: 16px; color: #000000; font-family:verdana"">"
Set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open strConnect
strSQL1 = "SELECT TOP 100 dbo.Artists.artistname, dbo.Recordings.RecordingTitle, dbo.Tracks.TrackTitle, dbo.Tracks.TrackFileName FROM dbo.Artists INNER JOIN dbo.Recordings ON dbo.Artists.artistid = dbo.Recordings.ArtistID INNER JOIN dbo.Tracks ON dbo.Recordings.RecordingID = dbo.Tracks.RecordingID WHERE (dbo.Recordings.genre = '"&searchWord&"')"
Set oRs1=oConn.Execute(strSQL1,lngRecs,1)
%>
<!DOCTYPE html>
<html>
<head></head>
<body>
<form method="post" action="music3.asp">
<%
Response.Write strFont1 & "Select Songs you Wish to Add to Your Playlist then click on Submit button<br />"
Response.Write "<br />"
if not oRs1.eof then
do until oRs1.eof
response.write strFont2 & "<div class=""results""><input type=""checkbox"" name=""selectItem"" value="""&oRs1("TrackFileName")&"""> "&oRs1("artistname")&" "&oRs1("RecordingTitle")&" "&oRs1("TrackTitle")&" "&oRs1("TrackFileName")&"</div>/font>"
oRs1.movenext
loop
end if
%>
<button type="submit">Submit</button> <input type="button" value="BACK!" onClick="history.back();">
</form>
</body>
</html>
ASKER
<!-- #include file="db_connection.inc" -->
<%
dim searchWord
dim strFont1
dim strFont2
searchWord = Request.Querystring("genre")
strFont1 = "<font style=""font-size: 20px; color: #ff0000; font-family:verdana"">"
strFont2 = "<font style=""font-size: 16px; color: #000000; font-family:verdana"">"
Set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open strConnect
strSQL1 = "SELECT TOP 100 dbo.Artists.artistname, dbo.Recordings.RecordingTitle, dbo.Tracks.TrackTitle, dbo.Tracks.TrackFileName FROM dbo.Artists INNER JOIN dbo.Recordings ON dbo.Artists.artistid = dbo.Recordings.ArtistID INNER JOIN dbo.Tracks ON dbo.Recordings.RecordingID = dbo.Tracks.RecordingID WHERE (dbo.Recordings.genre = '"&searchWord&"')"
Set oRs1=oConn.Execute(strSQL1,lngRecs,1)
%>
<!DOCTYPE html>
<html>
<head></head>
<body>
<form method="post" action="music3.asp">
<%
Response.Write strFont1 & "Select Songs you Wish to Add to Your Playlist then click on Submit button<br />"
Response.Write "<br />"
if not oRs1.eof then
do until oRs1.eof
response.write strFont2 & "<div class=""results""><input type=""checkbox"" name=""selectItem"" value="""&oRs1("TrackFileName")&"""> "&oRs1("artistname")&" "&oRs1("RecordingTitle")&" "&oRs1("TrackTitle")&" "&oRs1("TrackFileName")&"</div></font>"
oRs1.movenext
loop
end if
%>
<button type="submit">Submit</button> <input type="button" value="BACK!" onClick="history.back();">
</form>
</body>
</html>
ASKER
<!DOCTYPE html>
<html>
<head>
</head>
<body>
<form method="post" action="music3.asp">
<font style="font-size: 20px; color: #ff0000; font-family:verdana">
Select Songs you Wish to Add to Your Playlist then click on Submit button<br /><br />
</font> <-- I added that and it worked
<font style="font-size: 16px; color: #000000; font-family:verdana">
<div class="results">
<input type="checkbox"
name="selectItem"
value="M:\Music\MP3MusicAlbums\AC-DC\74 Jailbreak\01-74 Jailbreak-Jailbreak.mp3" />
AC-DC 74 Jailbreak Jailbreak M:\Music\MP3MusicAlbums\AC-DC\74 Jailbreak\01-74 Jailbreak-Jailbreak.mp3
</div>
</font>
</form>
</body>
</html>
ASKER
<!DOCTYPE html>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Disclaimer</title>
<script>
(function(i,s,o,g,r,a,m){i['GoogleAnalyticsObject']=r;i[r]=i[r]||function(){
(i[r].q=i[r].q||[]).push(arguments)},i[r].l=1*new Date();a=s.createElement(o),
m=s.getElementsByTagName(o)[0];a.async=1;a.src=g;m.parentNode.insertBefore(a,m)
})(window,document,'script','//www.google-analytics.com/analytics.js','ga');
ga('create', 'UA-46536895-1', 'tomsmp3.com');
ga('send', 'pageview');
</script>
</head>
<body>
<h1 style="text-align:center;">Disclaimer</h1>
<p>Company TGCSNET provides the www.tomsmp3.com Web site as a service to the public and Web site
owners. Company TGCSNET is not responsible for, and expressly disclaims all liability for, damages of
any kind arising out of use, reference to, or reliance on any information contained within the site. While
the information contained within the site is periodically updated, no guarantee is given that the
information provided in this Web site is correct, complete, and up-to-date. Although the Company
TGCSNET Web site may include links providing direct access to other Internet resources, including Web
sites, Company TGCSNET is not responsible for the accuracy or content of information contained in
these sites. Links from Company TGCSNET to third-party sites do not constitute an endorsement by
Company TGCSNET of the parties or their products and services. The appearance on the Web site of
advertisements and product or service information does not constitute an endorsement by Company
TGCSNET, and Company TGCSNET has not investigated the claims made by any advertiser. Product
information is based solely on material received from suppliers.</p>
</body>
<form method="post">
<input type="button" value="BACK!" onClick="history.back();">
</form>
</html>
<!DOCTYPE html>
<%
if request.form<>"" then
dim fs,fname, pathToPlayList
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fname=fs.CreateTextFile("m:\playlist\myplaylist_"&Session.SessionID&".m3u",true)
pathToPlayList="/playlist/myplaylist_"&Session.SessionID&".m3u"
strSongs=request.form("selectItem")
arraySongs=split(strSongs,",")
response.write "<ul>"
fname.WriteLine "#EXTM3U" '** M3U'
for each song in arraySongs
response.write "<li><a href=""" & replace(song,"M:\Music","/mp3") & """>" & song & "</a></li>"
fname.WriteLine "#EXTINF:000, "& makeSongName(song)
fname.WriteLine "http://www.tomsmp3.com"&replace(replace(replace(trim(song),"M:\Music","/mp3"),"\","/")," ","%20")
next
response.write "</ul>"
fname.Close
else
response.write "You did not post any data yet<br>"
end if
set fname=nothing
set fs=nothing
function makeSongName(song)
p = InStrRev(song,"\",-1)
makeSongName = mid(song,p+1,len(song)-p)
end function
%>
<input type="button" value="BACK!" onClick="history.back();">
<button value="Playlist" onclick="window.location = '<%=pathToPlayList%>'"> Playlist </button>
ASKER
ASKER
ASKER
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Disclaimer</title>
<script>
(function(i,s,o,g,r,a,m){i['GoogleAnalyticsObject']=r;i[r]=i[r]||function(){
(i[r].q=i[r].q||[]).push(arguments)},i[r].l=1*new Date();a=s.createElement(o),
m=s.getElementsByTagName(o)[0];a.async=1;a.src=g;m.parentNode.insertBefore(a,m)
})(window,document,'script','//www.google-analytics.com/analytics.js','ga');
ga('create', 'UA-46536895-1', 'tomsmp3.com');
ga('send', 'pageview');
</script>
</head>
<body>
<h1 style="text-align:center;">Disclaimer</h1>
<p>
Company TGCSNET provides the www.tomsmp3.com Web site as a service to the public and Web site
owners. Company TGCSNET is not responsible for, and expressly disclaims all liability for, damages of
any kind arising out of use, reference to, or reliance on any information contained within the site. While
the information contained within the site is periodically updated, no guarantee is given that the
information provided in this Web site is correct, complete, and up-to-date. Although the Company
TGCSNET Web site may include links providing direct access to other Internet resources, including Web
sites, Company TGCSNET is not responsible for the accuracy or content of information contained in
these sites. Links from Company TGCSNET to third-party sites do not constitute an endorsement by
Company TGCSNET of the parties or their products and services. The appearance on the Web site of
advertisements and product or service information does not constitute an endorsement by Company
TGCSNET, and Company TGCSNET has not investigated the claims made by any advertiser. Product
information is based solely on material received from suppliers.
</p>
</body>
<br>
<form method="post">
<input type="button" value="BACK!"onClick="history.back();">
</form>
</html>
ASKER
ASKER
ASKER
ASKER
ASKER
ASKER
ASKER
ASKER
ASKER
ASKER
ASKER
ASKER
ASKER
ASKER
ASKER
ASKER
ASKER
The successor to Active Server Pages, ASP.NET websites utilize the .NET framework to produce dynamic, data and content-driven web applications and services. ASP.NET code can be written using any .NET supported language. As of 2009, ASP.NET can also apply the Model-View-Controller (MVC) pattern to web applications
TRUSTED BY
you should be using Server.HTMLEncode when passing your values from page to page.