<% 'Set the response buffer to true as we maybe redirecting and setting a cookie Response.Buffer = True 'Make sure this page is not cached Response.Expires = -1 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "No-Store" %> <% strSQL = "SELECT * FROM " & strDbTable & "haberler ORDER BY haber_id desc;" 'Set the cursor type property of the record set to dynamic so we can naviagate through the record set rsCommon.Open strSQL, adoCon If rsCommon.EOF Then %> <% else Do While NOT rsCommon.EOF strhaber_id = rsCommon("haber_id") strhaber = rsCommon("haber_tr") strimage = rsCommon("tumb_image") strimage = Replace(strimage, "../", "", 1, -1, 1) strdetay = rsCommon("tanim_tr") if strdetay <> "" OR strimage <> "" then strdetay = "Devamı >>" end if %>

<%=strhaber%>

<%=strdetay%>

<% rsCommon.MoveNext Loop END IF 'Clean up rsCommon.Close %> <% Set rsCommon = Nothing adoCon.Close Set adoCon = Nothing %>