<% OpenDB sConn strSQL5 = "select * from tConfiguration" Set rs5 = conn.Execute(strSQL5) If not rs5.eof then rs5.MoveFirst sName = rs5("fName") sAbout = rs5("fAbout") End if rs5.close set rs5 = nothing %> <%=sName%>

<%=sName%>

<% '---------------PAGING PAGE_SIZE = "10" strURL = Request.ServerVariables("URL") IF isnumeric(Request.QueryString("p")) = True AND Request.QueryString("p") > "" THEN If Request.QueryString("p") = "" Then iPageCurrent = 1 Else iPageCurrent = CInt(Request.QueryString("p")) End If ELSE iPageCurrent = 1 END IF '--------------- PAGING END If request.querystring("id") <> "about" then If request.querystring("id") = "" then strSQL = "select * from tMessages where online = CBool(-1) order by fDate desc" Elseif isnumeric(request.querystring("id")) then sID = request.querystring("id") strSQL = "select * from tMessages where id = " & sID & " and online = CBool(-1) order by fDate desc" End if If IsDate(Request.QueryString("date")) then sDate = request.querystring("date") strSQL = "select * from tMessages where Year(fDate) = "& Year(sDate) &" and Month(fDate) = "& Month(sDate) &" and Day(fDate) = "& Day(sDate) &" and online = CBool(-1) order by fDate desc" End if If request.querystring("author") <> "" then If isnumeric(request.querystring("author")) then sAuth = request.querystring("author") strSQL = "select * from tMessages where fAuthor = " & sAuth & " and online = CBool(-1) order by fDate desc" End if End if If request.querystring("category") <> "" then sCat = request.querystring("category") strSQL = "select * from tMessages where fCategory like '%" & sCat & "%' and online = CBool(-1) order by fDate desc" End if Set rs = Server.CreateObject("ADODB.Recordset") rs.PageSize = PAGE_SIZE rs.CacheSize = PAGE_SIZE rs.Open strSQL, conn, adOpenStatic, adLockReadOnly, adCmdText iRecCount = rs.recordcount iRecordCount = rs.RecordCount iPageCount = rs.PageCount If iRecordCount = 0 Then 'No records found Response.write "

" & dictLanguage.Item(sLang&"_default_27") & "

" Else rs.AbsolutePage = iPageCurrent do while not rs.eof And rs.AbsolutePage = iPageCurrent sCount = sCount + 1 sID = rs("id") sDate = rs("fDate") sTime = Formatdatetime(sDate,4) sCategory = rs("fCategory") arr = split(sCategory,",") sHead = rs("fHeadline") sMessage = rs("fMessage") sAuthor = rs("fAuthor") sAuthId = rs("fAuthor") %> <% If sCount > 1 then %>
<% End if %>

<%=headdate(sDate)%>

<%=sHead%>

<%=sMessage%>
<% strSQL2 = "select * from tUser where id = " & CLng(sAuthor) & "" Set rs2 = conn.Execute(strSQL2) If not rs2.eof then rs2.MoveFirst sAuthor = rs2("fFullname") End if rs2.close set rs2 = nothing %>

<%=dictLanguage.Item(sLang&"_default_1")%> <%=sAuthor%> <%=dictLanguage.Item(sLang&"_default_2")%> <%=ampm(sTime,timeFormat)%> | <% For i = LBound(split(sCategory,",")) to UBound(split(sCategory,",")) strSQL3 = "select * from tCategory where fCategory = '" & Trim(arr(i)) & "'" Set rs3 = conn.Execute(strSQL3) If not rs3.eof then rs3.MoveFirst sCategoryId = rs3("id") sCategoryName = rs3("fCategory") End if rs3.close set rs3 = nothing %><%=sCategoryName%><% If i < UBound(split(sCategory,",")) then%>, <%End if%> <% Next %> | "><%=dictLanguage.Item(sLang&"_default_3")%> (<% %><% strSQL4 = "select * from tComments where fArticle = '" & sID & "'" Set rs4 = Server.CreateObject("ADODB.Recordset") rs4.Open strSQL4, conn, adOpenStatic, adLockReadOnly, adCmdText If not rs4.recordcount = 0 then sCom = rs4.recordcount Else sCom = "0" End if response.write sCom rs4.close set rs4 = nothing %>) | "><%=dictLanguage.Item(sLang&"_default_4")%>

<% rs.movenext loop End if If request.querystring("id") <> "" and request.querystring("comments") = "show" then If sCom > "0" then response.write "

" & dictLanguage.Item(sLang&"_default_3") & "

