Connection x2 (counter)

Du skal blot fjerne følgende linie i din include fil: <%@LANGUAGE="VBSCRIPT"%>

Idet du allerede har erklæret det en gang.

/Steen

jeg mente det som et svar ;-)

Hvis jeg fjerner <%@LANGUAGE="VBSCRIPT"%> kommer den med følgende fejl!

Microsoft VBScript compilation error '800a0411'

Name redefined

/ny/admin/stats/pagecount.asp, line 3

Dim Con
----^

Her det noget at gøre med at hovedsiden hvor statistikken skal logges på har en anden connection "MM_database_STRING"

Koden i siden som skal gemme IPen......

<!--#include file="Connections/counter.asp" -->
<%
Dim Con
Dim Con_numRows
Dim RS

Set Con = Server.CreateObject("ADODB.Connection")
Con.Open MM_counter_STRING

Con_numRows = 0
%>

Jeg smider lige hele koden, hvis det kan give et bedre overblik!

<!--#include file="Connections/counter.asp" -->
<%
Dim Con
Dim Con_numRows
Dim RS

Set Con = Server.CreateObject("ADODB.Connection")
Con.Open MM_counter_STRING

Con_numRows = 0
%>
<%
Function fixQuotes( theString )
    fixQuotes = Replace( theString, "'", "''" )
End Function

IP = Request.ServerVariables("REMOTE_ADDR")
URL = Request.ServerVariables("URL")

If Session("Reload") <> "" & IP & "," & URL & "" Then
   
    Session("Reload") = "" & IP & "," & URL & ""

    Sql = "SELECT * FROM sider WHERE URL = '" & URL & "'"
    Set RS = Con.Execute(Sql)   

        If (RS.BOF Or RS.EOF) Then
            Count = 1
            SqlNy = "INSERT INTO sider (URL, Count) VALUES('" & fixQuotes(URL) & "','" & fixQuotes(Count) & "')"
            Con.Execute(SqlNy)
    else
        Site = RS("URL")
        End If
       
       
        If Site = URL Then
            Count = RS("Count") + 1
            SqlCount = "UPDATE sider SET Count='" & Count & "' WHERE URL = '" & URL & "'"
            Con.Execute(SqlCount)
        End If       
End If

%>
<%
Con.Close()
Set RS = Nothing
Set Con = Nothing
%>

Det jeg tror der sker er, at du i "hoved" siden også benytter "con", og når du så inkluderer en side i denne, hvor du så prøver at skrive DIM CON, så går det galt, idet du allerede har benyttet den, prøv evt følgende:

<!--#include file="Connections/counter.asp" -->
<%
Dim Con2
Dim Con2_numRows
Dim RS2

Set Con2 = Server.CreateObject("ADODB.Connection")
Con2.Open MM_counter_STRING

Con2_numRows = 0
%>
<%
Function fixQuotes( theString )
    fixQuotes = Replace( theString, "'", "''" )
End Function

IP = Request.ServerVariables("REMOTE_ADDR")
URL = Request.ServerVariables("URL")

If Session("Reload") <> "" & IP & "," & URL & "" Then
   
    Session("Reload") = "" & IP & "," & URL & ""

    Sql = "SELECT * FROM sider WHERE URL = '" & URL & "'"
    Set RS2 = Con2.Execute(Sql)   

        If (RS2.BOF Or RS2.EOF) Then
            Count = 1
            SqlNy = "INSERT INTO sider (URL, Count) VALUES('" & fixQuotes(URL) & "','" & fixQuotes(Count) & "')"
            Con2.Execute(SqlNy)
    else
        Site = RS2("URL")
        End If
       
       
        If Site = URL Then
            Count = RS2("Count") + 1
            SqlCount = "UPDATE sider SET Count='" & Count & "' WHERE URL = '" & URL & "'"
            Con2.Execute(SqlCount)
        End If       
End If

%>
<%
Con2.Close()
Set RS2 = Nothing
Set Con2 = Nothing
%>

Hej steen!

Nu er den i hvert fald kommet en del længere :-D

den kommer dog nu med en fejl i linie 30

        If (RS2.BOF Or RS2.EOF) Then
            Count = 1
            SqlNy = "INSERT INTO sider (URL, Count) VALUES('" & fixQuotes(URL) & "','" & fixQuotes(Count) & "')"
            Con2.Execute(SqlNy)    ' her kommer fejlen

Syntax error in INSERT STATEMENT

Tusinde tak for hjælpen: løsningen var i linie 30

SqlNy = "INSERT INTO sider (URL, [Count]) VALUES('" & fixQuotes(URL) & "','" & fixQuotes(Count) & "')"