 |
|||||||||||
|
|||||||||||
|
LAB19: Radio Station Playlist
Add each song as it is played. <% Dim objRec,objConn1,objConn,pubSQL,objRec1,pubSQL1,objCmd,artists,songs,dates,times,val count=0 pubSQL="select * from songList" artists=Request.Form ("tfArtist") songs=Request.Form ("tfSong") dates=Request.Form ("tfDate") times=Request.Form ("tfTime") if artists <> "" or songs <> "" or dates <> "" or times <> "" then set objConn=Server.CreateObject ("ADODB.Connection") set objRec=Server.CreateObject ("ADODB.Recordset") objConn.Open strConnect objRec.Open pubSQL,objConn while not objRec.EOF objRec.MoveNext count=count+1 wend set objRec= nothing val=artists &", "& songs & ", "& dates &", "& times set objCmd=Server.CreateObject ("ADODB.Command") objCmd.ActiveConnection= strConnect objCmd.CommandText="Insert into songList values('"& count+1 &"','"& val &"')" objCmd.Execute end if set objConn1=Server.CreateObject ("ADODB.Connection") objConn1.Open strConnect pubSQL1="select * from songList" set objRec1=Server.CreateObject ("ADODB.Recordset") objRec1.Open pubSQL1,objConn1 while not objRec1.EOF Response.Write (objRec1("ID")&") "& objRec1("playList")&" ") objRec1.MoveNext wend set objRec1= nothing %> |