problemer med at se hvormange der ligger på en dag.

Bruger du følgende SQL til noget
StrSql= "Select * from calendar where dte = #" & Request("view_Date") & "#"
strSql= "select * from calendar where month(dte) = " & month(Request("view_date")) & " AND day(dte) = "&day(request("view_date"))

Du kan prøve noget ala, det er ikke testet, så der er sikker fejl i
if Request.Form("pword") <> "" then 'the password
    Response.AddHeader "401.1 Unauthorized: ", "401.1"
    Response.Write "<H2>HTTP Error 401</H2><P><STRONG>401.1 Unauthorized: Logon Failed</STRONG></P><P>This error indicates that the credentials passed to the server do not match the credentials required to log on to the server.</P>"
    Response.Write "<center><a href='index.asp'>Back to Calendar</a> </center>"
    Response.End
End if

Function ChkString(string)
    if string = "" then string = " "
    ChkString = Replace(string, "'", "''")
End Function

set my_conn= Server.CreateObject("ADODB.Connection")
'my_Conn.Open "DSN=schedule2000"
cnpath="DBQ=" & server.mappath("webcalendar.mdb") 'or where ever you put the db.
my_conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath

'Check to see if it's a new record to be added or an old one to update
strSQL = "SELECT Count(navn) as antal from yearlycal GROUP by dte HAVING dte=#"&request("view_data")&"#"
set result = my_conn.execute(strSQL)
if result("antal")<8 then

strSQL = "Insert into yearlycal (dte, navn, gruppe, email, initial) values (#" & Request("view_date") & "#, '" &chkString(Request.Form("navn")) & "' , '" &chkString(Request.Form("gruppe")) & "' , '" &chkString(Request.Form("email")) & "' , '" &chkString(Request.Form("initial")) & "' )"
my_conn.execute(strSQL)
else
    'Der er opstået en fejl, der må kun være 8
end if



my_Conn.Close
set my_conn = nothing
'response.write strsql2 &"<br>"
'response.write yearlysql

Response.Redirect ("index.asp?view_date=" & request("view_date"))

Ja det bliver brugt til at opdatere forsiden index.asp, der ligger oss en table der hedder calender hvor den henter den seneste der her meldt sig på

ok, men hvis du bare bruger følgende burde det virke:
strSQL = "SELECT Count(navn) as antal from yearlycal GROUP by dte HAVING dte=#"&request("view_data")&"#"
set result = my_conn.execute(strSQL)
if result("antal")<8 then

strSQL = "Insert into yearlycal (dte, navn, gruppe, email, initial) values (#" & Request("view_date") & "#, '" &chkString(Request.Form("navn")) & "' , '" &chkString(Request.Form("gruppe")) & "' , '" &chkString(Request.Form("email")) & "' , '" &chkString(Request.Form("initial")) & "' )"
my_conn.execute(strSQL)
else
    'Der er opstået en fejl, der må kun være 8
end if

Den giver en fejl her:
35:set result = my_conn.execute(sSQL)
36:if result("antal")<8 then

FEJL:

error '80020009'
/test2/add_date.asp, line 36

strSQL = "SELECT Count(navn) as antal from yearlycal GROUP by dte HAVING dte=#"&request("view_data")&"#"
set result = my_conn.execute(strSQL)
if result("antal")<8 then

og hvorfor er det du skriver """"SELECT Count(navn)""" i den øverste linje her?

databasen er nødt til at have et felt at tælle på, så jeg valgte at den skal tælle på navnet, men jeg kunne også have valgt et andet felt eller *.

Jeg skal lige høre, der står
set result = my_conn.execute(sSQL), altså sSQL, men du referer til strSQL i din sidste kommentar, har du husket at ændre det, så det er den rigtige SQL den kører?

ja ...det er ændret

hvis du evt. har lidt kode der kan oprette en Messagebox hvis der er for mange på en dag? ville det være helt perfekt!

men virker ovenstående? Altså sådan at den kun opretter hvis der er mindre end 8?

nej det gør det ikke:

Den giver en fejl her:
35:set result = my_conn.execute(sSQL)
36:if result("antal")<8 then

FEJL:

error '80020009'
/test2/add_date.asp, line 36

Hvad med den her linje, kan der være noget galt med den???

sSQL = "Select Count(navn) as antal FROM yearlycal GROUP by dte HAVING dte=#"& request("view_date") &"#"

følgende virker hos mig
<%


if Request.Form("pword") <> "" then 'the password
    Response.AddHeader "401.1 Unauthorized: ", "401.1"
    Response.Write "<H2>HTTP Error 401</H2><P><STRONG>401.1 Unauthorized: Logon Failed</STRONG></P><P>This error indicates that the credentials passed to the server do not match the credentials required to log on to the server.</P>"
    Response.Write "<center><a href='index.asp'>Back to Calendar</a> </center>"
    Response.End
End if

Function ChkString(string)
    if string = "" then string = " "
    ChkString = Replace(string, "'", "''")
End Function

set my_conn= Server.CreateObject("ADODB.Connection")
'my_Conn.Open "DSN=schedule2000"
cnpath="DBQ=" & server.mappath("webcalendar.mdb") 'or where ever you put the db.
my_conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath

'Check to see if it's a new record to be added or an old one to update
StrSql= "Select * from calendar where dte = #" & Request("view_Date") & "#"
strSql= "select * from calendar where month(dte) = " & month(Request("view_date")) & " AND day(dte) = "&day(request("view_date"))
set rs = my_conn.Execute (StrSql)

strSQL = "SELECT Count(navn) as antal from yearlycal GROUP by dte HAVING dte=#"&request("view_date")&"#"
set result = my_conn.execute(strSQL)
if result("antal")<3 then

StrSql2 ="INSERT INTO calendar (dte, text_field) values (#" & request("view_date") & "#, '" & chkString(request("navn")) & "')" 
my_conn.Execute (strSql2)
' SQL sætning opbygges
strSQL = "Insert into yearlycal (dte, navn, gruppe, email, initial) values (#" & Request("view_date") & "#, '" &chkString(Request.Form("navn")) & "' , '" &chkString(Request.Form("gruppe")) & "' , '" &chkString(Request.Form("email")) & "' , '" &chkString(Request.Form("initial")) & "' )"
my_conn.execute(strSQL)
else%>
<script>
    alert("Fy kun 8 pr dag");
    location.href="index.asp?view_date=<%=request("view_date")%>";
   
</script>
<%
Response.end
end if




my_Conn.Close
set my_conn = nothing
'response.write strsql2 &"<br>"
'response.write yearlysql

Response.Redirect ("index.asp?view_date=" & request("view_date"))

%>

Jeg får denne meddelelse på ovenstående:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in date in query expression 'dte = ##'.

/test2/index.asp, line 106

ANYONE CAN HELLPPP????

sorry havde ikke lige set du havde svaret prøver det lige!!

5 min!!

jeg får denne fejl:

error '80020009'
/test2/add_date.asp, line 28

hvis du vil se Databasen ligger den her:
http://roskildebus.dk/test/webcalendar.mdb

Hvis du selv har adgang til en asp understøttet server kan du da lige prøve at kigge på filerne her:

http://roskildebus.dk/test/kalender.zip

min fejl. Byt linien

if result("antal")<8 then
ud med
if rs.eof then antal = 0 else antal = result("antal")

if antal<8 then

Jeg troede ikke databasen var tom :-)

altså en til 2 linier

ellers tager den ikke højde for, at der ingen er på dagen.

OKay ...så virker det.

Næste problem... opretter lige en ny tråd så du kan få flere point ;)

Ind til videre Tak for hjælpen