select ikke

"select efternavn from bestilling where tider <> '" & request.form("tider") & "'"

men mon ikke den kommer fra url'en?

"select efternavn from bestilling where tider <> '" & request.querystring("tider") & "'"

strSQL = "Select efternavn From bestilling Where tider <> '" & Request.Querystring("id") & "'order by herlev "

virker men nu skal vi have en til på vi har et felt 'køn' skal være = 'køn'

hvordan får vi den med

hvor kommer køn fra? er det bare i db'en?
du må lære en ting og det er at være meget præcis i de oplysninger du giver os (vi ved ikke hvad du laver;O) )

Det du lige har sagt... ja det er sådan her (og det giver total meget INGEN mening.. men det måske alligevel??)

strSQL = "Select efternavn From bestilling Where tider <> '" & Request.Querystring("id") & "' AND køn = 'køn' order by herlev "

måske mente du dette!


strSQL = "Select efternavn From bestilling Where tider <> '" & Request.Querystring("id") & "' AND køn = '" & Request.Querystring("køn") & "' order by herlev "

sorry vi skal lige lave den lidt om den skal sige

vis ikke efternavn hvis tider = tider og køn er = køn.

det er fordi nu viser den jo navnene alligvel hvis de bare har vagter andre dage.

det = efter køn i mine sql sætninger skal du bare rette til <>

nej den er god nok.. men lad os lige tage den første igen..

altså hvis en vikar har en tider der er = med tider skal han ikke vises...

og hvilken SQL sætning arbejder vi med nu? bare så jeg er med igen

strSQL = "Select efternavn From bestilling Where tider <> '" & Request.Querystring("id") & "'order by herlev "

strSQL = "Select efternavn From bestilling Where tider <> '" & Request.Querystring("tider") & "'order by herlev "

burde være sådan der ud fra det første indlæg du skrev..

du kan ikke brokke dig over jeg er forvirret;O)

ok begge dele virker...

er du med på hvor jeg vil hen ?

næh.. ikke rigtig:)


Du siger denne virker.

strSQL = "Select efternavn From bestilling Where tider <> '" & Request.Querystring("tider") & "'order by herlev "

og for mig så gør den det du vil have her.

"altså hvis en vikar har en tider der er = med tider skal han ikke vises..."

ok den viker så ikke, fordi at vikaren vises selv om han har vagt den dag fordi han jo også har vagter andre dage...

derfor skal sql hedde

hvis tider = tider skal efternavn IKKE vises men alle de andre navne skal vises.

men denne kode her viser den alle dem der har vagt den dato..

strSQL = "Select distinct efternavn From bestilling Where tider = '" & Request.Querystring("id") & "'order by herlev "


men den skal vise alle de andre navne for det er jo dem der er ledige til at tage vagten

tider        efternavn
30-03-2007    peter
30-03-2007    jens
01-04-2007    peter
01-04-2007    susi

det er sådan db ser ud.

hvis tider = 30-03-2007 skal den vise Susi. (ikke peter det gør den nu)

hvis tider er =

okay se det hjalp jo lidt på det..

strSQL = "Select efternavn From bestilling Where efternavn NOT IN (SELECT efternavn FROM bestilling WHERE tider = '" & Request.Querystring("tider")) AND tider <> '" & Request.Querystring("tider") & "'order by herlev "

og ellers sådan her.. den anden kan godt gå hen og brokke sig ved navngivning

strSQL = "Select a.efternavn From bestilling as a Where a.efternavn NOT IN (SELECT b.efternavn FROM bestilling as b WHERE tider = '" & Request.Querystring("tider")) AND tider <> '" & Request.Querystring("tider") & "'order by herlev "

puha den fejler

Sun ONE ASP VBScript compilation (0x800A0401)
Syntax error, unexpected ")", expecting end of statement
/admin/ledigvikar.asp, line 58, column 148

strSQL = "Select efternavn From bestilling Where efternavn NOT IN (SELECT efternavn FROM bestilling WHERE tider = '" & Request.Querystring("tider")) AND tider <> '" & Request.Querystring("tider") & "'order by herlev "

strSQL = "Select a.efternavn From bestilling as a Where a.efternavn NOT IN (SELECT b.efternavn FROM bestilling as b WHERE tider = '" & Request.Querystring("tider") & "') AND tider <> '" & Request.Querystring("tider") & "' order by herlev "

strSQL = "Select a.efternavn From bestilling as a Where a.efternavn NOT IN (SELECT b.efternavn FROM bestilling as b WHERE tider = '" & Request.Querystring("tider") & "') AND tider <> '" & Request.Querystring("tider") & "' order by herlev "

nu fejler den ikke, men den viser 'peter' og det skal den ikke... den viser alle vikarerne

Den sql ser i mine øjne ellers korrekt ud.
NOT IN (indeholder peter og jens)
derfor bør de være udelukket.
så er der kun susi tilbage og hendes tider er forskellig fra den dato man sender.

prøv at udskrive sql sætningen.

Response.Write(strSQL)
Response.End()

lige før du kalder Execute(strSQL)

er det mysql? kan jo godt være man ikke sammenligner dato'er på den måde..
så skal det undersøges.

Select a.efternavn From bestilling as a Where a.efternavn NOT IN (SELECT b.efternavn FROM bestilling as b WHERE tider = '') AND tider <> '' order by herlev

ja så er det klart det ikke virker.. din dato kommer jo slet ikke med over!!
sikker på din dato er gemt i "tider" ? for den findes ikke i url'en.
Hvis ja.. prøv disse

strSQL = "Select a.efternavn From bestilling as a Where a.efternavn NOT IN (SELECT b.efternavn FROM bestilling as b WHERE tider = '" & Request.Form("tider") & "') AND tider <> '" & Request.Form("tider") & "' order by herlev "

strSQL = "Select a.efternavn From bestilling as a Where a.efternavn NOT IN (SELECT b.efternavn FROM bestilling as b WHERE tider = '" & Request.Form("tider") & "') AND tider <> '" & Request.Form("tider") & "' order by herlev "

jo den findes i urlen
admin/ledigvikar.asp?id=07-03-2007

når jeg prøver ovenstående viser den stadig alle vikarerne

strSQL = "Select a.efternavn From bestilling as a Where a.efternavn NOT IN (SELECT b.efternavn FROM bestilling as b WHERE tider = '" & Request.Querystring("id") & "') AND tider <> '" & Request.Querystring("id") & "' order by herlev "

