Here are all of the lessons and articles on <%=lcase(skill)%>

Please note that many of these files are over 100k and may take up to 30 seconds to download if you have a 56k modem connection.

<% Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "select strPubDate, strTitle, strPDFFile from tbWriteItLessons where strSkills = '" & skill & "' " strSQL = strSQL & "order by intPubDateSort" rs.Open strSQL, "DSN=dotcom",adOpenDynamic,3 if rs.EOF or rs.BOF then blnEmptyRs = true else blnEmptyRs = false end if if not blnEmptyRs then Do While not rs.EOF pubdate = rs("strPubDate") pdffile = rs("strPDFFile") title = rs("strTitle") displayURL = "" if len(trim(pdffile)) > 0 then pdfPath = "pdf/"&pdffile&".pdf" displayURL = ""&title&"" end if Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf rs.MoveNext loop Else Response.write "No Data Found...." end if set rs = nothing %>

	Article/Lesson Title		Issue Date
	"&displayURL & vbCrLf Response.Write "		"&pubdate&"