<%@ Language=VBScript %> <% dim strIfHTML,dPR_TYPE,strNewsbtnImgDN1,strNewsbtnImgDN2 strFont3BlueonHTML = "" strFontOffHTML = "" dDate = date If IsEmpty(Request.QueryString("PR_ID")) Then dPR_ID = 99 Else dPR_ID = Request.QueryString("PR_ID") End If If IsEmpty(Request.QueryString("PR_TYPE")) Then dPR_TYPE = "PR" strNewsbtnImgDN1 = "" strNewsbtnImgDN2 = "" Else dPR_TYPE = Request.QueryString("PR_TYPE") if dPR_TYPE = "PR" then strNewsbtnImgDN1 = "" strNewsbtnImgDN2 = "" else strNewsbtnImgDN1 = "" strNewsbtnImgDN2 = "" end if End If strBrowseHref = "" strDeleteImg = "" %>

	<%=strNewsbtnImgDN1%><%=strNewsbtnImgDN2%>
	<% ' Open a record set for Press Releases ' Response.Write "" & FormatDateTime(dDate, 1) & " " & vbCrLf Set Rs = Server.CreateObject("ADODB.RecordSet") 'sSQL = "SELECT * FROM qry_pr_bydate;" sSQL = "SELECT * FROM qry_pr_bydate WHERE prType='" & dPR_TYPE & "' ORDER BY prLookupShDate DESC; " 'Response.Write (sSQL) Rs.Open sSQL, sDSN, adOpenStatic, adLockReadOnly, adCmdText do while not Rs.EOF %> <% Rs.MoveNext() %> <% Loop %>     <% 'Response.Write ("" 'Response.Write (strIfHTML & " FOUND HTML " & VbCrLf) else Response.Write strFont3BlueonHTML &strBrowseHref & Rs("prID") & "&PR_TYPE=" & Rs("prType")&"'>" & strIfHTML & "" & strFontOffHTML & " " & VbCrLf '@debug Response.Write(Rs("prType")) '@070600-Response.Write strFont3BlueonHTML &strBrowseHref & Rs("prID") & "'>" & strIfHTML & "" & strFontOffHTML & " " & VbCrLf 'Response.Write (strIfHTML & " NO HTML " & VbCrLf) end if ' Response.Write Rs.fields.item("prID")& VbCrLf ' Response.Write Replace(Rs("prHeading") & "", " ", " ") Response.Write (Rs("prShortDescription") & " ") %>