• Home
  • Forum
  • Fare Web
  • Classic ASP

Problema con "do while"

  • Creatore Discussione Creatore Discussione microsostanza
  • Data di inizio Data di inizio 20 Ago 2006
M

microsostanza

Nuovo Utente
20 Ago 2006
5
0
0
  • 20 Ago 2006
  • #1
Scusate la mia ignoranza da novizio... ecco perchè vi kiedo aiuto e vi ringrazio per l'aiuto futuro (spero!)
Ho creto una paginetta asp che dovrebbe cancellare i record presenti in un database la cui data è passata.
Lo script genera questo errore:

Microsoft VBScript compilation error '800a0400'
Expected statement
/Musica/M_concerti2.asp, line 56
<%rs.movenext
^

ke può essere?

Per completezza vi riporto lo script:
<%
Session.LCID=1040
%>

<%Set dbconn = Server.CreateObject("ADODB.Connection")
mMapPath = Server.MapPath("../mdb-database/concerti_eventiprova.mdb")
dbconn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & mMapPath & ";"
sql="select * from concerti order by dataa"
Set RS=dbconn.Execute(sql)%>

<%response.write(date)
today=((Date))%>

<%do while not rs.eof

DataConcerto=(rs("dataa"))

if DataConcerto < today then

Set dbconn = Server.CreateObject("ADODB.Connection")
mMapPath = Server.MapPath("../mdb-database/concerti_eventiprova.mdb")
dbconn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & mMapPath & ";"

sql="DELETE from concerti where dataa like '" & DataConcerto &"'"

response.write(sql)
response.end
'Set RS=dbconn.Execute(sql)

'Set RS = Nothing
'set dbconn = Nothing
else
response.write(rs("dataa"))
response.write(rs("nome"))
response.write("<br>")
end if
<%rs.movenext
loop%>
 

daviduccio

Moderatore
5 Ago 2004
1.114
0
0
40
Sicilia
www.daviduccio.it
  • 21 Ago 2006
  • #2
ci sono righe che non dovrebbero essere commentate, e l'istruzione SQL LIKE si usa con %, vai a cercare la sintassi giusta su google o sulla guida di access.
 
K

Kiras

Nuovo Utente
21 Ago 2006
8
0
0
  • 21 Ago 2006
  • #3
Quando scrivi rs.monenext apri il tag di script, ma in precedenza non lo hai chiuso :byebye: Erika
 
M

microsostanza

Nuovo Utente
20 Ago 2006
5
0
0
  • 22 Ago 2006
  • #4
"Quando scrivi rs.monenext apri il tag di script, ma in precedenza non lo hai chiuso"

Ignorantone io...
ho fatto un po' di prove ma nulla...
dove è ke dovrei aprire e chiudere i tag di script?
Grazie in anticipo!!!!
 
K

Kiras

Nuovo Utente
21 Ago 2006
8
0
0
  • 22 Ago 2006
  • #5
nelle ultime righe scrivi :

else
response.write(rs("dataa"))
response.write(rs("nome"))
response.write("<br>")
end if
<%rs.movenext
loop%>

e invece dovresti scrivere:

else
response.write(rs("dataa"))
response.write(rs("nome"))
response.write("<br>")
end if
rs.movenext
loop%>

Quindi devi togliere <% prima di rs.movenext
Ciao
 
M

microsostanza

Nuovo Utente
20 Ago 2006
5
0
0
  • 26 Ago 2006
  • #6