strSQL = "Select a.efternavn From bestilling as a Where a.efternavn NOT IN (SELECT b.efternavn FROM bestilling as b WHERE tider = '" & Request.Querystring("id") & "') AND tider <> '" & Request.Querystring("id") & "' order by herlev "

og du må ikke tage det her forkert, men du har EKSTREM dårlig navngivning på dine elementer.

Du gemmer dato i variablen id:S

og taget fra dit spørgsmål øverst.

"select efternavn from bestilling where tider <> request.form(tider)"

det eksempel du kommer med der gør jo at man går ud fra du din url vil se sådan ud

admin/ledigvikar.asp?tider=07-03-2007

og IKKE sådan her

admin/ledigvikar.asp?id=07-03-2007


men så længe du selv har toldmodighed til at alle de forslag man kommer med.

jeg er meget tålmodig :-) så kom bare an :-)

Ja men du skulle prøve disse..

strSQL = "Select a.efternavn From bestilling as a Where a.efternavn NOT IN (SELECT b.efternavn FROM bestilling as b WHERE tider = '" & Request.Querystring("id") & "') AND tider <> '" & Request.Querystring("id") & "' order by herlev "

strSQL = "Select a.efternavn From bestilling as a Where a.efternavn NOT IN (SELECT b.efternavn FROM bestilling as b WHERE tider = '" & Request.Querystring("id") & "') AND tider <> '" & Request.Querystring("id") & "' order by herlev "

eller

strSQL = "Select a.efternavn From bestilling as a Where a.efternavn NOT IN (SELECT b.efternavn FROM bestilling as b WHERE tider = '" & CDate(Request.Querystring("id")) & "') AND tider <> '" & CDate(Request.Querystring("id")) & "' order by herlev "

strSQL = "Select a.efternavn From bestilling as a Where a.efternavn NOT IN (SELECT b.efternavn FROM bestilling as b WHERE tider = '" & CDate(Request.Querystring("id")) & "') AND tider <> '" & CDate(Request.Querystring("id")) & "' order by herlev "


og huske lige at prøve at udskrive SQL'en som sidst hvis ikke det virker (så vi kan se om dato'erne passer)

der er ikke nogen af dem der virker....

de to nederste får den forkerte format ud '7/3/2007' ikke 07-03-2007
Select a.efternavn From bestilling as a Where a.efternavn NOT IN (SELECT b.efternavn FROM bestilling as b WHERE tider = '7/3/2007') AND tider <> '7/3/2007' order by herlev

De øverste er gode men virker ikke
strSQL = "Select a.efternavn From bestilling as a Where a.efternavn NOT IN (SELECT b.efternavn FROM bestilling as b WHERE tider = '" & Request.Querystring("id") & "') AND tider <> '" & Request.Querystring("id") & "' order by herlev "
=
Select a.efternavn From bestilling as a Where a.efternavn NOT IN (SELECT b.efternavn FROM bestilling as b WHERE tider = '07-03-2007') AND tider <> '07-03-2007' order by herlev

Select a.efternavn From bestilling as a Where a.efternavn NOT IN (SELECT b.efternavn FROM bestilling as b WHERE tider = '07-03-2007') AND tider <> '07-03-2007' order by herlev
=
Select a.efternavn From bestilling as a Where a.efternavn NOT IN (SELECT b.efternavn FROM bestilling as b WHERE tider = '07-03-2007') AND tider <> '07-03-2007' order by herlev

øhm.. ud fra denne dato og det du viste mig i din database tidligere så er det klart alle kommer med for der er ingen på arbejde denne dag.
'07-03-2007'

jo der er 6 stk

brokker den sig hvis du sammenligner sådan her? (ps. er din db MySql eller access?)

strSQL = "Select a.efternavn From bestilling as a Where a.efternavn NOT IN (SELECT b.efternavn FROM bestilling as b WHERE tider = " & Request.Querystring("id") & ") AND tider <> " & Request.Querystring("id") & " order by herlev "

og hvis din db er access..


strSQL = "Select a.efternavn From bestilling as a Where a.efternavn NOT IN (SELECT b.efternavn FROM bestilling as b WHERE tider = '#" & Request.Querystring("id") & "#') AND tider <> '#" & Request.Querystring("id") & "#' order by herlev "

mysql

nej den brokker sig ikke, men den viser stadig alle vikarer :-)

strSQL = "Select a.efternavn From bestilling as a Where a.efternavn NOT IN (SELECT b.efternavn FROM bestilling as b WHERE GET_FORMAT(tider,'EUR')
= '" & Request.Querystring("id") & "') AND GET_FORMAT(tider,'EUR')
<> '" & Request.Querystring("id") & "' order by herlev "

Sun ONE ASP VBScript compilation (0x800A0438)
Unexpected end of line inside a string
/admin/ledigvikar.asp, line 58, column 147

hvis ingen af disse virker så opgiver jeg desværre.. for sql'en er i mine øjne korrekt. og så må det være noget dato halløj der ikke matcher.

strSQL = "Select a.efternavn From bestilling as a Where a.efternavn NOT IN (SELECT b.efternavn FROM bestilling as b WHERE GET_FORMAT(tider,'EUR') = '" & Request.Querystring("id") & "') AND GET_FORMAT(tider,'EUR') <> '" & Request.Querystring("id") & "' order by herlev "

strSQL = "Select a.efternavn From bestilling as a Where a.efternavn NOT IN (SELECT b.efternavn FROM bestilling as b WHERE GET_FORMAT(tider,"EUR") = '" & Request.Querystring("id") & "') AND GET_FORMAT(tider,"EUR") <> '" & Request.Querystring("id") & "' order by herlev "


strSQL = "Select a.efternavn From bestilling as a Where a.efternavn NOT IN (SELECT b.efternavn FROM bestilling as b WHERE GET_FORMAT(tider,EUR) = '" & Request.Querystring("id") & "') AND GET_FORMAT(tider,EUR) <> '" & Request.Querystring("id") & "' order by herlev "

strSQL = "Select a.efternavn From bestilling as a Where a.efternavn NOT IN (SELECT b.efternavn FROM bestilling as b WHERE GET_FORMAT(tider,'EUR') = '" & Request.Querystring("id") & "') AND GET_FORMAT(tider,'EUR') <> '" & Request.Querystring("id") & "' order by herlev "
=
ADODB.Recordset.1 (0x80004005)
SQLState: 37000 Native Error Code: 1064 [MySQL][ODBC 3.51 Driver][mysqld-4.1.11-Debian_4sarge7-log]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'tider,'EUR') = '07-03-2007') AND GET_FORMAT(tider,'EUR') <> '


