Fejl i connectionen!

Det er fordi du har to linjer hvor der står:

Dim Con

Includer du filen fra flere filer?

Ja det går jeg, den side som inkluderer ovenstående kode (pagecount) har følgende includes!

<!--#include file="Connections/hovedside.asp" -->
<!--#include file="admin/stats/Connections/counter.asp" -->
<!--#include file="admin/stats/count.asp" -->
<!--#include file="admin/stats/pagecount.asp" -->

Ok, men de andre sider includer de også den med databasen?

Jeg er ikke helt sikker på jeg forstår hvad du mener! men på f.eks. index.asp skal pagecount.asp inkluderes således den gemmer brugerens IP mm. på index.asp bruger den en anden connetion som hedder <!--#include file="Connections/hovedside.asp" -->

der kører derfor 2 databaser hovedside.mdb og counter.mdb

<%
Dim MM_hovedside_STRING
MM_hovedside_STRING = "dsn=hovedside;"
%>

Problemet er at når koden køre støder den på en denne linje to gange eller to ens linjer:
Dim Con

Du kan evt prøve at fjerne linjen:  Dim Con

Så kommer fejlen blot i næste linie, jeg har prøvet at fjerne dem enkeltvis!

Dim Con
Dim Con_numRows
Dim RS

Det er lidt underligt for den anden side som også inkluderes er der ingen problmer med!

count.asp

<%@LANGUAGE="VBSCRIPT"%>
<!--#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
%>

Eks hvis man har en fil som indeholder dette:

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



og fil.asp indeholder dette:
<%
Dim Con
Dim Con_numRows
Dim RS
..
..
..
%>

Vil du få fejlen fordi include laver globale variable, og ikke lokale variable. Hvis du skal udføre koden i filen og ikke få variable ud af det kan du bruger server.execute

<%
Server.Execute("fil.asp")
Dim Con
Dim Con_numRows
Dim RS
..
..
..
%>

OK! jeg har nu lagt den ændrede kode ind i pagecount.asp:

<%
Server.Execute("pagecount.asp")
Dim Con
Dim Con_numRows
Dim RS

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

Con_numRows = 0
%>
----------------------------------
men den kommer med denne fejl!

Server object error 'ASP 0228 : 80004005'

Server.Execute Error

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

The call to Server.Execute failed while loading the page.

Køre koden ikke på en IIS server??
Det kunne type på det ikke gør da server.execute ikke er med i tidligere version af vbscript.

Jeg kører siden på azeros windows servere, og jeg ved ikke lige hvilken version det er. jeg er dog kommet frem til dette: men her kommer den med fejl i linie 30 som jeg har markert så du ikke skal tælle:

fejlen er: syntax error in INSERT INTO statement

<!--#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)  ' ---  HER KOMMER FEJLEN!!!!!!!!!!!!!!!!!
    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
%>

Er Count en tal kolonne?

nej det er tekst! skal dette ændres til tal??

Nej det fint med tekst. Dog skal du huske at hvis du laver en ORDER BY count  så er "10" mindre en "2" alfabetisk set.


Så det fordi count er et reserveret ord i Access så prøv med [] omkring [Count]:

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

nu virker det sku!!!  Tusinde tak :-D

jeg skal dog lige bruge et svar!

Ok her et svar ;)