Opsætning af urlcounter

måske har jeg noget her... men hvordan kommer de til at virke ??

id = request.querystring("id")

      SQL = "SELECT address, clicks FROM links WHERE id = " & id
      set RS = conn.execute(SQL)

    address = RS("address")

      clicks = RS("clicks") + 1

      SQL = "UPDATE links SET clicks = " & clicks & " WHERE id = " & id
      set RS = conn.execute(SQL)

      response.redirect("http://" & address)

hvad med

SQL = "UPDATE links SET clicks = clicks + 1 & " WHERE id = " & id

og drop clicks = RS("clicks") + 1

Det vil sige den evt. skal se sådan ud??

<%
id = request.querystring("id")

      SQL = "SELECT address, clicks FROM links WHERE id = " & id
      set RS = conn.execute(SQL)

    address = RS("address")

      SQL = "UPDATE links SET clicks = clicks + 1 & " WHERE id = " & id
      set RS = conn.execute(SQL)

      response.redirect("http://" & address)
&>

Sådan! - eller hvad??

<%
id = request.querystring("id")

      SQL = "SELECT address, clicks FROM links WHERE id = " & id
      set RS = conn.execute(SQL)

    address = RS("address")

      SQL = "UPDATE links SET clicks = clicks + 1 & " WHERE id = " & id
      set RS = conn.execute(SQL)

      response.redirect("http://" & address)
%>

<%
id = request.querystring("id")

      SQL = "UPDATE links SET clicks = clicks + 1 & " WHERE id = " & id
      set RS = conn.execute(SQL)

      response.redirect("http://" & address)
&>

<%
id = request.querystring("id")

      SQL = "UPDATE links SET clicks = clicks + 1 & " WHERE id = " & id
      set RS = conn.execute(SQL)

      response.redirect("http://" & address)
%>

<%
id = request.querystring("id")

      SQL = "SELECT address, clicks FROM links WHERE id = " & id
      set RS = conn.execute(SQL)

      address = RS("address")

      SQL = "UPDATE links SET clicks = clicks + 1 & " WHERE id = " & id
      set RS = conn.execute(SQL)

      response.redirect("http://" & address)
%>

overså at du skulle bruge adresse til sidst

Jeg får sådan en fejl, når jeg har inden sat den på min side,

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/forsider/visning_backup.asp, line 920

SQL = "UPDATE film SET clicks = clicks + 1 & " WHERE id = " & id
-----------------------------------------------^

pilen skulle gå hen til "WHERE "

Min kode ser pt sådan ud...

          <%

if (Request.QueryString("id") & "") <> "" then
  strConn = "DRIVER={Microsoft Access Driver (*.mdb)}; " & _
  "DBQ=" & Server.MapPath("../../db/databasen.mdb") 
  set objConn = Server.CreateObject("ADODB.Connection")
  objConn.Open strConn

      SQL = "SELECT id_box, clicks FROM database WHERE id = " & id
      set RS = conn.execute(SQL)

      id_box = RS("id_box")

      SQL = "UPDATE database SET clicks = clicks + 1 & " WHERE id = " & id
      set RS = conn.execute(SQL)

      response.redirect("visning.asp?id=" & id_box)
%>

Er det også den skal se ud ??

<%

if (Request.QueryString("id") & "") <> "" then
  strConn = "DRIVER={Microsoft Access Driver (*.mdb)}; " & _
  "DBQ=" & Server.MapPath("../../db/databasen.mdb") 
  set objConn = Server.CreateObject("ADODB.Connection")
  objConn.Open strConn

      SQL = "SELECT id_box, clicks FROM database WHERE id = " & id
      set RS = conn.execute(SQL)

      id_box = RS("id_box")

      SQL = "UPDATE database SET clicks = clicks + 1 WHERE id = " & id
      set RS = conn.execute(SQL)

      response.redirect("visning.asp?id=" & id_box)
%>

Nu siger den:

Microsoft VBScript compilation error '800a03f6'

Expected 'End'

- Hvad end det så betyder :D

hvilken linje

line 1485 - der slet ikke har noget med dette at gøre :/

underligt...

kopir evt. linjen herind

Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/forsider/visning.asp, line 1485


PS. men der hvor har ind sat koden.. er på linie 907 og ser sådan ud...

    <%

if (Request.QueryString("id") & "") <> "" then
  strConn = "DRIVER={Microsoft Access Driver (*.mdb)}; " & _
  "DBQ=" & Server.MapPath("../../db/databasen.mdb") 
  set objConn = Server.CreateObject("ADODB.Connection")
  objConn.Open strConn

      strSQL = "SELECT id_box, clicks FROM database WHERE id = " & id
      set RS = conn.execute(SQL)

      id_box = RS("id_box")

      strSQL = "UPDATE database SET clicks = clicks + 1 WHERE id = " & id
      set RS = conn.execute(SQL)

      response.redirect("visning.asp?id=" & id_box)
%>

vil gerne se linjen hvor der brokker sig

<td width="61%" class="almin_teskt"><span class="almin_tekst"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><font color="#CCCCCC"><%=musik%></font></font></font></span></td>


:S - men det skulle ikke være der problemet er...

prøv der hvor den brokker sig at smide denne stump ind


<% end if %>

Bare skriv et "svar" - de få point... -

svar:)