<%@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 %> Tranåslunds gård <% If Session("AdminLogedIn")=1 Then %> <% end if %>

<%= strPageheader %>

<% If strPageimage <> "" Then %> <% End if %> <% if Session("AdminLogedIn") = 1 then %>

Ändra sidbrubrik / bild Radera
Lägg till paragraf

<% end if %> <% Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = Connection_STRING rs.Source = "SELECT * FROM tblPageparagraph WHERE pageid="&iPageID&" ORDER BY sortorder ASC" rs.CursorType = 0 rs.CursorLocation = 2 rs.LockType = 1 rs.Open() do while NOT rs.EOF %> <% if Session("AdminLogedIn") = 1 then %> &PAGEID=<%= iPageID %>">Ändra paragraf ','<%= rs.Fields.Item("header").Value %>')">Radera
<% end if %>

<%= rs.Fields.Item("header").Value %>


<%= replace(rs.Fields.Item("paragraph").Value,VbLf,"
") %>

<% rs.MoveNext() loop rs.Close() Set rs = Nothing %>

 

© 2011 Tranåslunds gård