Hej!

Hur skriver man en enkel besöksräknare med ASP och en Accessdatabas genom att använda ID?

Mvh Klas

du behöver nog inte använda databaser...utan du kan använda en text fil som det blir +1 varje gång någon går in....

/BJ

Hej!

Vad menar du med att använda ID?

Såhär hade jag gjort:

Skapa en tabell som heter tblVisitors, och skapa i den en post med namnet NrOfVisitors.

sedan är det bara att köra:

<code>
'--- Deklarerar variabler
Dim dbConn
Dim RS
Dim SqlString

'--- Skapar koplingsobjekt
Set dbConn = Server.CreateObject("ADODB.Connection")

'--- Öppnar databasen
dbConn.Open = "Min sträng för att öppna databasen"

'---Skapar recordset
Set RS = Server.CreateObject("ADODB.RecordSet")

'--- Fråga till databasen
SqlString = "SELECT NrOfVisitors FROM tblVisitors"

'--- Öppnar recordset och kör sql-fråga
RS.Open SqlString, dbConn

'--- Lägger till 1 vid antalet besökare
RS.Update
RS("NrOfVisitors") = RS("NrOfVisitors") + 1

'--- Nollställer samt stänger alla kopplingar mot databasen
RS.Close
Set RS = Nothing
dbConn.Close
Set dbConn = Nothing
</code>

Lycka till!

Hej hopp! :-)

Jo, jag hade det som en txt fil innan, och körde på skolans server, men så flyttade jag över det till Brinkster, så vill det inte fungera, har även provat att lägga den i db katalogen, men det vill sig inte ändå.

Verkar som om jag inte får uppdatera något annat än db filer där.

Det som hände var att räknaren startade om från 1 ungefär var 30:e minut.... :-)

Mvh Klas

aha, tackar, ska testa.

Mvh Klas

Tjena!

Det finns ju en bra räknare som du kan ladda ned på filarkivet här på pellesoft, det är faktiskt riktigt bra!

Hej!

Var ligger den, tror mig ha letat igenom hela ASP arean nu.

Sökte även på "räknare"

Mvh Klas

Christer, om du gör så här istället så slipper du belasta din server så mycket.

<code>
'--- Deklarerar variabler
Dim dbConn
Dim SqlString

'--- Skapar koplingsobjekt
Set dbConn = Server.CreateObject("ADODB.Connection")

'--- Öppnar databasen
dbConn.Open = "Min sträng för att öppna databasen"

'--- Fråga till databasen
SqlString = "UPDATE NrOfVisitors SET tblVisitors = tblVisitors + 1"

'--- Öppnar recordset och kör sql-fråga
dbConn.execute SqlString,,128

'--- Nollställer samt stänger alla kopplingar mot databasen
dbConn.Close
Set dbConn = Nothing
</code>

Nu slipper du hämta ditt värde från databasen, skapa ett recordset, leta fram kolumnanen lägga till 1 och sedan spara tillbaka recordsetet till databasen. Allt detta tar tid och prestanda.

- magnus