SERTÝFÝKALARIMIZ

     

<% If AntiSQL(Request.QueryString("PictureID")) = "" or IsNumeric(Request.QueryString("PictureID")) = False Then Response.Redirect("?PictureID=1") End if PictureID = Request.QueryString("PictureID") Set XPictures = Server.CreateObject("ADODB.Recordset") SQL = "Select * from Pictures Where PictureID Order by PictureID" XPictures.Open SQL , DBConn,1,3 Set Pictures = Server.CreateObject("ADODB.Recordset") SQL = "Select * from Pictures Where PictureID Like "&PictureID&" Order by PictureID" Pictures.Open SQL , DBConn,1,3 If Pictures.BOF Then %>

                                      <% End If XPictures.Close Pictures.Close FwPictureID = PictureID + 1 Set Pictures = Server.CreateObject("ADODB.Recordset") SQL = "Select * from Pictures Where PictureID Like "&FwPictureID&" Order by PictureID" Pictures.Open SQL , DBConn,1,3 If Pictures.BOF Then %>                      <% Else %>                      <%End If%>