errore global.asa

[agenti]

ho creato una istruzione sub dentro il file global asa.

al caricamento però mi da un errore:

l'inizio del codice è questo :

Sub Application_OnStart

'inizializzo controlli

Sub controllo_asa

l'errrore è il seguente:

Microsoft VBScript compilation error '800a03ea'

Syntax error

/LM/w3svc/1304/ROOT/global.asa, line 8

Sub controllo_asa
^

[Shagrat]

mmm mi pare sbagliato...all'interno di una sub puoi richiamare un'altra sub ma non dichiararla

Sub Application_OnStart

'inizializzo controlli
controllo_asa

end sub

Sub controllo_asa

'corpo della sub

end sub

[agenti]

non è chiaro...

ho bisogno di inserire 3 volte la sub controllo_asa
nel codice che è all'interno della sub session_start

come posso fare??

[Roby_72]

Crea la sub e richiamala tre volte.
Non tre volte una dentro l'altra...

Roby

[agenti]

scusa ma non ho mai prima lavorato sul global.asa

posso aprire la sub prima dello script???

cioè:

Sub controllo_asa

codice
end sub

<SCRIPT= RUNAT SERVER ETC>

controllo_asa

</SCRIPT>

[Shagrat]

io non so cosa tu debba fare...ma si fa semplicemente così:

Sub Application_OnStart

'inizializzo controlli
controllo_asa
controllo_asa
controllo_asa


end sub

Sub controllo_asa

'corpo della sub

end sub

sppongo che la sub "controllo_asa" abbia dei parametri se no non vedo proprio il senso

[agenti]

ora capisci


Sub Application_OnStart

'inizializzo controlli


Sub controllo_asa


Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("/mdb-database/db.mdb")

'elenco prenotazioni in scadenza
Set rs = Server.CreateObject("ADODB.Recordset")
SQL="SELECT pren3.deadline, pren3.Idpren,pren3.idop, pren3.idutente,pren3.idpren,pren3.operatore FROM pren3 WHERE pren3.status='2' and attiva=true and operatore <> null "

rs.open SQL, conn

If Not rs.Eof Then
Do while not rs.eof
idpren=rs("idpren")
id=rs("operatore")

prova=datediff("h",now(),rs("deadline"))

if prova < 30 and prova >= 0 then


Set rs1 = Server.CreateObject("ADODB.Recordset")
strSql=("SELECT email,nome FROM operatori WHERE id="& id &" " )

rs1.open strsql, conn


nome_op=rs1("nome")
email=rs1("email")
rs1.close
set rs1=nothing

Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = "postmaster@lastminutesud.it"
MiaMail.To = email
MiaMail.Subject = "SCADENZA PRENOTAZIONE touroperator"& idpren &" "
MiaMail.htmlBody ="Gentile "& nome_op &",
"&_
"La richiesta di prenotazione con il codice PTA"& idpren&" scadrà tra 24 ore.
"&_
"Ti preghiamo di sollecitare i fornitori per ritentare la conferma della pratica.
"&_
"
La data di partenza è prevista per il
"&_
"
"&_
"************************************************* ************
"&_
"Grazie per la collaborazione
"&_
"Saluti cordiali
"&_


MiaMail.Fields("urn:schemas:httpmail:importance"). Value = 1
MiaMail.Fields.Update()
MiaMail.Send()
Set MiaMail = Nothing

'chiudo il controllo <30
End if

'apro controllo prenotazioni scadute su richiesta
prova=datediff("h",now(),rs("deadline"))

if prova <= 0 then

'invio mail all'operatore
Set rs1 = Server.CreateObject("ADODB.Recordset")
strSql=("SELECT email,nome FROM utenti WHERE idutente="& rs("idutente") &" " )

rs1.open strsql, conn

nome_ut=rs1("nome")
email=rs1("email")
rs1.close
set rs1=nothing


Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = "postmaster@lastminutesud.it"
MiaMail.To = email
MiaMail.Subject = "PRENOTAZIONE SCADUTA t.o."
MiaMail.htmlBody ="Gentile "& nome_ut &",
"&_
"La richiesta di prenotazione con il codice PTA"& idpren&" è scaduta.
"&_
"Il tour operator non è riuscito a trovare sufficente disponibilità"&_
"Ti ricordiamo che nessun addebbito è stato effettuato sulla tua carta di credito
"&_
"Sei quindi libero di scegliere un altra offerta sul nostro sito.
"&_

