%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% iPageID = request.QueryString("ID") if iPageID = "" then response.Redirect("index.asp") end if If Request.QueryString("Delete") = "PAGE" AND Session("AdminLogedIn")=1 Then Set rsPage = Server.CreateObject("ADODB.Recordset") rsPage.ActiveConnection = Connection_STRING rsPage.Source = "SELECT * FROM tblPage WHERE id="&Request.QueryString("ID") rsPage.CursorType = 0 rsPage.CursorLocation = 2 rsPage.LockType = 1 rsPage.Open() pDeleteFile(CONSTANT_uploadfilepath&"documents\blog\thumb_"&rsPage.Fields.Item("pageimage").Value) pDeleteFile(CONSTANT_uploadfilepath&"documents\blog\"&rsPage.Fields.Item("pageimage").Value) rsPage.Close() set rsPage=Nothing sql="DELETE FROM tblPageparagraph WHERE pageid=" & Request.QueryString("id") call pSQLRequest(sql,Connection_STRING) sql="DELETE FROM tblPage WHERE id=" & Request.QueryString("id") call pSQLRequest(sql,Connection_STRING) response.Redirect("index.asp") elseif Request.QueryString("Delete") = "PARAGRAPH" AND Session("AdminLogedIn")=1 Then sql="DELETE FROM tblPageparagraph WHERE id=" & Request.QueryString("id") call pSQLRequest(sql,Connection_STRING) response.Redirect("page.asp?ID="&request.QueryString("PAGEID")) End if Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = Connection_STRING rs.Source = "SELECT * FROM tblPage WHERE id="&iPageID rs.CursorType = 0 rs.CursorLocation = 2 rs.LockType = 1 rs.Open() strPageheader = rs.Fields.Item("pageheader").Value strPageimage = rs.Fields.Item("pageimage").Value strPageimagewidth = rs.Fields.Item("pageimagewidth").Value strPageimageheight = rs.Fields.Item("pageimageheight").Value bErasable = rs.Fields.Item("erasable").Value rs.Close() Set rs = Nothing %>
Ändra sidbrubrik / bild Radera
Lägg till paragraf
<%= replace(rs.Fields.Item("paragraph").Value,VbLf,"
") %>