| |
<%
dim conn, strSQL, rsMaster,rsChild, strMDBPath, intMasterID
set conn=server.createobject("ADODB.Connection")
set rsMaster=server.createobject("ADODB.Recordset")
strMDBpath = Server.MapPath("..\private\thath.mdb")
'strMDBpath = Server.MapPath("db\thath.mdb")
conn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & strMDBPath
%>
 |
|
|
<%
strSQL = "SELECT tblAudioMaster.ID, tblAudioMaster.Artist, tblAudioMaster.Date, tblAudioMaster.PicturePath, tblAudioMaster.OrderId, tblAudioMaster.GalleryPath "
strSQL = strSQL & " FROM tblAudioMaster "
strSQL = strSQL & "ORDER BY OrderId desc"
rsMaster.open strSQL,conn,1,2
Do while not rsMaster.eof
intMasterID = rsMaster.fields("ID").value
response.write ""
%>
 width="150" height="113"> |
<% = rsMaster.fields("Artist").value %>
<% = rsMaster.fields("Date").value %>
|
<%
dim dteOldDate,strOldOtherDate,strOtherDate
dteOldDate = CDate("31/12/9999")
strOldOtherDate = "abc"
strOtherDate="abc"
response.write ""
response.write ""
response.write "| Date | "
response.write "Title | "
response.write "Length (Mins) | "
response.write "Size (MB) | "
strSQL = "SELECT tblAudioChild.ID, tblAudioChild.MasterID, tblAudioChild.Date, tblAudioChild.Title, tblAudioChild.Length, tblAudioChild.FileSize, tblAudioChild.Path, tblAudioChild.OtherDate"
strSQL = strSQL & " FROM tblAudioChild Where MasterID = " & intMasterID
strSQL = strSQL & " Order By Date desc, OtherDate desc, ID"
set rsChild=server.createobject("ADODB.Recordset")
rsChild.open strSQL,conn,1,2
'response.write strSQL
Do while not rsChild.eof
strOtherDate = rsChild.fields("OtherDate").value
if not isdate(rsChild.fields("Date").value) then
if strOtherDate = strOldOtherDate then
'hhhhb
else
response.write "
| "
end if
else
if rsChild.fields("Date").value <> dteOldDate then
response.write "
| "
end if
end if
response.write ""
response.write "| "
if not isdate(rsChild.fields("Date").value) then
'response.write "OtherDate " & strOtherDate
'response.write "strOldOtherDate " & strOldOtherDate
if strOtherDate = strOldOtherDate then
'dddd
else
response.write strOtherDate
end if
else
if rsChild.fields("Date").value <> dteOldDate then
response.write formatdatetime(rsChild.fields("Date").value,1)
end if
end if
response.write " | "
response.write ""
response.write ""
response.write rsChild.fields("Title").value & ""
response.write " | "
response.write rsChild.fields("Length").value
response.write " | "
response.write ""
response.write rsChild.fields("FileSize").value
response.write " | "
dteOldDate = rsChild.fields("Date").value
strOldOtherDate = rsChild.fields("OtherDate").value
response.write " "
rsChild.movenext
loop
response.write ""
response.write " "
%>
|
|
|
<%
rsMaster.movenext
Loop
%>
|
|
|
|
|
|
|
