[ manjuska @ 28.08.2008. 11:43 ] @
Meni je bila veeelika frka oko resavanja tog probl., pa sam vec uspela da ga resim. U svakom slucaju hvala, ali, evo, imam novi probl., pa bi mi pomoc dobro dosla
Potrebno je da proverim i datum i vreme termina, pa bi kod otprilike izgledao:

Do While Not (rsDatum.EOF OR duplicate)
If (StrComp(rsDatum("Datum"),Request.Form("Datum")(brojac) , vbTextCompare) = 0) and (StrComp(rsDatum("Vreme"),Request.Form("Vreme")(brojac) , vbTextCompare) = 0)Then duplicate=True
If duplicate=True then Response.redirect "http://localhost/salon/strane/greska2.asp" Else Duplicate=False
rsDatum.MoveNext
Loop

Probl., je sledeci
Microsoft VBScript compilation (0x800A040E)
'loop' without 'do'

Problem se javlja zbog "and" u 2.redu
Pomoc mi vredi samo ako bude u toku danasnjeg dana, pa...
Hvala unapred
[ Eurora3D Team @ 28.08.2008. 16:43 ] @
Probaj
Code:

While Uslov        
   ....
Wend   

Ako je uslov tacan od pocetka
Znaci
Code:

While Not (rsDatum.EOF OR duplicate)
If (StrComp(rsDatum("Datum"),Request.Form("Datum")(brojac) , vbTextCompare) = 0) and (StrComp(rsDatum("Vreme"),Request.Form("Vreme")(brojac) , vbTextCompare) = 0)Then duplicate=True
If duplicate=True then Response.redirect "http://localhost/salon/strane/greska2.asp" Else Duplicate=False
rsDatum.MoveNext
Wend
[ goranvuc @ 30.08.2008. 00:29 ] @
Stvar je u tome da si zaboravila jedno END IF nakon
Code:

If duplicate=True then Response.redirect "http://localhost/salon/strane/greska2.asp" Else Duplicate=False

pa ti zato kompajler javlja tu gresku. Inace, probaj malo da struktuiras taj kod zbog lakse citljivosti, jer da si to uradila uvidela bi gde je problem.

npr. ovako:
Code:

Do While Not (rsDatum.EOF Or duplicate)

   If (StrComp(rsDatum("Datum"), Request.Form("Datum")(brojac), vbTextCompare) = 0) _
      And _
      (StrComp(rsDatum("Vreme"), Request.Form("Vreme")(brojac), vbTextCompare) = 0) _
   Then duplicate = True

   If duplicate = True Then
      Response.redirect "http://localhost/salon/strane/greska2.asp"
   Else
      duplicate = False
   End If

   rsDatum.MoveNext

Loop
[ dava @ 30.08.2008. 12:29 ] @
Mislim da nisi u pravu, jer ovako je moguce napisati, a nema end if

Code:

If a = b And b = c Or a = f Then c = 3 Else c = 4


P.S. i ja sam juce napisao slicnu poruku pa sam je obrisao.
[ goranvuc @ 30.08.2008. 12:54 ] @
U pravu si, nisam ni proveravao - hvala sto si skrenuo paznju. Stvar je u tome sto je njen kod u sustini ispravan (barem deo koji je ovde postavila) a ja nisam proveravao ispravnost, vec sam posao od pretpostavke da je neispravan.

Manjuska, izgleda da je neki drugi problem u pitanju, ili nam nisi dala odgovarajuci deo koda. Ovaj kod ne bi trebalo da javlja tu gresku.
[ stefanpn @ 01.09.2008. 13:19 ] @
Ova greška se javlja kada u bazi nije pronađen zapis, što znači:

Error(0x800A040E) = Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

Ali se compiler "malo zbunio" i prikazao opis greške za VBS, umesto ADO biblioteku, nije prvi slučaj da se ovo događa.