function doLangCode (fString)
DIM i, s, fOTagPos, fCTagPos, fOTag, fCTag
'get the correct language part
	fOTag = "[" & strLangLCID & "]"
	fCTag = "[/" & strLangLCID & "]"
	fOTagPos = Instr(1, fString, fOTag, 1)
	fCTagPos = Instr(1, fString, fCTag, 1)
	if (fCTagPos > 0 and fOTagPos > 0) then
		s = mid(fString, fOTagPos + len(fOTag), fCTagPos - fOTagPos - len(fOTag))
	else
		s = fString
	end if
	doLangCode = s
end function

function doLangCode (fString)
	doLangCode = fString
end function

		'set the current date to the sunday
	dCurrentDate = dSunday 
	' ##ADD DW SELECTION
	
	dim rs
	Set Rs = Server.CreateObject("ADODB.RecordSet")
	
	'display the events for the seven days
	for counter = 1 to 7
		'get the events for this day
		strSQL = 	"SELECT event_id, start_date, end_date, event_title, PRIVATE, " & strDBNTSQLName & ", event_details FROM " & strTablePrefix & "EVENTS Inner JOIN " & strMemberTablePrefix & "Members ON " & strTablePrefix & "EVENTS.added_by = " & strMemberTablePrefix & "Members.Member_ID " & _
				"WHERE Start_Date <= '" & DateToStr(dCurrentDate) & "' AND End_Date >= '" & DateToStr(dCurrentDate) & "' ORDER BY Event_ID"
		
		
		rs.Open strSql, my_Conn
		%>
						<br>
						<table align="center" width="95%" cellpadding="0" cellspacing="0" border="0" bgcolor="gray">
							<tr>
								<td>
									<table WIDTH="100%" CELLSPACING="1" BORDER="0" CELLPADDING="3" align="center">
										<tr>
											<td align="left" bgcolor="<% =strHeadCellColor %>">
											<a href="<%= sScript %>?date=<%=dCurrentDate%>">
											<b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">
											<% = dcurrentdate & "-" & intWeekday %></font></b>  
											</a>
											</td>
										</tr>
		<%
		
		if rs.eof then
		%>
										<tr>
											<td height="30" bgcolor="white"><font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% =strNoEvents %>.</font></td>
										</tr>
		<%
		else
			'Display the events for that day
			Do while not rs.eof
				if (rs("PRIVATE") <> 1) or (rs("PRIVATE") = 1 and lcase(rs(strDBNTSQLNAME)) = lcase(strDBNTUSerName)) then
			%>
										<tr>
											<td height="30" bgcolor="white">
											<b><font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><%=(rs("event_title")) %></font></b><%'***LANG***MOD*** %>
											<i><font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% =strAddedBy %> <%=lcase(rs(strDBNTSQLNAME))%></font></i><br><br>
											<font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><%= formatstr(rs("event_details"))%></font>
											</td>
										</tr>
			<%	end if
				rs.movenext
			loop
		end if
		%>
									</table>
								</td>
							</tr>
						</table>
		<%		
		rs.Close

		'move to the next day
		dCurrentDate = DateAdd("D",counter,dSunday)
		
	next
	
	set rs = nothing
%>

 

strLangDOW = array ("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday")

response.write strLangDOW(weekday(dcurrentdate,1)-1)

quote:

---

Thanks for your quick response on this.

Q: in the arragy statement in each LANGNNNN.asp
- or is this in LangMODS_EventsNNNN.asp ? -

strLangDOW = array ("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday")

"Sunday" etc..... will be in a locale datename text string??

---

This is what will be used in v4b04, so use it in LangNNNN.asp, every language will have its own translated definition.

This is the whole thing about these in v4b04 Lang files (change them to the array structure, don't forget these are subject to change):

strLangMonth= "January,February,March,April,May,June,July,August,September,October,November,December"
strLangMonth3	= "Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec"
strLangMonth1	= "J,F,M,A,M,J,J,A,S,O,N,D"
strLangDOW	= "Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday"
strLangDOW3	= "Sun,Mon,Tue,Wed,Thu,Fri,Sat"
strLangDOW1	= "S,M,T,W,T,F,S"

I have most of the language strings from different languages already at hand, UTF8 encoded text files. You sent the japaneese ones

quote:

---

dCurrentDate is a date function set to dSunday in this particular portion of the codes....

---

It is a variable

quote:

---

WORKED!!!!!!!!!

---

Good news .


Think Pink
==> Start Internationalization Here
<

quote:

---

Additional Q: I want to switch a month and a year pull down box below a small monthly calender (I believe this will be in events_functions.asp and in events_inc.asp, am not sure about events.asp) to show a box for year on the left and a box for month on the right. Cannot fully identify which parts of codes controlling this...

Can you advise where codes for controlling these?
I will try to see whether I can swap the location of these and also add "year" after 2002 etc for Japanese and Chinese....

---

<td align=center>
 <FORM ACTION="/forum/events.asp" METHOD=GET id=frmSelectMonth name=frmSelectMonth>
   <SELECT NAME=MONTH>
....
   <SELECT NAME=YEAR>
....

quote:

---

strLangMonth= "January,February,March,April,May,June,July,August,September,October,November,December"
strLangMonth3	= "Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec"
strLangMonth1	= "J,F,M,A,M,J,J,A,S,O,N,D"
strLangDOW	= "Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday"
strLangDOW3	= "Sun,Mon,Tue,Wed,Thu,Fri,Sat"
strLangDOW1	= "S,M,T,W,T,F,S"

I have most of the language strings from different languages already at hand, UTF8 encoded text files. You sent the japaneese ones

---

quote:

---

You can use the same ide I posted aboe with 3 chars. I don't have access to the code now, but locate this in files:

<td align=center>
 <FORM ACTION="/forum/events.asp" METHOD=GET id=frmSelectMonth name=frmSelectMonth>
   <SELECT NAME=MONTH>
....
   <SELECT NAME=YEAR>
....

That MOD had multiples of the same code, not very well abstracted. It can be in more than one place. If you want to add "year" only in JP, you need to use a "if then" statement...

---