<%PK = 4 Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("db/linkz.mdb")%> <%Set RecSet=Conn.Execute("Select * From kat Order by namn") x=0 Do Until RecSet.EOF If x = PK Then Response.Write "" x = 0 End If%> <%Set Antal=Conn.Execute("Select Count(*) As antal from linkz Where kategori=" & RecSet("id") & " And visa=True")%> <%Antal.Close X=X+1 RecSet.MoveNext Loop%> <%Set ReS=Conn.Execute("Select Count(*) As Antal From linkz") Set RS=Conn.Execute("Select Count(*) As Antal From linkz Where visa=False")%> <%RS.Close If Request.QueryString("kat") <> "" Then Set RecSet = Server.CreateObject("ADODB.Recordset") Const lips1 = 15 Sidan = Request.QueryString("sida") Kat = Request.QueryString("kat") If Sidan = "" then sida = 1 Else sida = Sidan End If With RecSet .CursorLocation = 3 .CacheSize = lips1 End With SQL = "SELECT * FROM linkz Where kategori=" & Kat & " And visa=True ORDER by id desc" RecSet.Open SQL, Conn If RecSet.EOF Then%> <%Else With RecSet .MoveFirst .PageSize = lips1 .AbsolutePage = sida End With Sidor = RecSet.PageCount x = 0 Do While Not RecSet.EOF And x < RecSet.PageSize%> <%x=x+1 RecSet.MoveNext Loop RecSet.Close%>

<%If Kat=RecSet("id") Then%><%End If%>"><%=RecSet("namn")%> (<%=Antal("antal")%>)
Lägg till länk
Totalt finns det <%=ReS("Antal")%> länkar inlagda och av dom så har <%=RS("Antal")%> länkar inte blivit godkända ännu!
Inga länkar i denna kategori ännu!
<%=RecSet("namn")%>		Antal besök:  <%=RecSet("hitz")%>	" target="_blank">Besök nu
<%If Sidor <> 1 Then For Sid = 1 To Sidor If (Int(Sid)) = (Int(sida)) Then%><%=Sid%><%Else%> &sida=<%=Sid%>"><%=Sid%> <%End If Next%> <%End If End If End If If Request.QueryString("do")= "ut" Then Set RecSet=Conn.Execute("SELECT * From linkz WHERE id=" & Request.Querystring("id")) Conn.Execute("UPDATE linkz SET hitz=hitz+1 WHERE ID=" & Request.Querystring("id")) Response.Redirect RecSet("link") End If%>

<%If Request.QueryString("do") = "add" Then%>

Lägg till din länk

Länkens URL:

Länkens namn:

<--Välj kategori--> <%Set RS = Server.CreateObject("ADODB.Recordset") Set RS=Conn.Execute("Select * From kat Order By namn") Do Until RS.EOF Response.Write Space(10) & "" & RS("namn") & vbCrLf RS.MoveNext Loop RS.Close Set RS = Nothing%>

<%End If If Request.QueryString("do")= "adda" Then Link = Request.Form("link") If Link <> "" Then If Left(Link,7) = "http://" Then Link = Link Else Link = "http://" & Link End If End If Namn = Request.Form("namn") Kategori = Request.Form("kategori") Conn.execute("Insert Into linkz(link,namn,kategori) Values('" & Link & "','" & Namn & "'," & Kategori & ")") Response.Redirect "linkz.asp" End If%>