Contact SAPPHIRE FARMS - Animal Sales sql = "select RanchpageLayout.PageName, RanchpageLayout2.* from RanchpageLayout, RanchpageLayout2 where RanchpageLayout.PageLayoutID = RanchpageLayout2.PageLayoutID and RanchpageLayout.PageName = 'About Us' and RanchpageLayout.PeopleID = " & PeopleID & " order by BlockNum" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 while not rs.eof x = x + 1 PageLayoutID = rs("PageLayoutID") BlockNum = rs("BlockNum") PageLayout2IDArray(x) = rs("PageLayout2ID") PageHeadingArray(BlockNum) = rs("PageHeading") str1 = PageHeadingArray(BlockNum) str2 = " " If InStr(str1,str2) > 0 Then PageHeadingArray(BlockNum)= Replace(str1, str2, " ") End If str1 = PageHeadingArray(BlockNum) str2 = "''" If InStr(str1,str2) > 0 Then PageHeadingArray(BlockNum) = replace(str1, str2, "'") End If EditImageArray(BlockNum) = rs("EditImage") PageHeadingArray(BlockNum) = rs("PageHeading") PageTextArray(BlockNum) = rs("PageText") str1 = PageTextArray(BlockNum) str2 = " " If InStr(str1,str2) > 0 Then PageTextArray(BlockNum)= Replace(str1, str2, " ") End If str1 = PageTextArray(BlockNum) str2 = "''" If InStr(str1,str2) > 0 Then PageTextArray(BlockNum)= Replace(str1, str2, "'") End If str1 = PageTextArray(BlockNum) str2 = "
" If InStr(str1,str2) > 0 Then PageTextArray(BlockNum)= Replace(str1, str2 , vbCrLf) End If ImageArray(BlockNum) = rs("Image") ImageCaptionArray(BlockNum) = rs("ImageCaption") if ImageCaptionArray(BlockNum) = "0" then ImageCaptionArray(BlockNum)= "" end if str1 = ImageCaptionArray(BlockNum) str2 = " " If InStr(str1,str2) > 0 Then ImageCaptionArray(BlockNum)= Replace(str1, str2, " ") End If str1 = ImageCaptionArray(BlockNum) str2 = "''" If InStr(str1,str2) > 0 Then ImageCaptionArray(BlockNum)= Replace(str1, str2, "'") End If str1 = Trim(ImageCaptionArray(BlockNum)) str2 = "0" If InStr(str1,str2) > 0 Then ImageCaptionArray(BlockNum)= Replace(str1, str2, "") End If ImageOrientationArray(BlockNum) = rs("ImageOrientation") ImageLinkArray(BlockNum) = rs("ImageLink") str1 = Trim(ImageLinkArray(BlockNum)) str2 = "0" If InStr(str1,str2) > 0 Then ImageLinkArray(BlockNum)= Replace(str1, str2, "") End If UploadTextArray(BlockNum) = rs("UploadText") UploadArray(BlockNum) = rs("Upload") rs.movenext wend LastBlockNum = BlockNum rs.close %>

 Contact SAPPHIRE FARMS


SAPPHIRE FARMS
HEATHER WHITE
www.sapphirefarmsva.com
Phone: 4347707945

* First Name
* Last Name
State / Province
Country
Email
Phone#
Questions

Math Question
Please answer the simple question below so we know that you are a human being.
*