<%
for i=0 to 6
strLinkDate=dateadd("d",i,date)
%>
|
<%
next
%>
<%
Call ConnDB
'--------------------------
' DBよりスタッフ一覧取得
'--------------------------
dim strSQL
dim objRSStaff
dim strSQLTS
dim sth
dim objRSTS
strSQLTS = "SELECT * FROM girls_serch.SERCH_F_SHIFT WHERE SHOPID = " & CST_SHOPID
sth = 0
Set objRSTS = server.CreateObject("ADODB.RecordSet")
'SQL実行
objRSTS.open strSQLTS,objConn
'ループ開始
do while Not objRSTS.EOF
if NOT IsNull(objRSTS("SHOWTIME")) then
sth = objRSTS("SHOWTIME")
end if
objRSTS.MoveNext
loop
'---SQL分生成
strSQL = ""
strSQL = strSQL & " SELECT D1.GIRLID, D1.START_HH, D1.START_MM, D1.END_HH, D1.END_MM"
strSQL = strSQL & " ,M1.NAME, M3.NICKNAME, "
strSQL = strSQL & " (SELECT FILENAME"
strSQL = strSQL & " FROM girls_serch.SERCH_PHOTO_M"
strSQL = strSQL & " WHERE (SHOPID = "& CST_SHOPID &") "
strSQL = strSQL & " AND (STAFFID = M1.GIRLID) AND (PHOTOKIND = 4)) AS FILENAME"
strSQL = strSQL & " FROM girls_serch.SERCH_T_SHIFT D1"
strSQL = strSQL & " INNER JOIN girls_serch.SERCH_GIRLS_M M1 ON D1.SHOPID = M1.SHOPID AND D1.GIRLID = M1.GIRLID"
strSQL = strSQL & " INNER JOIN dbo.WEB_ROME_PROF M3 ON M1.GIRLID = M3.GIRLID "
strSQL = strSQL & " WHERE D1.SHIFTDATE='" & strDate & "'"
strSQL = strSQL & " AND HIDDEN<>1"
strSQL = strSQL & " AND M1.SHOPID=" & CST_SHOPID
strSQL = strSQL & " ORDER BY D1.START_HH, D1.START_MM, D1.GIRLID"
'Response.Write(strSQL)
'レコードセット作成
Set objRSStaff = server.CreateObject("ADODB.RecordSet")
'SQL実行
objRSStaff.open strSQL,objConn
col=1
dim strRow_1
dim strRow_2
'ループ開始
do while Not objRSStaff.EOF
if IsNull(objRSStaff("FILENAME")) then
strPhotoSrc="img/no_img.jpg"
else
strPhotoSrc="girlphotolist/girls" & objRSStaff("GIRLID") & "/" & objRSStaff("FILENAME")
end if
if IsNull(objRSStaff("NICKNAME")) or objRSStaff("NICKNAME") = "" then
strNAME = "【" & objRSStaff("NAME") & "】"
else
strNAME = "【" & objRSStaff("NICKNAME") & "】
" & objRSStaff("NAME")
end if
if NOT IsNull(objRSStaff("START_HH")) then
stHH = objRSStaff("START_HH")
if stHH > 24 Then
stHH = "翌" & stHH - 24
End If
edHH = objRSStaff("END_HH")
if edHH > 24 Then
edHH = "翌" & edHH - 24
End If
strTIME = stHH & ":" & objRSStaff("START_MM") & "~" & edHH & ":" & objRSStaff("END_MM")
if sth Then
strTIME = ""
End If
else
strTIME = "お休み"
end if
strRow_1 = strRow_1 & ""
strRow_1 = strRow_1 & ""
strRow_1 = strRow_1 & " | "
strRow_2 = strRow_2 & ""
strRow_2 = strRow_2 & ""& strNAME &" " & strTIME
strRow_2 = strRow_2 & " | "
if col=CST_MaxColCount then
%>
<%= strRow_1 %>
<%= strRow_2 %>
<%
col=0
strRow_1 = ""
strRow_2 = ""
end if
col=col+1
objRSStaff.MoveNext
loop
if not col=1 then
for i=col to CST_MaxColCount
strRow_1 = strRow_1 & " | "
strRow_2 = strRow_2 & " | "
next
%>
<%= strRow_1 %>
<%= strRow_2 %>
<%
strRow_1 = ""
strRow_2 = ""
end if
objRSStaff.close
Set objRSStaff= Nothing
Call CloseDB
%>