<% Option Explicit Response.Buffer = True '// "Dima" variabler Dim Handler, str_username, str_password, str_error, str_set_username, str_set_password Dim str_rub, str_textpm, Upload, path, File, FileName, Jpeg, L Dim lng_absolute_page, lng_page_count, lng_row_count Dim Directory, tabort, fso, bild %> <% If cLng(Len(Request.QueryString("page")))>0 Then lng_absolute_page = cLng(Request.QueryString("page")) Else lng_absolute_page = 1 End If If request.QueryString("deleteid") <> "" and cLng(Session("admin_access")) = 5 Then Set objCon = ConnectionOpen() SQL = "DELETE FROM nyheter WHERE nyhetsid = "& cLng(doSafe(request.QueryString("deleteid"))) &";" objCon.Execute SQL,,128 bild = Server.MapPath(""&".\nyhetsbilder\"& request.QueryString("deleteid") & "_" & request.QueryString("deleterub") &".jpg") set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(bild) Then fso.DeleteFile bild End If set fso = Nothing objCon.Close Set objCon = Nothing response.Redirect("login.asp") end if If request.QueryString("bild") = 1 and cLng(Session("admin_access")) = 5 Then Set Upload = Server.CreateObject("Persits.Upload") Upload.CodePage = 65001 Upload.Save '// Variabler med information frn formulr str_rub = Upload.Form("rubrik") str_textpm = Upload.Form("text") Set File = Upload.Files("fil") path = Server.MapPath(""&"./nyhetsbilder/") Upload.CreateDirectory path, True If not File Is Nothing then if File.ImageType = "JPG" then Set objCon = ConnectionOpen() SQL = "INSERT INTO nyheter(rubrik,textpm) VALUES('"& str_rub &"','"& str_textpm &"');" objCon.Execute SQL,,128 SQL = "SELECT @@IDENTITY FROM nyheter;" Set objRs = objCon.Execute(SQL) filename = objRs.Fields(0).Value &"_"& str_rub & File.Ext objRs.Close Set objRs = Nothing objCon.Close Set objCon = Nothing File.SaveAS path&"/"& filename filename = path&"/"& File.FileName ' Create instance of AspJpeg Set Jpeg = Server.CreateObject("Persits.Jpeg") ' Open source image Jpeg.Open filename ' New width L = 600 ' Resize, preserve aspect ratio jpeg.PreserveAspectRatio = True If jpeg.OriginalWidth > jpeg.OriginalHeight Then jpeg.Width = L Else jpeg.Height = L End If Jpeg.Save filename response.Redirect("login.asp") else session("fel") = "Filen får endast vara JPG/JPEG" File.Delete end if else Set objCon = ConnectionOpen() SQL = "INSERT INTO nyheter(rubrik,textpm) VALUES('"& str_rub &"','"& str_textpm &"');" objCon.Execute SQL,,128 response.Redirect("login.asp") end if End if Set Handler = New Handlers If Request.ServerVariables("REQUEST_METHOD") = "POST" AND request.QueryString("bild") <> 1 Then '// Stll in anvndarnamnet och lsenordet. str_set_username = "revolve" str_set_password = "freeport" '// Vilka formulr som mste vara ifyllda Handler.RequireForms "username,password" '// Variabler med information frn formulr str_username = doSafe(Request.Form("username")) str_password = doSafe(Request.Form("password")) If Handler.OK Then '// Om det r rtt anvndarnamn och lsenord s skapa session och skicka tillbaka till rtt sida, annars skapa felmeddelande if(str_username = str_set_username AND str_password = str_set_password)then Session("admin_access") = 5 Response.Redirect("login.asp") else str_error = "

Fel anvndarnamn och/eller lösenord." end if End If End If '// Logga ut anvndare och skicka tillbaka till rtt sida If Request.QueryString("me") = "logout" Then Session.Abandon() Response.Redirect("login.asp") End If %><% If cLng(Session("admin_access")) = 5 Then %>
Uppdatera shows
Logga ut

<% Set objCon = ConnectionOpen() Set objRs = Server.CreateObject("ADODB.Recordset") SQL = "SELECT * "&_ "FROM nyheter "&_ "ORDER BY datum DESC;" objRs.CursorLocation = 3 objRs.Open SQL, objCon, 3, 4 If Not objRs.Eof Then '// Antal svar per sida objRs.PageSize = 10 '// Aktuell sida objRs.AbsolutePage = clng(lng_absolute_page) '// Antal sidor lng_page_count = objRs.PageCount lng_row_count = 0 %> <% Do Until objRs.Eof OR lng_row_count => objRs.PageSize lng_row_count = lng_row_count + 1 %> <% objRs.Movenext Loop End If %>

<%response.write(NewText(objRs("rubrik")))%>
<%response.write(FormatDateTime(objRs("datum"),2))%>

<%response.write(NewText(objRs("textpm")))%>

<%bild = Server.MapPath(""&".\nyhetsbilder\"& objRs("nyhetsid") & "_" & objRs("rubrik") &".jpg") set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(bild) Then%>

_<%=Server.HTMLEncode(objRs("rubrik"))%>.JPG&width=180" > <%else%> <%end if bild = "" set fso = Nothing %>

">Ändra
&deleterub=<%=Server.HTMLEncode(objRs("rubrik"))%>">Radera

<% '// Stäng och frigör objRs objRs.Close Set objRs = Nothing Dim a Response.Write("Navigera: ") For a = 1 to lng_page_count If clng(a) <> clng(lng_absolute_page) Then Response.Write(""& a &" ") Else Response.Write(""& a &" ") End If Next '// Stäng och frigör objCon objCon.Close Set objCon = Nothing session("fel")="" Else %> <% End If %>