<%@LANGUAGE="VBSCRIPT"%> <% Dim rsArticle Dim rsArticle_numRows Set rsArticle = Server.CreateObject("ADODB.Recordset") rsArticle.ActiveConnection = MM_A1_STRING rsArticle.Source = "SELECT a.ArticleID, a.ArticleTitle, 'A' as ArtIND, ' ' as Filename, c.Category FROM dbo.Article a join dbo.Category c on c.CategoryID = a.CategoryID where a.ArticleActive = 'Y' Union ALL SELECT a.ArticleID, a.ArticleTitle + ' (PDF)', 'P' as ArtIND, a.Filename as Filename, c.Category FROM dbo.ArticlePDF a join dbo.Category c on c.CategoryID = a.CategoryID where a.ArticleActive = 'Y'" rsArticle.CursorType = 0 rsArticle.CursorLocation = 2 rsArticle.LockType = 1 rsArticle.Open() rsArticle_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsArticle_numRows = rsArticle_numRows + Repeat1__numRows %> <% Dim TFM_nest, lastTFM_nest%> Pennsylvania Hypnosis Center
PA Hypnosis Center Hypnosis Articles

ARTICLE LIST

 

<% While ((Repeat1__numRows <> 0) AND (NOT rsArticle.EOF)) %> <% TFM_nest = rsArticle.Fields.Item("Category").Value If lastTFM_nest <> TFM_nest Then lastTFM_nest = TFM_nest %>

<%=(rsArticle.Fields.Item("Category").Value)%>

<%End If 'End Basic-UltraDev Simulated Nested Repeat %> <% DAC_nest = (rsArticle.Fields.Item("ArticleID").Value) If lastDAC_nest <> DAC_nest Then lastDAC_nest = DAC_nest %> <% If rsArticle.Fields.Item("ArtIND").Value = "A" Then DAC_path = "/Article.asp?ArticleID=" & (rsArticle.Fields.Item("ArticleID").Value) else DAC_path = "/Article-Files/" & (rsArticle.Fields.Item("ArticleID").Value) & ".PDF" end if %>

<%=(rsArticle.Fields.Item("ArticleTitle").Value)%>
<%End If 'End DAC_nest %>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsArticle.MoveNext() Wend %>


 

 


The only thing our clients tell us that they regret is not coming to see us sooner!
Today is the first day of the rest of your life. 
Call or email us today...

Daniel S. Vitchoff, M.S.ED., CHT
Licensed
Board Certified Master Hypnotist

PA HYPNOSIS CENTER
16085 Perry Highway
Pittsburgh, PA 15086
724-934-8446