" End if strSQL6 = "select * from tComments where fArticle = '" & sID & "' order by fDate" Set rs6 = Server.CreateObject("ADODB.Recordset") Set rs6 = conn.Execute(strSQL6) do while not rs6.eof %>

"><%=dictLanguage.Item(sLang&"_default_1")%> <%If rs6("fURL") <> "" then%>" title="<%=rs6("fURL")%>" target="_blank"><%End if%><%=rs6("fName")%><%If rs6("fURL") <> "" then%><%End if%>  <%=dictLanguage.Item(sLang&"_default_5")%> <%=headdate(rs6("fDate"))%> <%=ampm(Formatdatetime(rs6("fDate"),4),timeFormat)%> | " title="<%=dictLanguage.Item(sLang&"_default_6")%>">#
<%=rs6("fComment")%>
-

<% rs6.movenext loop rs6.close set rs6 = nothing %>


<%=dictLanguage.Item(sLang&"_default_7")%>


<% If request.form("name") <> "" then Function CheckCAPTCHA(valCAPTCHA) SessionCAPTCHA = Trim(Session("CAPTCHA")) Session("CAPTCHA") = vbNullString if Len(SessionCAPTCHA) < 1 then CheckCAPTCHA = False exit function end if if CStr(SessionCAPTCHA) = CStr(valCAPTCHA) then CheckCAPTCHA = True else CheckCAPTCHA = False end if End Function pArticle = request.form("article") pName = request.form("name") pEmail = request.form("email") pURL = request.form("fURL") pComment = Replace(MakeURL(RemoveHTML(request.form("comment"))), "'", "''") strCAPTCHA = Trim(Request.Form("strCAPTCHA")) pCheck = request.form("check") pDate = now() If CheckCAPTCHA(strCAPTCHA) = false then sText = "

" & dictLanguage.Item(sLang&"_default_24") & "

" err = 1 End if If pComment = "" then sText = "

" & dictLanguage.Item(sLang&"_default_25") & "

" err = 1 End if If err <> 1 then strSQL7 = "SELECT * FROM tComments WHERE id=0;" Set rs7 = Server.CreateObject("ADODB.Recordset") rs7.Open strSQL7, conn, adOpenKeyset, adLockPessimistic, adCmdText rs7.AddNew rs7.Fields("fName").Value = CStr(pName) rs7.Fields("fEmail").Value = CStr(pEmail) rs7.Fields("fURL").Value = CStr(pURL) rs7.Fields("fComment").Value = CStr(pComment) rs7.Fields("fArticle").Value = CStr(pArticle) rs7.Fields("fDate").Value = CDate(pDate) rs7.Update sText = "

" & dictLanguage.Item(sLang&"_default_26") & "

" pName = "" pEmail = "" pURL = "" pComment = "" End if response.write sText End if %>

<%=dictLanguage.Item(sLang&"_default_8")%>*

<%=dictLanguage.Item(sLang&"_default_9")%>

<%=dictLanguage.Item(sLang&"_default_10")%>

<%=dictLanguage.Item(sLang&"_default_11")%>*

<%=dictLanguage.Item(sLang&"_default_12")%> *
<%=dictLanguage.Item(sLang&" width="86" height="21" />

" />  *<%=dictLanguage.Item(sLang&"_default_14")%>

<% End if %>


<% '--------------------- PAGING If iPageCurrent > 1 Then %> &author=<%=request.querystring("author")%>" title="<%=dictLanguage.Item(sLang&"_default_16")%>">‹‹ <% End If If iPageCurrent < iPageCount Then %> &author=<%=request.querystring("author")%>" title="<%=dictLanguage.Item(sLang&"_default_17")%>">›› <% End If '--------------------- END PAGING %>

<% Else 'About text %>

<%=dictLanguage.Item(sLang&"_default_18")%>

<%=sAbout%>

<% End if ' End about %>

The Valley Mart
">Jewelry News Home
">About This Blog
RSS Feed


" />


<%=dictLanguage.Item(sLang&"_default_22")%>
<% sCount = 0 strSQL8 = "select * from tMessages where online = CBool(-1) order by fDate desc" Set rs8 = Server.CreateObject("ADODB.Recordset") Set rs8 = conn.Execute(strSQL8) do while not rs8.eof and sCount < 10 sCount = sCount + 1 sID = rs8("id") sHead = rs8("fHeadline") %> <%=sHead%>
<% rs8.movenext loop %>


Subscription Options

Google Reader or Homepage
Add to My Yahoo!
Add to Technorati Favorites!
Digg This

Bookmarking Options
Del.icio.us
Furl It
Spurl
Tag!RawSugar
Simpy This!
Shadows Tag!
Blink It
My Web


<%=sName%>

<% CloseDB() %>