<%@LANGUAGE="VBSCRIPT"%>
<%
dim eventID,orderby,admin
eventID=17
dim s
s=request("s")
IF s="701600" THEN s="701800"
dim AllDisplay
AllDisplay="All"
'eventID=request("eventID")
If (Request.QueryString("eventID") <> "") Then eventID=Request.QueryString("eventID")
orderby=""
If (Request.QueryString("orderby") <> "") Then orderby=replace(Request.QueryString("orderby"),"-"," ")
'orderby=replace(request("orderby"),"-"," ")
if orderby="" then orderby="UPDATE_DATE DESC"
admin="y"
If (Request.QueryString("a") <> "") Then admin=Request.QueryString("a")
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = "dsn=RB_CUSTS;UID=RB_CUSTS;PWD=RB_CUSTS;"
'Recordset1.Source = ("SELECT * FROM event_local_content WHERE EVENT_ID=" & eventID)
Recordset1.Source = ("SELECT * FROM event_local_content, locations WHERE locations.unitnumber = event_local_content.UNITNUMBER AND event_local_content.UNITNUMBER <>'701600' AND event_local_content.EVENT_ID="& eventID & " ORDER BY STATE, STORE_NAME")
'SELECT DISTINCT MEMBERS_.EMAILADDR_, MEMBERS_.MEMBERID_, list_,datejoined_,dateheld_,c.cardnumber,v.*,l.name FROM MEMBERS_, customers_v c,virtual_cards v,locations l WHERE ( MEMBERS_.List_='worldbeertour' AND MEMBERS_.MemberType_='normal' AND MEMBERS_.SubType_='mail' AND MEMBERS_.EMAILADDR_ IS NOT NULL ) AND ( members_.emailaddr_ = c.email and c.homestore = l.unitnumber and to_char(c.cardnumber) = v.customerlink and v.cardnumberv > '1097000057442' --and substr(c.cardnumber,1,1)=1 and c.cardstatus IN ('A','E') and c.nxtprogramnumber in (1,5,7,8) and homestore in (1000) and c.nxtprogramnumber in (1,5,7,8) and v.valuecode <>'x' )
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
Mini Tour Beers
Oktoberfest Tour 2012 Beer Lineup
| State |
Location |
beer 1 |
beer 2 |
beer 3 |
beer 4 |
beer 5 |
beer 6 |
beer 7 |
beer 8 |
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
dim EVENT_ID,UNITNUMBER,STORE_CODE,STORE_NAME,INTRO,KICKOFF_START_TIME,KICKOFF_END_TIME,GOOGLE_STRING,LOCAL_CONTENT,BEV1,BEV2,BEV3,BEV4,BEV5,BEV6,BEV7,BEV8,BEV9,BEV10,BEV11,BEV12,BASIS,FOOTER,CREATE_DATE,UPDATE_DATE,specBeerCount,ST
EVENT_ID=Recordset1.Fields.Item("EVENT_ID").Value
UNITNUMBER=Recordset1.Fields.Item("UNITNUMBER").Value
STORE_CODE=Recordset1.Fields.Item("STORE_CODE").Value
STORE_NAME=Recordset1.Fields.Item("STORE_NAME").Value
INTRO=Recordset1.Fields.Item("INTRO").Value
KICKOFF_START_TIME=Recordset1.Fields.Item("KICKOFF_START_TIME").Value
KICKOFF_END_TIME=Recordset1.Fields.Item("KICKOFF_END_TIME").Value
GOOGLE_STRING=Recordset1.Fields.Item("GOOGLE_STRING").Value
LOCAL_CONTENT=Recordset1.Fields.Item("LOCAL_CONTENT").Value
BEV1=Recordset1.Fields.Item("BEV1").Value
BEV2=Recordset1.Fields.Item("BEV2").Value
BEV3=Recordset1.Fields.Item("BEV3").Value
BEV4=Recordset1.Fields.Item("BEV4").Value
BEV5=Recordset1.Fields.Item("BEV5").Value
BEV6=Recordset1.Fields.Item("BEV6").Value
BEV7=Recordset1.Fields.Item("BEV7").Value
BEV8=Recordset1.Fields.Item("BEV8").Value
BEV9=Recordset1.Fields.Item("BEV9").Value
BEV10=Recordset1.Fields.Item("BEV10").Value
BEV11=Recordset1.Fields.Item("BEV11").Value
BEV12=Recordset1.Fields.Item("BEV12").Value
BASIS=Recordset1.Fields.Item("BASIS").Value
FOOTER=Recordset1.Fields.Item("FOOTER").Value
CREATE_DATE=Recordset1.Fields.Item("CREATE_DATE").Value
UPDATE_DATE=Recordset1.Fields.Item("UPDATE_DATE").Value
specBeerCount=Recordset1.Fields.Item("SPEC_BEER_CNT").Value
ST=Recordset1.Fields.Item("STATE").Value
dim bgcolor
bgcolor="bgcolor='#d4e2f4'"
IF UNITNUMBER = s then
bgcolor=" bgcolor='#ffd24f'"
END IF
'if LOCAL_CONTENT <>"" then bgcolorLC = "bgcolor='#00ffff'"
'if BEV1 <> "Manager’s Choice" then bgcolor1 = "bgcolor='#00ffff'"
'if BEV2 <> "Manager’s Choice" then bgcolor2 = "bgcolor='#00ffff'"
'if BEV3 <> "Manager’s Choice" then bgcolor3 = "bgcolor='#00ffff'"
'if BEV4 <> "Manager’s Choice" then bgcolor4 = "bgcolor='#00ffff'"
'if BEV5 <> "Manager’s Choice" then bgcolor5 = "bgcolor='#00ffff'"
'if BEV6 <> "Manager’s Choice" then bgcolor6 = "bgcolor='#00ffff'"
'if BEV7 <> "Manager’s Choice" then bgcolor7 = "bgcolor='#00ffff'"
'if BEV8 <> "Manager’s Choice" then bgcolor8 = "bgcolor='#00ffff'"
'if BEV9 <> "Manager’s Choice" then bgcolor9 = "bgcolor='#00ffff'"
'if BEV10 <> "Manager’s Choice" then bgcolor10 = "bgcolor='#00ffff'"
'if BEV11 <> "Manager’s Choice" then bgcolor11 = "bgcolor='#00ffff'"
'if BEV12 <> "Manager’s Choice" then bgcolor12 = "bgcolor='#00ffff'"
%>
| ><%=ST%> |
><%=STORE_NAME%> |
><%=BEV1%> |
><%=BEV2%> |
><%=BEV3%> |
><%=BEV4%> |
><%=BEV5%> |
><%=BEV6%> |
><%=BEV7%> |
><%=BEV8%> |
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>