Archives of Jim Karpen's Web Guide

<%@ Language=VBScript %> <% 'Alter these codes to change BanMan ads ZoneCodeTopBanner1 = 11 'zone id no. ZoneCodeTopBanner2 = 468 'width in pixels ZoneCodeTopBanner3 = 60 'height in pixels ZoneCodeTopBanner4 = 33333 'page id ZoneCodeBottomBanner1 = 1 ZoneCodeBottomBanner2 = 468 ZoneCodeBottomBanner3 = 60 ZoneCodeBottomBanner4 = 33333 ZoneCodeRightSkyscraper1 = 15 ZoneCodeRightSkyscraper2 = 120 ZoneCodeRightSkyscraper3 = 600 ZoneCodeRightSkyscraper4 = 22222 strSQL = "SELECT WG_ID, WG_Date, WG_Title FROM Newsl_JKWG ORDER BY WG_Date DESC" Call ExecuteSQL(strSQL,cursortype,rs_main) %> Archives of Jim Karpen's Web Guide

<% Do While Not rs_main.EOF Response.write "" & vbcrlf Response.write "" & vbcrlf rs_main.MoveNext Loop 'Clean up!! rs_main.Close Set rs_main = Nothing DataConn.Close Set DataConn = Nothing %>

	Past Web Guide columns
" & vbcrlf Response.write rs_main("WG_Date") & vbcrlf Response.write "	" & vbcrlf Response.write "" Response.write rs_main("WG_Title") Response.write "" & vbcrlf Response.write "