strSQL = "Select a.efternavn From bestilling as a Where a.efternavn NOT IN (SELECT b.efternavn FROM bestilling as b WHERE GET_FORMAT(tider,"EUR") = '" & Request.Querystring("id") & "') AND GET_FORMAT(tider,"EUR") <> '" & Request.Querystring("id") & "' order by herlev "
=
Sun ONE ASP VBScript compilation (0x800A0401)
Syntax error, unexpected "identifier", expecting end of statement


strSQL = "Select a.efternavn From bestilling as a Where a.efternavn NOT IN (SELECT b.efternavn FROM bestilling as b WHERE GET_FORMAT(tider,EUR) = '" & Request.Querystring("id") & "') AND GET_FORMAT(tider,EUR) <> '" & Request.Querystring("id") & "' order by herlev "
qawi 
=
Error Type:
Sun ONE ASP VBScript runtime (0x800A01F4)
'qawi' is undefined
/admin/ledigvikar.asp, line 59

Den sidste copy & pastede du vidst lidt for meget i:P mit brugernavn!

men sidste ting jeg kan prøve.. men kræver at du svare på hvilken version du kører af mysql.. for åbenbart kender den ikke til Get_Format kommandoen

phpMyAdmin 2.9.2-Debian-1

Jeg synes som sagt at den SQL er rigtig.. mit gæt er at tider i databasen bliver formatteret om til et andet format! men da get_format ikke virker så ved jeg ikke hvad man kan gøre ellers.

bare luk spørgsmålet her (tag din point igen)
opret et nyt spørgsmål... copy & paste nedenstående

--------------------------------------------------------------------------


Jeg har et problem med, at få min SQL sætning til at trække oplysninger ud fra kriterier jeg sætter.

Min database ser sådan ud.

tider        efternavn
30-03-2007    peter
30-03-2007    jens
01-04-2007    peter
01-04-2007    susi

mit kriterie i SQL'en skal være.

hvis tider = 30-03-2007 skal den vise Susi. (ikke peter det gør den nu).
peter har jo vagt denne dag og jeg er kun interesseret i personer der ikke har vagt denne dag.

Dette er min SQL

strSQL = "Select a.efternavn From bestilling as a Where a.efternavn NOT IN (SELECT b.efternavn FROM bestilling as b WHERE tider = '" & Request.Querystring("id") & "') AND tider <> '" & Request.Querystring("id") & "' order by herlev "

Når jeg udskriver den får jeg dette resultat så det ser vel okay ud?

Select a.efternavn From bestilling as a Where a.efternavn NOT IN (SELECT b.efternavn FROM bestilling as b WHERE tider = '07-03-2007') AND tider <> '07-03-2007' order by herlev

men det virker ikke. Den giver mig alle rækker i databasen.
Jeg har desuden prøvet at formattere dato'en "tider" med GET_FORMAT(tider,'EUR')
men denne understøttes ikke af min Mysql version "phpMyAdmin 2.9.2-Debian-1"

nested sql supporteres heller ikke i mysql version 4.1.1

Select a.efternavn From bestilling as a Where a.efternavn NOT IN (SELECT b.efternavn FROM bestilling as b WHERE tider = '07-03-2007') AND tider <> '07-03-2007' order by herlev

ja bortset fra at datoen er forkert. og så mysql-versionen

sqlb ="SELECT b.efternavn FROM bestilling as b WHERE tider = '" & Request.Querystring("id") & "'"
set rsb = conn.execute(sqlb)
btxt=""
do while not rsb.eof
btxt = btxt &rsb(0)&","
rsb.movenext
loop
strSQL = "Select a.efternavn From bestilling as a Where a.efternavn NOT IN ("&btxt&") AND tider <> '" & Request.Querystring("id") & "' order by herlev "

den er tæt på
sqlb ="SELECT b.efternavn FROM bestilling as b WHERE tider = '" & Request.Querystring("id") & "'"
set rsb = DataConn.execute(sqlb)
btxt=""
do while not rsb.eof
btxt = btxt &rsb(0)&","
rsb.movenext
loop
strSQL = "Select a.efternavn From bestilling as a Where a.efternavn NOT IN ("&btxt&") AND tider <> '" & Request.Querystring("id") & "' order by herlev "
Set rs = DataConn.Execute(strSQL)

fejl:
Error Type:
ADODB.Recordset.1 (0x80004005)
SQLState: 37000 Native Error Code: 1064 [MySQL][ODBC 3.51 Driver][mysqld-4.1.11-Debian_4sarge7-log]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'Ahmed ,Christina

btxt = "'"&btxt&"'" &rsb(0)&","

eller

do while not rsb.eof
btxt = btxt &rsb(0)&","
rsb.movenext
loop
btxt = left(btxt,len(btxt)-1)

det kan være den bare brokker sig over det sidste komma. hvilket ovenstående så fjerner

sqlb ="SELECT b.efternavn FROM bestilling as b WHERE tider = '" & Request.Querystring("id") & "'"
set rsb = DataConn.execute(sqlb)
btxt=""
do while not rsb.eof
btxt = btxt &rsb(0)&","
rsb.movenext
loop
btxt = left(btxt,len(btxt)-1)
strSQL = "Select a.efternavn From bestilling as a Where a.efternavn NOT IN ("&btxt&") AND tider <> '" & Request.Querystring("id") & "' order by herlev "
Set rs = DataConn.Execute(strSQL)


fejl:

ADODB.Recordset.1 (0x80004005)
SQLState: 37000 Native Error Code: 1064 [MySQL][ODBC 3.51 Driver][mysqld-4.1.11-Debian_4sarge7-log]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'Ahmed ,Christina

btxt = "'"&btxt&"'" &rsb(0)&","

sqlb ="SELECT b.efternavn FROM bestilling as b WHERE tider = '" & Request.Querystring("id") & "'"
set rsb = DataConn.execute(sqlb)
btxt=""
do while not rsb.eof
btxt = "'"&btxt&"'" &rsb(0)&","
rsb.movenext
loop
btxt = left(btxt,len(btxt)-1)
strSQL = "Select a.efternavn From bestilling as a Where a.efternavn NOT IN ("&btxt&") AND tider <> '" & Request.Querystring("id") & "' order by herlev "

fejl:

