Prevista fine istruzione ?

[hugheshi]

dim strhotel1dim strhotel1
	
	set rs2=server.createobject("ADODB.recordset")
	qry2 = "select top 1 * from  richieste WHERE stato = '"&stato&"' ORDER BY id desc"
 		
	rs2.Open qry2,conn
	
	if rs2.eof then
	response.write "nessun dato"
	
	do until rs2.eof 
	rs2.movenext 
	loop
	end if 
	'response.end()
	
	strhotel1 = ""if Trim(rs2.fields("hotel1")& "[]") <> "[]"   then 
	response.write "Hotel:"rs2.fields("hotel1")&" dal "&rs2.fields("datarrhtl1")&"al " &rs2.fields("dataparthtl1")&" notti : "& rs2.fields("pernhotel1")&
		end if ""

mi da l'errore prevista fine istruzione alla riga con caratteri in rosso ma

[DarioN1]

strhotel1 = ""

if Trim(rs2.fields("hotel1")& "[]") <> "[]" then

[maximum]

Ci sono degli errori a prima vista:

1)Istanzi un loop senza farci nulla.

2)Operi assegnazione di un controllo (IF), cosa che non si può fare.

Se magari ci dici cosa vuoi ottenere ti diamo volentieri un aiuto.

[DarioN1]

We Meratese

Sabato passo giù al Bini Jeans !!!

Spacca

[hugheshi]

spiego :

un cliente fa la richiesta viaggio ed ha più opzioni, devo mandare via email a una agenzia dei dati ma solo quelli inseriti .

quindi il cliente compila un form e inserisce in db
dopo i dati vengono estratti e inviati via email .

devo estrarre e scrivere nella email solo quelli inseriti .

ecco il codice

vis=request.querystring("visitato")

if vis then
		
	luogo = Replace(Trim(Request.Form("luogo")), "'", "''")
	nome = Replace(Trim(Request.Form("nome")), "'", "''")
	cognome = Replace(Trim(Request.Form("cognome")), "'", "''")
	codice = Replace(Trim(Request.Form("codice")), "'", "''")
	ente = Replace(Trim(Request.Form("ente")),"'","''")
	data_ins = Request.Form("data_ins")
	settore = Replace(Trim(Request.Form("settore")),"'","''")
	telefono = Request.Form("telefono")
	anno= request.form("anno")
	cellulare = Request.Form("cellulare")
	email = Replace(Trim(Request.Form("email")),"'","''")
	motivo = Replace(Trim(Request.Form("motivo")),"'","''")
	note2 = Replace(Trim(Request.Form("note_utente")),"'","''")
	lochotel1 = Replace(Trim(Request.Form("lochotel1")),"'","''")
	lochotel2 = Replace(Trim(Request.Form("lochotel2")),"'","''")
	lochotel3 = Replace(Trim(Request.Form("lochotel3")),"'","''")
	hotel1 = Replace(Trim(Request.Form("hotel1")),"'","''")
	hotel2 = Replace(Trim(Request.Form("hotel2")),"'","''")
	hotel3 = Replace(Trim(Request.Form("hotel3")),"'","''")
	datarrhtl1 = Replace(Trim(Request.Form("dataA")),"'","''")
	datarrhtl2 = Replace(Trim(Request.Form("dataC")),"'","''")
	datarrhtl3 = Replace(Trim(Request.Form("dataE")),"'","''")
	dataparthtl1 = Replace(Trim(Request.Form("dataB")),"'","''")
	dataparthtl2 = Replace(Trim(Request.Form("dataD")),"'","''")
	dataparthtl3 = Replace(Trim(Request.Form("dataF")),"'","''")
	pernhotel1 = Replace(Trim(Request.Form("differenza1")),"'","''")
	pernhotel2 = Replace(Trim(Request.Form("differenza2")),"'","''")
	pernhotel3 = Replace(Trim(Request.Form("differenza3")),"'","''")qryx ="INSERT INTO richieste (luogo, nome, cognome, codice, email, telefono, cellulare, ente, settore, data_ins, anno, motivo,"&_
	"hotel1, hotel2, hotel3,"&_
	"lochotel1, lochotel2 , lochotel3,"&_
	"datarrhtl1, datarrhtl2, datarrhtl3,"&_
	"dataparthtl1, dataparthtl2, dataparthtl3," &_
	"pernhotel1, pernhotel2, pernhotel3,"&_

	"VALUES  ('"&luogo&"' , '"&nome&"', '"&cognome&"', '"&codice&"', '"&email&"', '"&telefono&"', '"&cellulare&"', '"&ente&"', '"&settore&"', '"&data_ins&"', '"&anno&"' , '"&motivo&"', "&_
	"'"&hotel1&"', '"&hotel2&"', '"&hotel3&"',"&_
	"'"&lochotel1&"', '"&lochotel2&"', '"&lochotel3&"',"&_
	"'"&datarrhtl1&"', '"&datarrhtl2&"',  '"&datarrhtl3&"', "&_
	"'"&dataparthtl1&"',  '"&dataparthtl2&"',  '"&dataparthtl3&"',"&_
	"'"&pernhotel1&"', '"&pernhotel2&"', '"&pernhotel3&"', "&_
