[es] - problem sa Do

manjuska
Manja Djurickov

Član broj: 128998
Poruke: 12
77.46.192.*

Profil

^{28.08.2008. u 11:43 - pre 190 meseci}

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

Odgovor na temu

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 900
91.148.114.*

+7 Profil

Re: problem sa Do - loop

^{28.08.2008. u 16:43 - pre 190 meseci}

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

HomePage http://www.eurora3d.com

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
79.101.67.*

+41 Profil

Re: problem sa Do - loop

^{30.08.2008. u 00:29 - pre 190 meseci}

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

Odgovor na temu

dava
Banja Luka

Član broj: 27208
Poruke: 893

+384 Profil

Re: problem sa Do - loop

^{30.08.2008. u 12:29 - pre 190 meseci}

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.

SELECT * FROM หน่วยงานหลัก WHERE ยสันติ LIKE 'โดย%'

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
79.101.67.*

+41 Profil

Re: problem sa Do - loop

^{30.08.2008. u 12:54 - pre 190 meseci}

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.

Odgovor na temu

stefanpn
Total anonymous
Programer

Član broj: 172809
Poruke: 509
79.101.177.*

+1 Profil

Re: problem sa Do - loop

^{01.09.2008. u 13:19 - pre 190 meseci}

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.

Odgovor na temu