ADODB.Recordset.1 (0x80004005)
SQLState: 37000 Native Error Code: 1064 [MySQL][ODBC 3.51 Driver][mysqld-4.1.11-Debian_4sarge7-log]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'Khadija

æv - så prøv:

sqlb ="SELECT b.efternavn FROM bestilling as b WHERE tider = '" & Request.Querystring("id") & "'"
set rsb = DataConn.execute(sqlb)
btxt=""
do while not rsb.eof
btxt = btxt &rsb(0)&","
rsb.movenext
loop
btxt = left(btxt,len(btxt)-1)
strSQL = "Select a.efternavn From bestilling as a Where a.efternavn NOT IN ('"&btxt&"') AND tider <> '" & Request.Querystring("id") & "' order by herlev "

hvis det ikke virker, må jeg jo ha' fat i manualen :D

nu fejler den ikke, men den viser heller ikke nogle vikarer :-)

DataConn.Open conStr
sqlb ="SELECT b.efternavn FROM bestilling as b WHERE tider = '" & Request.Querystring("id") & "'"
set rsb = DataConn.execute(sqlb)
btxt=""
do while not rsb.eof
btxt = btxt &rsb(0)&","
rsb.movenext
loop
btxt = left(btxt,len(btxt)-1)
strSQL = "Select a.efternavn From bestilling as a Where a.efternavn NOT IN ('"&btxt&"') AND tider <> '" & Request.Querystring("id") & "' order by herlev "
Response.write "<table  cellpadding='3' cellspacing='1'  width='20%'>"
Response.write "<tr><td bgcolor='#EFEFEF'><B>vikar</B></td></tr> <tr>"
if rsb.bof or rsb.eof then
response.write "<b><font color='#ff0000'>Der er ingen vagter..</b><br><br>"
else
Do While Not rsb.EOF
Response.write "</td><td bgcolor='#EFEFEF'>"
Response.write rsb("efternavn")
Response.write "</td></tr>"
rsb.MoveNext
Loop
end if
Response.Write "</table>"
%>

DataConn.Open conStr
sqlb ="SELECT b.efternavn FROM bestilling as b WHERE tider = '" & Request.Querystring("id") & "'"
set rsb = DataConn.execute(sqlb)
btxt=""
do while not rsb.eof
btxt = btxt &rsb(0)&","
rsb.movenext
loop
btxt = left(btxt,len(btxt)-1)
strSQL = "Select a.efternavn From bestilling as a Where a.efternavn NOT IN ('"&btxt&"') AND tider <> '" & Request.Querystring("id") & "' order by herlev "
Response.write "<table  cellpadding='3' cellspacing='1'  width='20%'>"
Response.write "<tr><td bgcolor='#EFEFEF'><B>vikar</B></td></tr> <tr>"
set rsa = conn.execute(strSQL)
if rsa.bof or rsa.eof then
response.write "<b><font color='#ff0000'>Der er ingen vagter..</b><br><br>"
else
Do While Not rsa.EOF
Response.write "</td><td bgcolor='#EFEFEF'>"
Response.write rsa("efternavn")
Response.write "</td></tr>"
rsa.MoveNext
Loop
end if
Response.Write "</table>"

hovsa

set rsa = conn.execute(strSQL)

skal være

set rsa = DataConn.execute(strSQL)

meget tæt nu :-)

DataConn.Open conStr
sqlb ="SELECT b.efternavn FROM bestilling as b WHERE tider = '" & Request.Querystring("id") & "'"
set rsb = DataConn.execute(sqlb)
btxt=""
do while not rsb.eof
btxt = btxt &rsb(0)&","
rsb.movenext
loop
btxt = left(btxt,len(btxt)-1)
strSQL = "Select a.efternavn From bestilling as a Where a.efternavn NOT IN ('"&btxt&"') AND tider <> '" & Request.Querystring("id") & "' order by herlev "
Response.write "<table  cellpadding='3' cellspacing='1'  width='20%'>"
Response.write "<tr><td bgcolor='#EFEFEF'><B>vikar</B></td></tr> <tr>"
set rsa = DataConn.execute(strSQL)
if rsa.bof or rsa.eof then
response.write "<b><font color='#ff0000'>Der er ingen vagter..</b><br><br>"
else
Do While Not rsa.EOF
Response.write "</td><td bgcolor='#EFEFEF'>"
Response.write rsa("efternavn")
Response.write "</td></tr>"
rsa.MoveNext
Loop
end if
Response.Write "</table>"

fejl

Error Type:
Active Server Pages, ASP 0116 (0x80004005)
The Script block lacks the close of script tag (%>).

den skriver du mangler at afslutte dit script med %>

he ja det gør den, nu kører den, men viser bare alle vikareren i bestilling.

strSQL = "Select a.efternavn From bestilling as a Where a.efternavn NOT EXISTS (SELECT b.efternavn FROM bestilling as b WHERE tider = '" & Request.Querystring("id") & "') AND tider <> '" & Request.Querystring("id") & "' order by herlev "

set rsa = DataConn.execute(strSQL)
if rsa.bof or rsa.eof then
response.write "<b><font color='#ff0000'>Der er ingen vagter..</b><br><br>"
else
Do While Not rsa.EOF
Response.write "</td><td bgcolor='#EFEFEF'>"
Response.write rsa("efternavn")
Response.write "</td></tr>"
rsa.MoveNext
Loop
end if
Response.Write "</table>"

DataConn.Open conStr
sqlb ="SELECT b.efternavn FROM bestilling as b WHERE tider = '" & Request.Querystring("id") & "'"
set rsb = DataConn.execute(sqlb)
btxt=""
do while not rsb.eof
btxt = btxt &rsb(0)&","
rsb.movenext
loop
btxt = left(btxt,len(btxt)-1)
strSQL = "Select a.efternavn From bestilling as a Where a.efternavn NOT EXISTS (SELECT b.efternavn FROM bestilling as b WHERE tider = '" & Request.Querystring("id") & "') AND tider <> '" & Request.Querystring("id") & "' order by herlev "
Response.write "<table  cellpadding='3' cellspacing='1'  width='20%'>"
Response.write "<tr><td bgcolor='#EFEFEF'><B>vikar</B></td></tr> <tr>"
set rsa = DataConn.execute(strSQL)
if rsa.bof or rsa.eof then
response.write "<b><font color='#ff0000'>Der er ingen vagter..</b><br><br>"
else
Do While Not rsa.EOF
Response.write "</td><td bgcolor='#EFEFEF'>"
Response.write rsa("efternavn")
Response.write "</td></tr>"
rsa.MoveNext
Loop
end if
Response.Write "</table>"
%>

