<%Response.Buffer = True If Request.Querystring("mess") = "fel" Then mess = "alert('Fel lösenord eller adminnamn!');return true;" End If If Request.Querystring("mess") = "bort" Then mess = "alert('Posten borttagen!');return true;" End If If Request.Querystring("mess") = "andra" Then mess = "alert('Posten ändrad!');return true;" End If%> Min länkarkivadmin
<%With RecSet .MoveFirst .PageSize = ps2 .AbsolutePage = sida End With Sidor = RecSet.PageCount Count = 0 Do While Not RecSet.EOF And Count < RecSet.PageSize Kat = RecSet("kategori") Set RS=Conn.Execute("Select * From kat Order by id") Do Until RS.EOF If Kat = RS("id") Then Kat = RS("namn") End If RS.MoveNext Loop RS.Close%> <%Count = Count + 1 RecSet.MoveNext Loop%> <%If Sidor > 1 Then%> <%End If End If%>

  <%Function FixaTecken(str) FixaTecken = Replace(Trim(str),"'","''") End function Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db If Request.QueryString("do") = "" Then%>
Admin:
Adminnamn:
Lösenord:
 
<%End If If Request.QueryString("do") = "check" Then If Request.Form("admin1") = Admin1 AND Request.Form("admin2") = Admin2 Then login="ok" Else Response.Redirect "links_admin.asp?mess=fel" End If If login="ok" Then Session("admin") = "ok" Session.TimeOut = 40 Response.Redirect "links_admin.asp?do=inne" End If End If If Request.QueryString("do") = "inne" AND Session("admin") = "ok" Then%> <%If Request.Querystring("action")= "" AND Session("admin") = "ok" Then%>
<%Set RecSet = Server.CreateObject("ADODB.Recordset") Const ps2 = 15 Sidan = Request.QueryString("sida") If Sidan = "" then sida = 1 Else sida = Sidan End If With RecSet .CursorLocation = 3 .CacheSize = ps2 End With SQL = "Select * From linkz Order By id desc" RecSet.Open SQL, Conn If RecSet.EOF Then%>
Inga länkar inlagda!
<%Else%>
Hemsidans namn   Kategori Visa länken
" target="_blank"><%=RecSet("namn")%> <%=Kat%> Ja " value="ja" <%If RecSet("visa") = True Then Response.Write "checked"%>>/" value="nej" <%If RecSet("visa") = False Then Response.Write "checked"%>> Nej ">Ändra   ')">Ta bort
 
 
<%If Sidor <> 1 Then For Sid = 1 To Sidor If (Int(Sid)) = (Int(sida)) Then%><%=Sid%><%Else%> <%=Sid%> <%End If%> <%Next%>
<%RecSet.Close Set RecSet = Nothing End If End If If Request.Querystring("action")= "check" AND Session("admin") = "ok" Then For Each id In Request.Form If Request.Form(id) = "ja" Then Conn.Execute("Update linkz Set visa=True Where id=" & id) Else Conn.Execute("Update linkz Set visa=False Where id=" & id) End If Next Response.Redirect "links_admin.asp?do=inne" End If If Request.Querystring("action")= "change" AND Session("admin") = "ok" Then Set RecSet = Conn.Execute("Select * From linkz Where id=" & Request.QueryString("id"))%> " onSubmit="return LinkAndra()">
Länkens URL:
">
Länkens namn:
">
<%RecSet.Close Set RecSet = Nothing End If If Request.Querystring("action") = "andrat" AND Session("admin") = "ok" Then Link = Request.Form("link") Namn = Request.Form("namn") Kategori = Request.Form("kategori") Conn.execute("Update linkz Set link='" & Link & "',namn='" & Namn & "',kategori=" & Kategori & " Where id = "& Request.Querystring("id")) Response.Redirect "links_admin.asp?do=inne&mess=andra" End If If Request.Querystring("action") = "delete" AND Session("admin") = "ok" Then Conn.Execute("Delete * From linkz Where id=" & Request.Querystring("id")) Response.Redirect "links_admin.asp?do=inne&mess=bort" End If If Request.Querystring("action") = "kat" AND Session("admin") = "ok" Then Set RS=Conn.Execute("Select * From kat Order By namn")%> <%If RS.EOF Then%> <%Else Do Until RS.EOF%> <%RS.MoveNext Loop End If%>
Inga kategorier inlagda
<%=RS("namn")%> ">Ändra   ');">Ta bort
<%End If If Request.Querystring("action") = "changekat" AND Session("admin") = "ok" Then Set RecSet = Conn.Execute("Select * From kat Where id=" & Request.QueryString("id"))%> " onSubmit="return Kate()">
Kategori: ">
<%End If If Request.Querystring("action") = "andratkat" AND Session("admin") = "ok" Then Kategori = Request.Form("namn") Conn.execute("Update kat Set namn='" & Kategori & "' Where id = "& Request.Querystring("id")) Response.Redirect "links_admin.asp?do=inne&mess=andra&action=kat" End If If Request.Querystring("action") = "addkat" AND Session("admin") = "ok" Then%>
Kategori:
<%End If If Request.Querystring("action") = "sparakat" AND Session("admin") = "ok" Then Kategori = Request.Form("namn") Conn.execute("Insert Into kat(namn) Values('" & Kategori & "')") Response.Redirect "links_admin.asp?do=inne&action=kat" End If If Request.Querystring("action") = "delkat" AND Session("admin") = "ok" Then Conn.Execute("Delete * From kat Where id=" & Request.Querystring("id")) Response.Redirect "links_admin.asp?do=inne&mess=bort&action=kat" End If End If If Request.Querystring("do") = "logut" Then Session.Abandon Response.Redirect "links_linkz.asp" End If Conn.Close Set Conn = Nothing%>