Nykommer !!!!

Du skal nok slippe, lidt mere end 30 points for sådan kode... Men har er en lidt mere optimeret udgave af din kode:

lige noget andet:
Du bør nok gøre det til en vane at når du laver en do/loop igemmen dine records. At du så skriver:

do while not rs.eof
rs.movenext
loop

i stedet for (SKRIV IKKE DETTE):
do
rs.movenext
loop while not rs.eof

For sådan som du gør, vil der komme en fejl, hvis der ikke er nogen indlæg i databasen.

Hva med såd´n her:

Response.Write \"<B>\" & rs(\"LinkName\") & \"</B><br>\"
  Response.Write rs(\"Beskrivelse\") & \"<br>\"
  Response.Write \"<a href=redirect.asp?linkid=\"& rs(\"LinkID\")&\" TARGET=_blank>\" & rs(\"LinkURL\") & \"</a><br><hr>\"

  do while not rs.eof
rs.movenext
loop

Forresten, Kan jeg sætte pointene op nu ??

Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"

Conn.Open strConnect

strSQL = \"Select * FROM links WHERE kategori = \'Samfund & Politik - Organisationer\'Order by LinkName\"

\' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

\' Gennemløb Recordset (rs) med en løkke
While not rs.eof

  Response.Write \"<B>\" & rs(\"LinkName\") & \"</B><br>\"
  Response.Write rs(\"Beskrivelse\") & \"<br>\"
  Response.Write \"<a href=\'redir.asp?id=\"&rs(\"LinkID\")&\"\'>\" & rs(\"LinkURL\") &      \"</a><br><hr>\"

  rs.MoveNext

wend

rs.close
set rs=nothing
Conn.Close
Set Conn = Nothing


filen redir.asp

<%
Response.Buffer = True
Set myConn = Server.CreateObject(\"ADODB.Connection\")

Conn.Open strConnect

If Request.QueryString(\"id\") <> \"\" Then
  Set objRS = Server.CreateObject(\"ADODB.RecordSet\")
  strSQL = \"SELECT * FROM Download WHERE (ID = \" & Request.QueryString(\"id\") & \")\"
  objRS.Open strSQL, myConn, 1, 3
  If Not (objRS.BOF Or objRS.EOF) Then
    objRS(\"Hits\") = objRS(\"Hits\") + 1
    strURL = objRS(\"URL\")
    objRS.Update
    objRS.Close
    myConn.Close
    Set objRS = Nothing
    Set myConn = Nothing
    Response.Clear
    Response.redirect(strURL)
  End If
End If
%>

Den er ikke testet, der er noget jeg lige har fundet. Du skal nok lige rette navnene til. Prøv dig frem. Jeg vil gerne hjælpe med fejl i siden redir.asp og komme med et bedre bud hvis ovenstående ikke virker.

strSQL = \"SELECT * FROM Download WHERE (ID = \" & Request.QueryString(\"id\") & \")\"
id skal være lig linkid eller hvad den hedder

OK, tak skal du have...
Jeg prøver lige

Det vil F..... Ikke !?
Jeg har set noget lignende den du viser mig der, men min hedder bare redirect

hvad er der galt

Ja, hvis jeg viste det.....
Når jeg prøver siger den \"Problemer med webstedet.....

OK Nu får jeg da siden frem, men den opdaterer ikke hits i DB ??

OK