fejl

ADODB.Recordset.1 (0x80004005)
SQLState: 37000 Native Error Code: 1064 [MySQL][ODBC 3.51 Driver][mysqld-4.1.11-Debian_4sarge7-log]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'EXISTS (SELECT b.efternavn FROM bestilling as b WHERE tider =

jeg giver op..............

nej det skal du ikke, hvorfor er det så svært egenligt ?

kan man ikke lave noget

if
then

osv

cpufan >> har ikke set på din kode.

men måske køre en sql der selecter alle der har vagt den dag.
gem det i et array og ikke resultset.

lav en sql som henter alle som ikke har vagt den dag... loop og tjek om de findes i det der array.. hvis ja så skal de ikke udskrives og ellers udskriv.

(har ikke arbejdet med array's i ASP før, men hvis det ikke er en hindring så er det helt klart vejen frem)

l_otto >>

nu er din DB ikke access db, men du skal bare lige rette til selv.
og prøv så...

det er jo utestet, men i princippet skulle det fungere!!

                    <%
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT efternavn FROM bestilling WHERE tider = '" & Request.Querystring("id") & "' order by herlev "
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
dim intRecCount, count
intRecCount = 10
count = 0
Dim myDynArray()
ReDim myDynArray(intRecCount)
Do While Not rs.EOF
myDynArray(count) = rs("efternavn")
if count = intRecCount then   
intRecCount = intRecCount + 10
ReDim Preserve myDynArray(intRecCount)
end if
count = count + 1
rs.MoveNext
Loop
end if
rs.Close
Set rs = Nothing


dim foundit
Set rsTo = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT efternavn FROM bestilling WHERE tider <> '" & Request.Querystring("id") & "' order by herlev "
rsTo.Open strSQL, strDSN, 1
If Not (rsTo.BOF Or rsTo.EOF) Then
Do While Not rsTo.EOF
For Each item In myDynArray
if item = rsTo("efternavn") then   
foundIt = "True"
end if

if fountIt <> "True" then
Response.Write(rsTo("efternavn") & "<br />")
end if
Next
rsTo.MoveNext
Loop
end if
rsTo.Close
Set rsTo = Nothing


%>

nu har jeg den næsten på min egen måde.. den lyser rød hvis personen har en vagt den dag.. men jeg kan ikke få distinct til at virke på efternavn.. nu viser den alle

DataConn.Open conStr
strSQL = "Select  DISTINCT(efternavn), tider From bestilling order by tider"
Set rs = DataConn.Execute(strSQL)

Response.write "<table  cellpadding='3' cellspacing='1'  width='20%'>"
Response.write "<tr><td bgcolor='#EFEFEF'><B>vikar</B></td></tr> <tr>"
set rs = DataConn.execute(strSQL)
if rs.bof or rs.eof then
response.write "<b><font color='#ff0000'>Der er ingen vagter..</b><br><br>"
else
Do While Not rs.EOF


Response.write "</td><td bgcolor='#EFEFEF'>"

if rs("tider") =  Request.Querystring("id") then
        response.write "<b><font color='#FF3300'>"

  Response.write rs("efternavn")


else
  Response.write rs("efternavn")

  end if
Response.write "</td><td bgcolor='#EFEFEF'>"
  Response.write rs("tider")
Response.write "</td></tr>"
rs.MoveNext
Loop
end if
Response.Write "</table>"
%>

du kan ikke gøre det du gør der... hvis du vælger distinct navne ud får du jo ikke alle ud med deres vagter..

men hvis du ikke har prøvet at få min kode til at fungere fra sidste indlæg som jeg ellers stadig tror på så skal du lave lidt om på dit eget... noget ala dette

dim lastName

lastName = "readyToRoll"

DataConn.Open conStr
strSQL = "Select  efternavn, tider From bestilling order by efternavn asc"
Set rs = DataConn.Execute(strSQL)

Response.write "<table  cellpadding='3' cellspacing='1'  width='20%'>"
Response.write "<tr><td bgcolor='#EFEFEF'><B>vikar</B></td></tr> <tr>"
set rs = DataConn.execute(strSQL)
if rs.bof or rs.eof then
response.write "<b><font color='#ff0000'>Der er ingen vagter..</b><br><br>"
else
Do While Not rs.EOF

if lastName <> rs("efternavn") then
Response.write "</td><td bgcolor='#EFEFEF'>"
if rs("tider") =  Request.Querystring("id") then
        response.write "<b><font color='#FF3300'>"

  Response.write rs("efternavn")


else
  Response.write rs("efternavn")

end if
Response.write "</td><td bgcolor='#EFEFEF'>"
  Response.write rs("tider")
Response.write "</td></tr>"
  end if
lastName = rs("efternavn")
rs.MoveNext
Loop
end if
Response.Write "</table>"
%>

har prøvet den men den viser ikke alle der har vagt den dag der er 6 der er på vagt den viser kun to af dem,,.. de andre kommer ikke frem.

på min måde viser den alle bestillingerne og viser dem med rød der har vagt den dag... så vi skal bare hhave den til ikke at vise alle vagterne men bare alle efternavn.

jeg har jo en table med alle vikarene oprettet så nu vil jeg sige
strSQL = "Select  * From tilmelding where fornavn <> '"& rs("efternavn") &"'" men den fejler..

Koden nu:
strSQL = "Select  * From bestilling where tider = '" & Request.Querystring("id") & "'order by tider"
Set rs = DataConn.Execute(strSQL)

Response.write "<table  cellpadding='3' cellspacing='1'  width='20%'>"
Response.write "<tr><td bgcolor='#EFEFEF'><B>vikar</B></td></tr> <tr>"
set rs = DataConn.execute(strSQL)
if rs.bof or rs.eof then
response.write "<b><font color='#ff0000'>Der er ingen vagter..</b><br><br>"
else
Do While Not rs.EOF
Response.write "</td><td bgcolor='#EFEFEF'>"
Response.write rs("efternavn")
Response.write "</td><td bgcolor='#EFEFEF'>"
Response.write "</td></tr>"
rs.MoveNext
Loop
end if
Response.Write "</table>"

strSQL = "Select  * From tilmelding where fornavn <> '"& rs("efternavn") &"'"
Set rs1 = DataConn.Execute(strSQL)

Response.write "<table  cellpadding='3' cellspacing='1'  width='20%'>"
Response.write "<tr><td bgcolor='#EFEFEF'><B>vikar</B></td></tr> <tr>"
if rs1.bof or rs1.eof then
response.write "<b><font color='#ff0000'>Der er ingen vagter..</b><br><br>"
else
Do While Not rs1.EOF
Response.write "</td><td bgcolor='#EFEFEF'>"
Response.write rs1("fornavn")
Response.write "</td></tr>"
rs1.MoveNext
Loop
end if
Response.Write "</table>"
%>
fejl:
Either BOF or EOF is True, or the current record has been deleted; the operation requested by the application requires a current record.

det er denne linie den fejler på

strSQL = "Select  * From tilmelding where fornavn <> '"& rs("efternavn") &"'"

hvad med denne her kan I hjælpe med at den kommer til at virke:

DataConn.Open conStr
strSQL = "Select  * From bestilling where tider = '" & Request.Querystring("id") & "'order by tider"
Set rs = DataConn.Execute(strSQL)

Response.write "<table  cellpadding='3' cellspacing='1'  width='20%'>"
Response.write "<tr><td bgcolor='#EFEFEF'><B>vikar</B></td></tr> <tr>"
set rs = DataConn.execute(strSQL)
if rs.bof or rs.eof then
response.write "<b><font color='#ff0000'>Der er ingen vagter..</b><br><br>"
else
Do While Not rs.EOF
strSQL = "Select  Distinct fornavn From tilmelding where fornavn <> '"& rs("efternavn") &"'"
Set rs3 = DataConn.Execute(strSQL)
Response.write "</td><td bgcolor='#EFEFEF'>"
Response.write rs("efternavn")

Response.write "</td></tr>"
Response.write rs3("fornavn")
rs.movefirst
Loop
end if
Response.Write "</table>"
%>

som jeg skrev i mit 3 indlæg så skal du lære at være MEGET mere præcis i dine spørgsmål... du hopper jo fra den ene løsning til den anden så det vil sige vi hver gang skal sætte os ind i din nye løsning og da man oprindelig har opgivet dette så gider man ikke rigtig prøve at sætte sig ind i mere.

Hvis du ønsker hjælp må du ud over at paste kode herind fortælle hvad problemet er så kan vi fokusere på det og ignorere resten af koden. Det er mere overskueligt og man skal ikke selv sidde og gætte på hvad problemet med koden er.

ok.. først vælger jeg navnen på alle vikarer der har vagt=id (dato fra siden før)

så vil jeg gerne vise alle de navne der ikke er på vagt den dag, dvs jeg skal bruge de navne jeg trækker ud først til at lave en <> jeg sammenligner så navnen fra tabellen tilmelding hvor alle navnen er oprettet.. håber du forstår og kan hjælpe

okay det er jeg med på, men hvad er problemet med den kode du har der? hvorfor virker den ikke?

nå ok jamen den viser bare masser af navne ...som slet ikke passer nogen steder...

den skriver bare

peter hansen
peter hansen
peter hansenpeter hansen
peter hansen
peter hansen
peter hansen
peter hansen
peter hansen
peter hansenpeter hansen

ctive Server Pages error 'ASP 0113'

Script timed out

/admin/ledigvikar.asp

The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeOut or by changing the value in the ASP administration tools.

jeg laver dette eksempel til dig senere i dag

Svar: qawi
11/03-2007 00:12:00

som du kan downloade og tilpasse... det er måden at gøre det på i mine øjne!
(i aften)

kanon tak

hejsa..

hent scriptet her..

http://kalp.dk/vagter/vagter.zip

tjek data'erne i db'en og prøv så at klikke på dette link

http://kalp.dk/vagter/liste.asp?dato=13-03-2007

så kan du selv se at det virker:)

