SQL

strSQL ="SELECT * FROM count WHERE ip = '" & request.ServerVariables("REMOTE_ADDR") & "'
strSQL = strSQL  &  " AND dato =" & Now

prøv det

hov husk lige det sidste anførselstgen efter den sidste '
strSQL ="SELECT * FROM count WHERE ip = '" & request.ServerVariables("REMOTE_ADDR") & "'"

Nu spørger jeg lige om noget helt andet... dette skal bruges til en dags counter.... er det så ikke nemmere at lave det via en session der holder til klokken 24 ?

hmm en dagstæller... i forbindelse med hvad..?

det skal bruges til at tælle unikke besøgende pr. dag

hmm det må jeg lige tænke over..og det er ikek let at tænke på det her tidspunkt af dagen :)

virkede det andet forresten ?

kan ikke få den til det... det vil sige den skriver det godt nok, men min kode fatter den ikke, den vil skrive hvergang jeg kommer ind på siden til databasen, og melder derved fejl, har lavet en if sætning til første SQL til at tjekke om den skulle eksistere men den ignorer den &:-(

er jo det med sessioner at de tager resourcer ..ret meget faktisk..hvis du vil bruge seesion på hver unik besøgene kan det jo end op med at blive dyrt i resourcer...hvis du forstår

kan jeg godt se..... men kan ski ikke få den for....... kode til at virke

umm for at tjekke om den bruger har været der i forvejen bliver du jo nød til at åben recordsettet og hente de oplysning  som passer på hasn IP
så kan du jo lige efter du har åbnet recorsettet sprøg sådan her.:
If ObjRS.EOF then
'noget
end if

har jeg gjort på denne måde:

strSQL ="SELECT * FROM count WHERE ip = '" & request.ServerVariables("REMOTE_ADDR") & "' & Date() = 'rs(dato)'"
set rs = conn.execute(strSQL)
if (rs.EOF OR rs.BOF)  then

' Databaseforbindelse
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/koder/asp/countdag/count.mdb")
Conn.Open DSN

SQLstmt = "INSERT INTO count (ip,dato)"
SQLstmt = SQLstmt & " VALUES ('" & request.ServerVariables("REMOTE_ADDR") & "','" & Date() & "')"
Conn.Execute (SQLstmt)
end if

men den skriver hver gang til db man går derind

Noget i retnign af det hjer

Set ObjConn = Server.createobject("ADODB.Connection")
    ObjConn.open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & server.mappath("../database.mdb")
    Set ObjRS = Server.createObject("ADODB.Recordset")
           
    SQL = "Select CharterID,Charter from tblcharter WHERE CharterID=1 "
    ObjRS.open Sql,Objconn
   
   
    If ObjRS.EOF then
   
        ObjRS.close
        Set ObjRS = Nothing
   
        SQL = "INSERT INTO tblcharter ( "
        SQL = SQL & "Charter) "
        SQL = SQL & "values ( "
        SQL = SQL & "'" & Charter & "') "
   
        ObjConn.execute(SQL)
   
        Objconn.close
        Set ObjConn = Nothing
        response.redirect "forside.asp?        
    ELSE
   
        ObjRS.close
        Set ObjRS = Nothing
       
        SQL = "Update tblcharter set "
        SQL = SQL & "Charter='" & Charter & "' "
        SQL = SQL & "where CharterID=1"   
       
        ObjConn.execute(SQL)
   
        Objconn.close
        Set ObjConn = Nothing
        response.redirect "forside.asp"
    END IF

jeg må indrømme jeg ikek fatter hvorfor folk bruger det .:
if (rs.EOF OR rs.BOF)  then

jeg må være dum siden jeg ikek bruger det...jeg fatter det ihvertfald ik

er der noget galt med det jeg gør ????

ummm har dunogen forbindelse åben til det recordset du åbner før du åbner  forbindelsen der ligger før du indsætter ?

jeps, der er en forbindelse magen til den der er under....

prøv at ændre det her
if (rs.EOF OR rs.BOF)

til det her
If RS.EOF then


er det bare mig..elelrs tænker man dårligt på det her tidspunkt ?

ikke kun dig... har lige lavet en counter der virker... det eneste der er forskel er dato opsætningen &:-D

giver samme resultat &:-D

og det her
strSQL ="SELECT * FROM count WHERE ip = '" & request.ServerVariables("REMOTE_ADDR") & "' & Date() = 'rs(dato)'"
til det her
strSQL ="SELECT * FROM count WHERE ip = '" & request.ServerVariables("REMOTE_ADDR") & "'"
strSQL = StrSQL & " AND dato=" & date()

det samme... du kan se det på:

http://www.questis.dk/koder/asp/countdag/count.asp

ummm hvis du vil så kan du da lige maile mig den/de sider og den db  så jeg selv kan se fejlmeddelsen på min egen webserver


ellers prøv lige at sætte ' uden om date

prøver det lige... ellers sender jeg lige... men skal bruge en mail &:-D

mccannon@get2net.dk

sendt

giv mig 10 min.så virker det..99% sikkert

&:-D lyder godt

er der noget jeg hader er det dato felter i acces databaser...lad være med at bruge dem..de skoder seriøst på microsoftmaner

mccannon>> jeg vil til at sove lidt.... men kan du ikke kigge lidt på det til en gang i morgen og så sende. så ville jeg være glad... så tjekker jeg løbende i morgen

*GG* ok, troede man skulle gøre det &:-D

den er faktisk fixet nu

http://195.249.94.27/Eksperten/coutner/count.asp

hæ hæ.... ikke dårligt &:-D

sender den nu

sendt

takker for hjælpen du har været kanon &:-D

my plesure :)

håber ikke du har noget imod jeg beholder di script..er lidt bedre end den counter jegh ar lavetr :)

det er helt i orden... den bliver aligevel lagt til fri download på www.questis.dk når den er færdig &:-D