Events

<% Const adOpenKeyset = 1 Dim strDNS, strUID, strPWD, rstEvents, objConn, strSQL strDNS = "unr" strUID = "unrWebDBUser" strPWD = "Pyramid7&7" 'open database connection Set objConn = Server.CreateObject("ADODB.Connection") objConn.open strDNS, strUID, strPWD 'Specify query strSQL = "SELECT TOP 7 eve_name, eve_start_datetime, eve_end_datetime, eve_id, eve_description, eve_sponsor FROM EVENT WHERE eve_publish= 1 AND eve_end_datetime >= '" & Date & "' AND eve_start_datetime <= '" & Now + 90 & "' AND eve_start_datetime >= '" & Now & " ' AND eve_sponsor LIKE '%political science%' OR eve_sponsor LIKE '%international affairs%' ORDER BY eve_start_datetime; " 'create recordset Set rstEvents = Server.CreateObject("ADODB.RecordSet") rstEvents.Open strSQL, objConn, adOpenKeyset ' Handle string Function fncXhtmlString(strString) strString = Replace(strString, " & ", " & ") strString = Replace(strString, "’", "") fncXhtmlString = strString 'It would be nice to do regexpresssions to do proper punctuation End Function Function fncCropString(strString, intLength) strString = Replace(strString, vbCrLf, "") If Len(strString) > intLength Then strString = Left(strString, intLength) aryString = Split(strString, " ") strString = "" For a = 0 to UBound(aryString)-1 strString = strString & " " & aryString(a) Next strString = Trim(strString) strString = strString & "..." End If fncCropString = strString End Function 'loop through the records count = 0 do until rstEvents.EOF count = count + 1 %>

<%=fncFmtDate(rstEvents("eve_start_datetime"), "%m/%d")%> - "> <%=rstEvents("eve_name")%>

<% rstEvents.MoveNext loop If (count = 0) Then Response.Write "

There are no events currently scheduled.

" End If 'clean up rstEvents.close set rstEvents = nothing objConn.close set objConn = nothing %>

Jiangnan Zhu

Professor Zhu is interested in political economy in developing countries broadly and the social and political consequences of economic development in China and other East Asian countries specifically. In particular, her interest lies in exploring why processes of modernization have produced different results in different societies. Her dissertation, focusing on corruption and anticorruption in China, tries to explain why corruption has not totally got out of control of the Chinese Communist Party despite its severity.  

Current Research:

Regional variation of corruption across China, the institutional determinants of anticorruption in China, elite’s attitudes toward media in China.