meget flot, men vi kan ikke bruge denne her
Session.lcid = 1030

Hvad gør vi så ?

jeg vil lige sige det script virker 100% rigtigt, men jeg har lidt svært ved at få det til at virke hos mig...

string kommer fra den anden side sådan her som du vil have det.

/admin/liste.asp?dato=07-03-2007

men da vi ikke kan bruge Session.lcid = 1030 har jeg slettet den.. jeg har også forsøgt at lave det hele om til mysql db men den fejler i denne linie.

strSQL = "SELECT * FROM bestilling WHERE vagt = #" & rs("tider") &"#"
Error Type:
Sun ONE ASP VBScript runtime (0x800A000D)
Type mismatch

Her er hele koden vi er så tæt på det er virkelig sejt...

Set DataConn = Server.CreateObject("ADODB.Connection")
conStr = "driver={MySQL ODBC 3.51 Driver};"& _
"server="& SQLserveradr &";"& _
"database="& SQLdatabase &";"& _
"uid="& SQLlogin &";"& _
"pwd="& SQLpassword &";"& _
"OPTION=3"
DataConn.Open conStr
strSQL = "SELECT * FROM bestilling WHERE vagt = #" & rs("tider") &"#"
strSQL = StrSQL & " ORDER BY brugernavn asc"
Set rs = DataConn.Execute(strSQL)

rs.Open strSQL, strDSN, 1

dim intRecCount, count
intRecCount = 10
count = 0
Dim myDynArray()
ReDim myDynArray(intRecCount)

If Not (rs.BOF Or rs.EOF) Then

Do While Not rs.EOF

myDynArray(count) = rs("fornavn")
if count = intRecCount then   
intRecCount = intRecCount + 10
ReDim Preserve myDynArray(intRecCount)
end if
count = count + 1



rs.MoveNext
Loop
Else
Response.Write("Databasen er tom")
End If
rs.Close
Set rs = Nothing


dim foundit, lastuser
 

Set DataConn = Server.CreateObject("ADODB.Connection")
conStr = "driver={MySQL ODBC 3.51 Driver};"& _
"server="& SQLserveradr &";"& _
"database="& SQLdatabase &";"& _
"uid="& SQLlogin &";"& _
"pwd="& SQLpassword &";"& _
"OPTION=3"
strSQL = "SELECT * FROM bestilling WHERE vagt <> #"& rs("herlev") &"#"
strSQL = StrSQL & " ORDER BY fornavn asc"
Set rsto = DataConn.Execute(strSQL)

rsTo.Open strSQL, strDSN, 1
If Not (rsTo.BOF Or rsTo.EOF) Then
Do While Not rsTo.EOF

foundit = ""

For Each item In myDynArray
if item = rsTo("fornavn") then   
foundit = "True"
end if
Next

