<% if request("date")="" then strDate=date else strDate=request("date") end if %> 札幌 メイドカフェロミオ クロス ジュリエッタ

<% for i=0 to 6 strLinkDate=dateadd("d",i,date) %> <% next %>
<%if strLinkDate=cdate(strDate) then%> ■□■□ <%end if%>
"><%=setDateImage(strLinkDate)%>
<%if strLinkDate=cdate(strDate) then%> □■□■ <%end if%>
<% 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_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 %>
" strRow_1 = strRow_1 & "" strRow_1 = strRow_1 & "" strRow_2 = strRow_2 & ""& strNAME &"
" & strTIME strRow_2 = strRow_2 & "
  

ページトップへ戻る▲  

<% function setDateImage(datDate) setDateImage=month(datDate) & "月" & day(datDate) & "日" end function %>