"
"&_
"************************************************* ************
"&_
"Ti ringraziamo per averci scelto.
"&_
"Saluti cordiali
"&_
"Lo staff di Last Minute Sud
"

MiaMail.Fields("urn:schemas:httpmail:importance"). Value = 1
MiaMail.Fields.Update()
MiaMail.Send()
Set MiaMail = Nothing

'invio mail all'utente
Set rs1 = Server.CreateObject("ADODB.Recordset")
strSql=("SELECT email,nome FROM utenti WHERE idutente="& rs("idutente") &" " )
rs1.open strsql, conn

nome_op=rs1("nome")
email=rs1("email")
rs1.close
set rs1=nothing

Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = "postmaster@lastminutesud.it"
MiaMail.To = email
MiaMail.Subject = "PRENOTAZIONE SCADUTA utenti"
MiaMail.htmlBody ="Gentile "& nome_op &",
"&_
"La richiesta di prenotazione con il codice PTA"& idpren&" scadrà tra 24 ore.
"&_
"Ti preghiamo di sollecitare i fornitori per ritentare la conferma della pratica.
"&_
"
La data di partenza è prevista per il
"&_
"
"&_
"************************************************* ************
"&_

"Saluti cordiali
"&_

MiaMail.Fields("urn:schemas:httpmail:importance"). Value = 1
MiaMail.Fields.Update()
MiaMail.Send()
Set MiaMail = Nothing

'setto status = a 5
'chiudo controllo prenotazioni scadute
end if
rs.movenext
loop
end if


end sub

if time() > #08.00.00# and time() < #15.30.00# then

Set Objfile = CreateObject("Scripting.FileSystemObject")
Set Openfile = Objfile.OpenTextFile(Server.MapPath("/mdb-database/controllo1.txt"))
controllo1 = Openfile.ReadLine
Openfile.Close

If controllo1 = 0 Then

controllo_asa

Set ObjMyFile = CreateObject("Scripting.FileSystemObject")
Set controllo1 = ObjMyFile.CreateTextFile(Server.MapPath("/mdb-database/controllo1.txt"))
controllo1.WriteLine(1)
controllo1.Close
end if
end if


if time() > #15.30.00# and time() < #19.00.00# then

Set Objfile = CreateObject("Scripting.FileSystemObject")
Set Openfile = Objfile.OpenTextFile(Server.MapPath("/mdb-database/controllo2.txt"))
controllo2 = Openfile.ReadLine
Openfile.Close

If controllo2 = 0 Then

controllo_asa

Set ObjMyFile = CreateObject("Scripting.FileSystemObject")
Set controllo2 = ObjMyFile.CreateTextFile(Server.MapPath("/mdb-database/controllo2.txt"))
controllo2.WriteLine(1)
controllo2.Close
end if
end if



if time() > #19.00.00# and time() < #00.00.00# then

Set Objfile = CreateObject("Scripting.FileSystemObject")
Set Openfile = Objfile.OpenTextFile(Server.MapPath("/mdb-database/controllo3.txt"))
controllo3 = Openfile.ReadLine
Openfile.Close

If controllo3 = 0 Then

controllo_asa

Set ObjMyFile = CreateObject("Scripting.FileSystemObject")
Set controllo3 = ObjMyFile.CreateTextFile(Server.MapPath("/mdb-database/controllo3.txt"))
controllo3.WriteLine(1)
controllo3.Close
end if
end if

'azzero controlli
if time() > #00.00# and time < #08.00# then

Set controllo1 = ObjMyFile.CreateTextFile(Server.MapPath("/mdb-database/controllo1.txt"))
WriteMyFile.WriteLine(0)
WriteMyFile.Close
Set controllo2 = ObjMyFile.CreateTextFile(Server.MapPath("/mdb-database/controllo2.txt"))
controllo2.WriteLine(0)
controllo2.Close
Set controllo3 = ObjMyFile.CreateTextFile(Server.MapPath("/mdb-database/controllo3.txt"))
controllo3.WriteLine(0)
controllo3.Close
end if