if foundit = "" then
if lastuser <> rsTo("fornavn") then
Response.Write(rsTo("fornavn") & "<br />")
end if
end if

lastuser = rsTo("fornavn")

rsTo.MoveNext
Loop
Else
Response.Write("Databasen er tom")
End If
rsto.Close
Set rsto = Nothing


%>

en fejl af gangen så

men disse linjer skal retets fra

strSQL = "SELECT * FROM bestilling WHERE vagt = #" & rs("tider") &"#"

til

strSQL = "SELECT * FROM bestilling WHERE vagt = " & rs("tider") &""

og denne fra

strSQL = "SELECT * FROM bestilling WHERE vagt <> #"& rs("herlev") &"#"

til

strSQL = "SELECT * FROM bestilling WHERE vagt <> "& rs("herlev") &""


men det skal lige siges at det stadig ikke matcher mine eksempler.. for jeg henter og tjekke fra den dato man sender med over.. det gør du ikke du tjekker på resultset værdier, men du kan jo rode videre med det:P

koden virker i hvertfald som jeg lavede den

jamen hvad skal jeg gøre når vi ikke kan bruge Session.lcid = 1030 ?

jeg vil bare kopi dit ekspempel over men det kan jeg jo ikke..:-) det du har lavet er genialt...

se koden nu:

DataConn.Open conStr
dato = Request.QueryString("dato")
strSQL = "SELECT * FROM bestilling WHERE fornavn = #" &  CDate(dato) &"#"
strSQL = StrSQL & " ORDER BY fornavn asc"
Set rs = DataConn.Execute(strSQL)

rs.Open strSQL, strDSN, 1

dim intRecCount, count
intRecCount = 10
count = 0
Dim myDynArray()
ReDim myDynArray(intRecCount)

If Not (rs.BOF Or rs.EOF) Then

Do While Not rs.EOF

myDynArray(count) = rs("fornavn")
if count = intRecCount then   
intRecCount = intRecCount + 10
ReDim Preserve myDynArray(intRecCount)
end if
count = count + 1



rs.MoveNext
Loop
Else
Response.Write("Databasen er tom")
End If
rs.Close
Set rs = Nothing


dim foundit, lastuser


Set DataConn = Server.CreateObject("ADODB.Connection")
conStr = "driver={MySQL ODBC 3.51 Driver};"& _
"server="& SQLserveradr &";"& _
"database="& SQLdatabase &";"& _
"uid="& SQLlogin &";"& _
"pwd="& SQLpassword &";"& _
"OPTION=3"
strSQL = "SELECT * FROM bestilling WHERE fornavn <> #" &  CDate(dato) &"#"
strSQL = StrSQL & " ORDER BY fornavn asc"
Set rsto = DataConn.Execute(strSQL)

rsTo.Open strSQL, strDSN, 1
If Not (rsTo.BOF Or rsTo.EOF) Then
Do While Not rsTo.EOF

foundit = ""

For Each item In myDynArray
if item = rsTo("fornavn") then   
foundit = "True"
end if
Next

if foundit = "" then
if lastuser <> rsTo("fornavn") then
Response.Write(rsTo("fornavn") & "<br />")
end if
end if

lastuser = rsTo("fornavn")

rsTo.MoveNext
Loop
Else
Response.Write("Databasen er tom")
End If
rsto.Close
Set rsto = Nothing


så skriver den denne her fejl på denn linie:

strSQL = "SELECT * FROM bestilling WHERE fornavn = #" &  CDate(dato) &"#"

ADODB.Recordset.1 (0x80004005)
SQLState: 37000 Native Error Code: 1064 [MySQL][ODBC 3.51 Driver][mysqld-4.1.11-Debian_4sarge7-log]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '' at line 1

glem session.lcid

men du forvirre som jeg hele tiden har sagt ved at skifte fra kode til kode..

f.eks de rettelser jeg lige lavede var jo forgæves for alle din sql sætninger har igen # sig.. og dem skal du fjerne.

og kan slet ikke forstå hvorfor du skriver fornavn = en dato, men ja det kan den brokke sig om efterfølgende;o) fjern # fra alle sql sætninger.

jamen jeg prøver bare at få koden til at ligne den du har lavet fra starten...

jeg havde også lavet en fejl det skal være efternavn ikke fornavn.



Ansatte = bestilling
vagt = tider
brugernavn = efternavn

jeg får en fejl på denne linie:
rs.Open strSQL, strDSN, 1


når men nu er vi der ligeom lidt her er koden den er ligesom din:


dato = Request.QueryString("dato")
strSQL = "SELECT * FROM bestilling WHERE tider = "&  CDate(dato) &""
strSQL = StrSQL & " ORDER BY efternavn asc"
Set rs = DataConn.Execute(strSQL)

rs.Open strSQL, strDSN, 1

dim intRecCount, count
intRecCount = 10
count = 0
Dim myDynArray()
ReDim myDynArray(intRecCount)

If Not (rs.BOF Or rs.EOF) Then

Do While Not rs.EOF

myDynArray(count) = rs("fornavn")
if count = intRecCount then   
intRecCount = intRecCount + 10
ReDim Preserve myDynArray(intRecCount)
end if
count = count + 1



rs.MoveNext
Loop
Else
Response.Write("Databasen er tom")
End If
rs.Close
Set rs = Nothing


dim foundit, lastuser

 
strSQL = "SELECT * FROM bestilling WHERE tider <> " &  CDate(dato) &""
strSQL = StrSQL & " ORDER BY efternavn asc"
Set rsTo = DataConn.Execute(strSQL)

rsTo.Open strSQL, strDSN, 1

If Not (rsTo.BOF Or rsTo.EOF) Then
Do While Not rsTo.EOF

foundit = ""

For Each item In myDynArray
if item = rsTo("efternavn") then   
foundit = "True"
end if
Next

if foundit = "" then
if lastuser <> rsTo("efternavn") then
Response.Write(rsTo("efternavn") & "<br />")
end if
end if

lastuser = rsTo("efternavn")

rsTo.MoveNext
Loop
Else
Response.Write("Databasen er tom")
End If
rsto.Close
Set rsto = Nothing


%>

hvis du ikke får fejl i det der så er det jo meget vigtigt at dato rent faktisk findes i url'en!!

altså

www.hjemmeside.dk/dato <-- den der


hvis ikke så findes den jo i ID som tidligere i dine eksempler.. og så skal du selvfølgelig rette
dato = Request.QueryString("dato")
til
dato = Request.QueryString("id")

