|
<%=ucase(strLinkDesc)%>
<%
if strType="doc" then 'Display language drop down if applicable.
dim objRSLang, intLangCnt, blnDisplayLang
dim arrLang(100), arrLangPath(100), arrLangDocNo(100)
intLangCnt = 0
set objRSLang = server.CreateObject("ADODB.Recordset")
objRSLang.open "select d.docno, d.filepath, l.language from docs d join t_docs_foreign_language dfl on d.docid = dfl.non_english_id join t_language l on d.language_Id = l.language_id where dfl.english_id = " & objRs2("docid") & " order by language",objConn,2
do while not objRSLang.eof
intLangCnt = intLangCnt + 1
arrLang(intLangCnt) = objRSLang("language")
arrLangPath(intLangCnt)= objRSLang("filepath")
arrLangDocNo(intLangCnt)= objRSLang("docno")
objRSLang.MoveNext
loop
if intLangCnt > 0 then 'Display language drop down.
blnDispLang = true
arrLang(0) = "English"
arrLangPath(0) = strPath
arrLangDocNo(0) = strName
%>
<%
end if
end if
%>
|
Get the latest information from ZiLOG about new and updated products by creating your own
user account or include your e-mail adddress.
Your E-Mail
|
