<%PK = 4 Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("Links/db/linkz.mdb")%>
Länkar <%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 = 40 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?väntar <%=RS("Antal")%> länk/länkar p?ett godkännande.

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:

<%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 "links_linkz.asp" End If%>

 

I first caught wind of the new replica watches when Chris Vail, creator of Lew & Huey, sent out a message asking for input on the various replica watches sale he will be building (more on that here). Looking through the photos, it is easy to see that these watches were directly inspired by the classic cartier replica of the past. That does beg the question longines replica sale do we need yet another homage to this classic design? Given that Vail has a tendency to make things interesting in what he builds, I am definitely willing to give him the rolex replica sale of the doubt at this point in the process.