【 名前をクリックすると、プロフィール画面が開きます。 】
|
<%
Call ConnDB
'--------------------------
' DBよりスタッフ一覧取得
'--------------------------
dim strSQL
dim objRSStaff
'---SQL分生成
strSQL = ""
strSQL = strSQL & " SELECT M1.NAME, M1.GIRLID, 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_GIRLS_M M1 INNER JOIN"
strSQL = strSQL & " dbo.WEB_ROME_PROF M3 ON M1.GIRLID = M3.GIRLID"
strSQL = strSQL & " WHERE (M1.SHOPID = "& CST_SHOPID &") AND (M1.HIDDEN <> 1)"
strSQL = strSQL & " ORDER BY M3.DISPNO"
'レコードセット作成
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
strRow_1 = strRow_1 & ""
strRow_1 = strRow_1 & ""
strRow_1 = strRow_1 & " | "
strRow_2 = strRow_2 & ""
strRow_2 = strRow_2 & ""& strNAME &""
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
%>