den er jeg med 100%

admin/liste.asp?dato=07-03-2007

okay, men du må jo fortælle hvad der virker ikke virker nu.. kan jeg jo ikke se ud fra koden:)

jeg får en fejl på denne linie:
rs.Open strSQL, strDSN, 1


Error Type:
ADODB.Recordset.1 (0x800A0E79)
Invalid operation on open object

tror bare du skal slette denne linje
rs.Open strSQL, strDSN, 1

når jeg gør det viser den alle vikarerne og starter med at skrive Databasen er tom

så skulle det gerne være fordi denne sql fejler

strSQL = "SELECT * FROM bestilling WHERE tider = "&  CDate(dato) &""

prøv at udskrive den (som vi har gjort mange gange før) og se hvad der står.. kan være fordi der er et problem med dato format..

prøv derfor at fjerne CDate( ) rundt om dato'en i begge sql'er.

nu ser sql sådan her ud: jeg har ændret dato format med din dim kode

SELECT * FROM bestilling WHERE tider = 07-03-2007 ORDER BY efternavn asc

og det er sgu rigtig...

men den viser staig database er tom og så alle vikarerne.... jeg bliver vantigt...

koden:

dim maaned, dag, aar, dato
maaned = month(date)
dag = day(date)
aar = year(date)
dato = dag & "-" & maaned & "-" & aar

dato = Request.QueryString("dato")
strSQL = "SELECT * FROM bestilling WHERE tider = "& dato &""
strSQL = StrSQL & " ORDER BY efternavn asc"
Set rs = DataConn.Execute(strSQL)




dim intRecCount, count
intRecCount = 10
count = 0
Dim myDynArray()
ReDim myDynArray(intRecCount)

If Not (rs.BOF Or rs.EOF) Then

Do While Not rs.EOF

myDynArray(count) = rs("fornavn")
if count = intRecCount then   
intRecCount = intRecCount + 10
ReDim Preserve myDynArray(intRecCount)
end if
count = count + 1



rs.MoveNext
Loop
Else
Response.Write("Databasen er tom")
End If
rs.Close
Set rs = Nothing


dim foundit, lastuser



strSQL = "SELECT * FROM bestilling WHERE tider <> " &  dato &""
strSQL = StrSQL & " ORDER BY efternavn asc"
Set rsTo = DataConn.Execute(strSQL)


If Not (rsTo.BOF Or rsTo.EOF) Then
Do While Not rsTo.EOF

foundit = ""

For Each item In myDynArray
if item = rsTo("efternavn") then   
foundit = "True"
end if
Next

if foundit = "" then
if lastuser <> rsTo("efternavn") then
Response.Write(rsTo("efternavn") & "<br />")
end if
end if

lastuser = rsTo("efternavn")

rsTo.MoveNext
Loop
Else
Response.Write("Databasen er tom")
End If
rsto.Close
Set rsto = Nothing

altså jeg ved heller ikke hvordan det er du laver din copy paste, men det her har jeg bestemt ikke i min version

myDynArray(count) = rs("fornavn")

se nu er jeg overtræt... det har jeg med i min:P

jeg kan ikke se hvorfor det ikke virker i den første sql når den anden gør..
andet end at de dage ikke findes:P

dette spgm, har indtil videre 95 indlæg -

det går hen og bliver en af de længste ;-)

:-) ja men løsningen er egentlig kommet på bordet..
troede det ville være ligetil at tilpasse en mysql database da det trods alt stadig er asp det er kodet i

jamen hvad skal jeg gøre... din kode til access db viker 100% men jeg kan åbenbart ikke skrive den om til mysql...

jeg kan bare ikke rigtig gøre så meget mere desværre.. kan ikke løse det uden at have problemet i hænderne for er ikke vant til mysql og asp.
men i sig selv burde det fungere hvis blot dato'en stemmer og forbindelsen til databasen oprettes rigtigt.

ja du har ret, du har gjort det rigtig godt.... tak for det :-)

jeg kan se at lige meget hvilken dato jeg sætter ind i
admin/liste.asp?dato=10-03-2007
el
admin/liste.asp?dato=11-03-2007

viser den det samme resultat..

hvad hvis du skriver din sql med ' ' rundt om datoen?

strSQL = "SELECT * FROM bestilling WHERE tider = '"& dato &"'"

nu får jeg sgu tåre i øjene

DET VIRKER !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

jubiiiiiiiiii

1000 tak for kampen :-=

he he ja tænkte jo nok det var et grimt dato problem:P
men godt det kom til at virke!! det tog sgu sin tid:o)

Der er noget meget mærkeligt jeg har en vikar der hedder Al

han kommer ikke frem når han skal.. hvis jeg ændre han navn til Ali kommer han frem..

Ellers kommer alle andre frem som de skal.... hvordan kan det være

tjek at der ikke er mellemrum efter Al

men synes det lyder underligt

men det er der... Al Hansen

men det er der på alle Lise Jensen osv

prøv at rette disse 2 linjer

if item = rsTo("efternavn") then   
og
if lastuser <> rsTo("efternavn") then


til
if Trim(item) = Trim(rsTo("efternavn")) then   
og
if Trim(lastuser) <> Trim(rsTo("efternavn")) then

jeg prøver...

imellem tiden kan du kigge på hvorfor den ikke siger "database tom" når du klikke på denne her.. se datoen der skulle alle være ledig til at tage vagter

http://kalp.dk/vagter/liste.asp?dato=13-03-2010

08:24:55 virkede ikke han kommer ikke med..

hvis jeg laver en select * fra tilmelding kommer han med .....

Det er da helt utroligt...

http://kalp.dk/vagter/liste.asp?dato=13-03-2010

kommer alle med, men det er jo fordi de alle er ledige denne dato

jo men jeg spørger hvorfor den også skriver Databasen er tom første :-)

nåhh.. det bare en besked.. der kunne stå alle er ledige.. f.eks.
det er bare at rette i
Response.Write("Databasen er tom")

jeg fik det hele til at virke nu kommer al også frem så jeg er evigt glad...

hej igen...

det viker jo bare godt men nu vil jeg meget gerne

order by køn

ikke strSQL = StrSQL & " ORDER BY efternavn asc"

men når jeg retter efternavn til køn så kommer vikarnavnen frem op til flere gange ikke distinct. håber du forstår

eneste bud er

strSQL = StrSQL & " ORDER BY køn, efternavn asc"

lige  i øjet tak

ingen årsag:)