<% ShowItem = clng("0" & Request.Querystring("i")) Query = "" Query = Query & "SELECT nTitle, nContent FROM News WHERE nID=0" & ShowItem Set RS = Conn.Execute(Query) If NOT RS.eof Then nTitle = RS("nTitle") nContent = RS("nContent") End If RS.Close Set RS = Nothing %>

<% queryPic = "" queryPic = queryPic & " SELECT top 1 iID, iFileName" queryPic = queryPic & " FROM NewsImages" queryPic = queryPic & " WHERE (iActive = 1) AND (iNewsID = " & ShowItem & ")" queryPic = queryPic & " ORDER BY NEWID()" Set RSpic = Conn.Execute(queryPic) If NOT RSpic.eof Then DefaultURL = RSpic("iFileName") If FileExists("/UserFiles/Image/News/","\418Original_" & ShowItem & "-" & DefaultURL)<>True Then Set Jpeg = Server.CreateObject("Persits.Jpeg") Jpeg.Open Server.Mappath("/UserFiles/Image/News/Original_" & ShowItem & "-" & DefaultURL) Jpeg.Width = 418 Jpeg.Height = Jpeg.OriginalHeight / (Jpeg.OriginalWidth/418) Jpeg.Save Server.MapPath("/UserFiles/Image/News/") & "\418Original_" & ShowItem & "-" & DefaultURL Set Jpeg = Nothing End If End If RSpic.Close Set RSpic = Nothing %> <% If len("" & DefaultURL)>0 Then %> <% End If %> <% queryPic = "" queryPic = queryPic & " SELECT iID, iFileName" queryPic = queryPic & " FROM NewsImages" queryPic = queryPic & " WHERE (iActive = 1) AND (iNewsID = " & ShowItem& ")" queryPic = queryPic & " ORDER BY NEWID()" Set RSpic = Conn.Execute(queryPic) PicCount = 0 ImageList = "" If NOT RSpic.eof Then Do While NOT RSpic.eof PicCount = PicCount + 1 PicURL = RSpic("iFileName") If FileExists("/UserFiles/Image/News/","\418Original_" & ShowItem & "-" & PicURL)<>True Then Set Jpeg = Server.CreateObject("Persits.Jpeg") Jpeg.Open Server.Mappath("/UserFiles/Image/News/Original_" & ShowItem & "-" & PicURL) Jpeg.Width = 418 Jpeg.Height = Jpeg.OriginalHeight / (Jpeg.OriginalWidth/418) Jpeg.Save Server.MapPath("/UserFiles/Image/News/") & "\418Original_" & ShowItem & "-" & PicURL Set Jpeg = Nothing End If ImageList = ImageList & "/UserFiles/Image/News/418Original_" & ShowItem & "-" & PicURL & "|" %> <% If PicCount MOD 4 = 0 Then %> <% End If RSpic.MoveNext Loop Else PicURL = "" End If RSpic.Close Set RSpic = Nothing %> <% If len(PicURL)>0 Then %><% Else %>-<% End If %> <%= nTitle %> <%= nContent %> Interested or would like to Contact Us? First Name: Last Name: Email: Contact No: Comments: