<%@ Language=VBScript%> <% Option Explicit %> <% response.buffer="TRUE" response.cachecontrol="PRIVATE" response.expires="300" response.expiresabsolute=DATE+1 Dim item, count, lastdate, holdblurb, findid Dim Conntemp Dim rsBlurb, rsComment Dim mySQL set Conntemp=server.createobject("adodb.connection") set rsBlurb=server.createobject("adodb.recordset") set rsComment=server.createobject("adodb.recordset") Conntemp.open factoDSN mySQL = "SELECT BlurbTable.BlurbID, BlurbTable.Blurbdate, BlurbTable.Blurbtime, AuthorTable.AuthorID, AuthorTable.AuthorQuery, SubjectTable.Sub_id, SubjectTable.SubjectName, BlurbTable.Blurbtext FROM SubjectTable INNER JOIN (AuthorTable INNER JOIN BlurbTable ON AuthorTable.AuthorID = BlurbTable.AuthorID) ON SubjectTable.Sub_id = BlurbTable.Sub_id WHERE (((BlurbTable.Blurbdate)>=DateAdd(""d""," & DaysBlurbs & ",Now())) AND ((BlurbTable.display)=Yes)) ORDER BY BlurbTable.Blurbdate DESC , BlurbTable.Blurbtime DESC;" 'response.write mySQL set rsBlurb = conntemp.Execute(mySQL) rsComment.open "SELECT Count(CommentTable.commentid) AS CommentCount, CommentTable.commentblurbid FROM CommentTable GROUP BY CommentTable.commentblurbid;",conntemp,adOpenStatic %> <%=factoSiteName%>

Colloidal Silver Testimonials
Building the most authentic collection of Personal Experience In the World

Presented by Silvermedicine.org in cooperation with private researchers across the globe

Silver Chemistry IconSilver Testimonials Home | Testimonials Index | Visit Silvermedicine.orgSilver Chemistry Icon

Guests Please login with Guest as the username, and guest as the password

 

<%Call DisplayLeftMenu%> <% count = 1 lastdate="" do until rsBlurb.eof or count = 40 %> <%if rsBlurb("blurbdate")<>lastdate then %> <%else %> <%end if lastdate=rsBlurb("blurbdate") %> <% rsBlurb.movenext count = count + 1 Loop response.write "
<%=rsBlurb("BlurbDate")%> 0 then %> class="NEUTRAL" <%end if%> <%if count mod 2 = 0 then %> class="HIGHLIGHT" <%end if%>> <% 'Create links for subjects and authors for display in the blurb holdblurb= fnSubjectLink(rsBlurb("Sub_ID"),rsBlurb("SubjectName")) holdblurb= holdblurb & ". " & rsBlurb("blurbtext") & " By " holdblurb= holdblurb & fnAuthorLink(rsBlurb("AuthorID"),rsBlurb("AuthorQuery")) & ". " Response.Write holdblurb Response.Write(fnDiscussLink(rsBlurb("blurbid"))) findid = "commentblurbid = " & "'" & rsblurb("blurbid") & "'" rsComment.movefirst rsComment.Find findid if rsComment.BOF or rsComment.EOF then response.write "0 Comments" else response.write rsComment("CommentCount") If rscomment("CommentCount")<>1 then response.write " Comments" else response.write " Comment" end if End If %>
" Call DisplayRightMenu %>
<% ' Now close and dispose of resources rsBlurb.close conntemp.close set conntemp=nothing %>