:-(

Ebbene, lo script adesso esegue correttamente la sql, però nella pagina mi visualizza "Impossibile visualizzare la pagina"...
sto impazzendo! :-(
 
K

Kiras

Nuovo Utente
21 Ago 2006
8
0
0
  • 26 Ago 2006
  • #7
ma lo script e' sempre lo stesso? Hai cambiato qualcosa?
ripostalo
Ciao
 
M

microsostanza

Nuovo Utente
20 Ago 2006
5
0
0
  • 26 Ago 2006
  • #8
Ecco lo script intero

<%
Session.LCID=1040
%>

<html>
<%Set dbconn = Server.CreateObject("ADODB.Connection")
mMapPath = Server.MapPath("../mdb-database/concerti_eventiprova.mdb")
dbconn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & mMapPath & ";"
sql="select * from concerti order by dataa"
Set RS=dbconn.Execute(sql)%>
<head>
<title>Nuova pagina 1</title>
</head>

<body>

<%response.write(date)
today=((Date))%>

<%do while not rs.eof

DataConcerto=(rs("dataa"))

if DataConcerto < today then

Set dbconn = Server.CreateObject("ADODB.Connection")
mMapPath = Server.MapPath("../mdb-database/concerti_eventiprova.mdb")
dbconn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & mMapPath & ";"

sql="DELETE from concerti where dataa like '" & DataConcerto &"'"

'response.write(sql)
'response.end
Set RS=dbconn.Execute(sql)

Set RS = Nothing
set dbconn = Nothing
else
response.write(rs("dataa"))
response.write(rs("nome"))
response.write("<br>")
end if
rs.movenext
loop%>

</body>
</html>
 
K

Kiras

Nuovo Utente
21 Ago 2006
8
0
0
  • 26 Ago 2006
  • #9
Ci sono degli errori concettuali, ti posto lo script corretto:

<%
Session.LCID=1040
%>

<html>
<%
Const MdbDatabase = "./mdb-database/concerti_eventiprova.mdb"
dsn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(MdbDataBase)
set dbConn = Server.CreateObject ("Adodb.Connection")
dbConn.Open dsn

sql="select * from concerti order by dataa"
Set RS=dbconn.Execute(sql)%>
<head>
<title>Nuova pagina 1</title>
</head>

<body>



<%response.write(date)
today=((Date))%>

<%do while not rs.eof

DataConcerto=(rs("dataa"))

if DataConcerto < today then

'Set dbconn = Server.CreateObject("ADODB.Connection")
'mMapPath = Server.MapPath("../mdb-database/concerti_eventiprova.mdb")
'dbconn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & mMapPath & ";"

sql2="DELETE from concerti where dataa like '" & DataConcerto &"'"

'response.write(sql)
'response.end
Set RS2=dbconn.Execute(sql2)

'Set RS = Nothing
'set dbconn = Nothing
else
response.write(rs("dataa"))
response.write(rs("nome"))
response.write("<br>")
end if
rs.movenext
loop%>

</body>
</html>

Prima di chiudere il body chiudi il recordset e la connessione.....
Se ci sono problemi fammi sapere....
Ciao
 
M

microsostanza

Nuovo Utente
20 Ago 2006
5
0
0
  • 26 Ago 2006
  • #10
OKi... tnx

Grazie mille... tutto ok, funziona tutto alla perfezione!
 
K

Kiras

Nuovo Utente
21 Ago 2006
8
0
0
  • 26 Ago 2006
  • #11
microsostanza ha scritto:
Grazie mille... tutto ok, funziona tutto alla perfezione!
Clicca per allargare...

Prego figurati
A presto
 
Devi accedere o registrarti per poter rispondere.

Discussioni simili

M
Problema con ciclo for e while
  • Mary Azzurro
  • 8 Feb 2013
  • PHP
Risposte
2
Visite
1K
PHP 9 Feb 2013
Mary Azzurro
M
M
Problema ciclo while con mysql_fetch_assoc
  • Mirko3
  • 22 Dic 2011
  • PHP
Risposte
6
Visite
2K
PHP 27 Dic 2011
borgo italia
V
problema con do while
  • Valshy
  • 4 Set 2011
  • PHP
Risposte
4
Visite
885
PHP 4 Set 2011
borgo italia
D
Problema con while
  • dkiller92
  • 5 Mar 2010
  • PHP
Risposte
0
Visite
1K
PHP 5 Mar 2010
dkiller92
D
D
problema con il ciclo while
  • DewolfCH
  • 28 Ago 2008
  • PHP
Risposte
2
Visite
2K
PHP 28 Ago 2008
Eliox
M
Problema con join e ciclo while
  • mycamo80
  • 23 Mag 2007
  • PHP
Risposte
0
Visite
1K
PHP 23 Mag 2007
mycamo80
M
Problema in Shopify con Pixel Facebook
  • voldemort
  • 27 Mag 2024
  • E-Commerce
Risposte
1
Visite
2K
E-Commerce 27 Mag 2024
m.pittini
M
O
problema con dvr dahua xvr5116
  • oky74
  • 11 Mar 2023
  • IP Cam e Videosorveglianza
Risposte
0
Visite
2K
IP Cam e Videosorveglianza 11 Mar 2023
oky74
O
G
Problema con Xampp
  • GreatOtaku
  • 5 Mar 2023
  • Web Server
Risposte
1
Visite
1K
Web Server 6 Mar 2023
GreatOtaku
G
Problema con miniature comandi
  • andrea barletta
  • 27 Feb 2023
  • Photoshop
Risposte
0
Visite
1K
Photoshop 27 Feb 2023
andrea barletta
I
problema con alice
  • ilprincipiante
  • 10 Feb 2023
  • Posta Elettronica
Risposte
0
Visite
1K
Posta Elettronica 10 Feb 2023
ilprincipiante
I
N
Problema con position absolute e overflow
  • Nocciolina
  • 23 Gen 2023
  • HTML e CSS
Risposte
4
Visite
1K
HTML e CSS 31 Gen 2023
Nocciolina
N
L
Problema con inner join
  • lupentino
  • 23 Nov 2022
  • PHP
Risposte
11
Visite
2K
PHP 27 Nov 2022
marino51
K
[php] Problema con inner join
  • Kiko74b
  • 22 Nov 2022
  • PHP
Risposte
4
Visite
2K
PHP 23 Nov 2022
Kiko74b
K
K
[PHP] Problema con variabili concatenate.
  • Kiko74b
  • 17 Ott 2022
  • PHP
Risposte
1
Visite
1K
PHP 30 Ott 2022
thanatos
T
O
  • Bloccata
problema con query
  • Odino7009
  • 23 Mag 2022
  • PHP
Risposte
4
Visite
2K
PHP 24 Mag 2022
Odino7009
O
I
problema con 2 account
  • ilprincipiante
  • 11 Mar 2022
  • Posta Elettronica
Risposte
1
Visite
2K
Posta Elettronica 11 Mar 2022
WmbertSea
L
problema collegamento file css con html
  • leonardo20
  • 2 Mar 2022
  • HTML e CSS
Risposte
1
Visite
2K
HTML e CSS 3 Ott 2023
WEBLEADERS
W
E
Problema accesso a file con app sviluppata con MIT APP INVENTOR 2
  • emanuelespinelli
  • 22 Dic 2021
  • Sviluppo app per Android
Risposte
0
Visite
3K
Sviluppo app per Android 22 Dic 2021
emanuelespinelli
E
M
Problema con Try Catch
  • migo80
  • 10 Ott 2021
  • PHP
Risposte
0
Visite
2K
PHP 10 Ott 2021
migo80
M
Condividi:
Facebook X (Twitter) LinkedIn WhatsApp e-mail Condividi Link
  • Home
  • Forum
  • Fare Web
  • Classic ASP
  • Italiano
  • Termini e condizioni d'uso del sito
  • Policy Privacy
  • Aiuto
  • Home
Community platform by XenForo® © 2010-2024 XenForo Ltd. | Traduzione a cura di XenForo Italia
Menu
Accedi

Registrati

  • Home
  • Forum
    • Nuovi Messaggi
    • Cerca...
  • Novità
    • Featured content
    • Nuovi Messaggi
    • Ultime Attività
X

Privacy & Transparency

We use cookies and similar technologies for the following purposes:

  • Personalized ads and content
  • Content measurement and audience insights

Do you accept cookies and these technologies?

X

Privacy & Transparency

We use cookies and similar technologies for the following purposes:

  • Personalized ads and content
  • Content measurement and audience insights

Do you accept cookies and these technologies?