conn.execute(qryx)
dim strhotel1
	
	set rs2=server.createobject("ADODB.recordset")
	qry2 = "select top 1 * from  richieste WHERE stato = '"&stato&"' ORDER BY id desc"
 		
	rs2.Open qry2,conn
	
	if rs2.eof then
	response.write "nessun dato"
	
	do until rs2.eof 
	rs2.movenext 
	loop
	end if 
	'response.end()
	
	strhotel1 = if (Trim(rs2.fields("hotel1")& "[]") <> "[]" ) then 
	replace(response.write "Hotel:"rs2.fields("hotel1")&" dal "&rs2.fields("datarrhtl1")&"al " &rs2.fields("dataparthtl1")&" notti : "& rs2.fields("pernhotel1"))""
		end if ""
	
	'invia email alla segretaria di settore e al responsabile di settore 
	
	Set Mail = Server.CreateObject("CDONTS.NewMail")

da = "messaggeria.viaggi@auchan.it"
titolo = "Inserimento Richiesta Viaggi"
mex = ciao

	Set MAIL = CreateObject("CDONTS.NewMail")
	MAIL.From = da
	MAIL.Subject = titolo
	
	MyBody = "<html><body><font face=Verdana size=2> E mail di conferma : richiesta viaggio inserita:
"
	MyBody = MyBody + "Data della richiesta:"& rs2.fields("data_ins") & " 
" & mex
	MyBody = MyBody + "Stato della richiesta:"& rs2.fields("stato") & " 
" & mex
	MyBody = MyBody + "Numero richiesta:"& rs2.fields("id") & " 
" & mex
	MyBody = MyBody + "Richiesta per :"& rs2.fields("luogo") & " 
" & mex
	MyBody = MyBody + "Centro di addebito :"& rs2.fields("cr") & " 
" & mex
	MyBody = MyBody + "Nome  :"& rs2.fields("nome") & " 
" & mex
	MyBody = MyBody + "Cognome:" & rs2.fields("cognome")& "
" & mex
	MyBody = MyBody + "Codice Individuale:" & rs2.fields("codice")& "
" & mex
	MyBody = MyBody + "Ente:" & rs2.fields("ente") & "
" & mex
	MyBody = MyBody + "Reparto:" & rs2.fields("settore") & "
" & mex
	MyBody = MyBody + "Motivo:" & rs2.fields("motivo") & "
" & mex
	MyBody = MyBody + "Note del richiedente:" & rs2.fields("note2") & "
" & mex
	MyBody = MyBody + "Richiesto: "&strhotel1& "
" & mex
		MyBody = MyBody + "puoi verificare lo stato della tua richiesta cliccando qui
" & mex
    MyBody = MyBody + "</font></body></html>"
	MAIL.Body = MyBody
	'MAIL.To = rs1.fields("mail_seg_settore")
	MAIL.To = rs2.fields("email")	
	MAIL.CC =  rs1.fields("mail_seg_settore") & "; " & rs1.fields("mail_seg_ente")& "; " & rs1.fields("mail_dir_ente")&";"& rs1.fields("mail_dir_settore")
	MAIL.BodyFormat = 0
	MAIL.MailFormat = 0
	MAIL.Send
	set MAIL = nothing

[maximum]

Prova a scrivere così:

if (Trim(rs2.fields("hotel1")& "[]") <> "[]" ) then 
   strhotel1 = "Hotel: " & rs2.fields("hotel1") & " dal " & rs2.fields("datarrhtl1") & "al " & rs2.fields("dataparthtl1") & " notti : " & rs2.fields("pernhotel1"))"
end if

Il replace non ti serve...e mancava una "&" di concatenazione nella stringa.

[hugheshi]

ciao dario

[hugheshi]

mi da errore nella riga :

Errore di compilazione di Microsoft VBScript (0x800A0401)
Prevista fine istruzione
/viaggi/prenotazione_exe2_prova.asp, line 233, column 159

che è la riga in rosso

if (Trim(rs2.fields("hotel1")& "[]") <> "[]" ) then 
   strhotel1 = "Hotel: " & rs2.fields("hotel1") & " dal " & rs2.fields("datarrhtl1") & "al " & rs2.fields("dataparthtl1") & " notti : " & rs2.fields("pernhotel1")"
" 
end if

[maximum]

Prova così:

if (Trim(rs2.fields("hotel1")& "[]") <> "[]" ) then 
   strhotel1 = "Hotel: " & rs2.fields("hotel1") & " dal " & rs2.fields("datarrhtl1") & "al " & rs2.fields("dataparthtl1") & " notti : " & rs2.fields("pernhotel1") & "
" 
end if

[hugheshi]

ok
ora va benissimo
grazie 1000!!