<%@Language = VBScript%> <%Option Explicit%> <% Response.Buffer = true Response.ContentType = "text/xml" Function ApplyXMLFormatting(strInput) strInput = Replace(strInput,"&", "&") strInput = Replace(strInput,"'", "'") strInput = Replace(strInput,"""", """) strInput = Replace(strInput, ">", ">") strInput = Replace(strInput,"<","<") ApplyXMLFormatting = strInput End Function Function return_RFC822_Date(myDate, offset) Dim myDay, myDays, myMonth, myYear Dim myHours, myMonths, mySeconds, myMinutes myDate = CDate(myDate) myDay = WeekdayName(Weekday(myDate),true) myDays = Day(myDate) myMonth = MonthName(Month(myDate), true) myYear = Year(myDate) myHours = zeroPad(Hour(myDate), 2) myMinutes = zeroPad(Minute(myDate), 2) mySeconds = zeroPad(Second(myDate), 2) return_RFC822_Date = myDay&", "& _ myDays&" "& _ myMonth&" "& _ myYear&" "& _ myHours&":"& _ myMinutes&":"& _ mySeconds&" "& _ offset End Function Function zeroPad(m, t) zeroPad = String(t-Len(m),"0")&m End Function %> http://www.mima.org/ Welcome to the online home of the Minnesota Interactive Marketing Association. We're a forum for all the smart, curious folks of MN who work in web-based marketing, design, publishing, development and promotion. en-us <%=return_RFC822_Date(Now(), "CST")%> <%=return_RFC822_Date(Now(), "CST")%> 20<% '-- OPEN CONNECTION 'dim strSQL 'GET UPCOMING EVENT dim objRS_jobs, jobDate strSQL = "SELECT jobDate FROM job ORDER BY jobDate DESC" set objRS_jobs = executeRecordSet(strSQL, "") If not objRS_jobs.eof then jobDate = Cdate(Month(objRS_jobs("jobDate")) & "/" & Day(objRS_jobs("jobDate")) & "/" & Year(objRS_jobs("jobDate"))) End if dim objRS_job strSQL = "SELECT job.*, organization.orgName FROM job INNER JOIN organization ON job.orgID = organization.orgID " strSQL = strSQL & " WHERE jobApproved = 1 ORDER BY jobDate DESC" set objRS_job = executeRecordSet(strSQL, "") dim ctr ctr = 0 While not objRS_job.eof and ctr < 8 ctr = ctr + 1 If not objRS_job.eof then %> http://www.mima.org/jobs/index.asp?jobID=<%=objRS_job("jobID")%> ]]> <%=return_RFC822_Date(objRS_job("jobDate"), "CST")%> <% objRS_job.MoveNext End if Wend objRS_job.Close Set objRS_job = Nothing %>