Else mi da' errore

[mmaria]

Ho uno script che prevede con l'Else di fare delle scelte sul db a secondo di quanto è registrato nel campo5. Al momento la scelta è su due possibilità a secondo che vi strovi scritto, nel campo 5, voce oppure video. Ho bisogno di inserire nello script una terza possibilità quando nel campo 5 è registrato "nome". come faccio?....
Grazie da
Maria

Ecco lo script:

<%
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("/mdb-database/mad.mdb")
strConn=strConn & ";pwd=training"
Conn.Open strConn
sql="SELECT TOP 32 * FROM articoli where sezione = 'news' ORDER BY ad_ID DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
if not rs.eof then
Do While Not rs.EOF

if (rs("campo5")) = voce then
response.write "<p class=AltreNews>"
response.write "<img id=icone src=/img/im44.gif>"
response.write " "&rs("comune")&": "&rs("AD_TITLE")&""

else
response.write "<p class=AltreNews>"
response.write "<img id=icone src=/img/im04.gif> "
response.write "<a href=centro.asp target=centro onclick=window.open('video01.asp?id="& rs("ad_id")&"#alto','pop6','location=no,toolbar=no ,menubar=no,scrollbars=no,resizable=no,width=360,h eight=290');>" & rs("ad_title") & ""
response.write "</a>"
end if

response.write "</a>
"
rs("ad_viewed")=rs("ad_viewed")+1
rs.update
rs.MoveNext

Loop
end if

%>

[Ramboexp]

if (rs("campo5")) = voce then
response.write "<p class=AltreNews>"
response.write "<img id=icone src=/img/im44.gif>"
response.write " "&rs("comune")&": "&rs("AD_TITLE")&"" 

else if (rs("campo5")) = altravoce then
response.write "<p class=AncoraAltreNews>"
response.write "<img id=icone src=/img/im04.gif> "
response.write "<a href=centro.asp target=centro onclick=window.open('video01.asp?id="& rs("ad_id")&"#alto','pop6','location=no,toolbar=no,menubar=no,scrollbars=no,resizable=no,width=360,height=290');>" & rs("ad_title") & ""
response.write "</a>" 

else
response.write "<p class=AltreNews>"
response.write "<img id=icone src=/img/im04.gif> "
response.write "<a href=centro.asp target=centro onclick=window.open('video01.asp?id="& rs("ad_id")&"#alto','pop6','location=no,toolbar=no,menubar=no,scrollbars=no,resizable=no,width=360,height=290');>" & rs("ad_title") & ""
response.write "</a>" 
end if

penso vada bene.

[OcchioCrepato]

sarebbe meglio utilizzare il select case

http://asp.html.it/guide/lezione/200...nale-parte-2-/

[mmaria]

Scusami occhio crepato ho letto quanto mi suggerisci....
ma come riscrivo lo script?...


<%
dim strNome
strNome="innovatel"
select case strNome
case "pippo"
response.write "video"
case "tizio"
response.write " voce "
case else
response.write " Ciao innovatel "
end select
%>

Al posto di innovatel cosa scrivo?

[mmaria]

Aiuto...


Caro Ramboexp
ho inserito quanto mi consigli e mi da' questo errore:

Errore di compilazione di Microsoft VBScript (0x800A040E)
'Loop' senza 'Do'
per la peneultima riga dello script:

bacini
Maria

[optime]

mmariuccia, se hai fatto modifiche allo script, ripostalo

[mmaria]

Ecco lo script modificato

<%
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("/mdb-database/mad.mdb")
strConn=strConn & ";pwd=training"
Conn.Open strConn



sql="SELECT TOP 32 * FROM articoli where sezione = 'news' ORDER BY ad_ID DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
if not rs.eof then
Do While Not rs.EOF



if (rs("campo5")) = voce then
response.write "<p class=AltreNews>"
response.write "<img id=icone src=/img/im44.gif>"
response.write " "&rs("comune")&": "&rs("AD_TITLE")&""

else if (rs("campo5")) = altravoce then
response.write "<p class=AncoraAltreNews>"
response.write "<img id=icone src=/img/im04.gif> "
response.write "<a href=centro.asp target=centro onclick=window.open('video01.asp?id="& rs("ad_id")&"#alto','pop6','location=no,toolbar=no ,menubar=no,scrollbars=no,resizable=no,width=360,h eight=290');>" & rs("ad_title") & ""
response.write "</a>"

else
response.write "<p class=AltreNews>"
response.write "<img id=icone src=/img/im04.gif> "
response.write "<a href=centro.asp target=centro onclick=window.open('video01.asp?id="& rs("ad_id")&"#alto','pop6','location=no,toolbar=no ,menubar=no,scrollbars=no,resizable=no,width=360,h eight=290');>" & rs("ad_title") & ""
response.write "</a>"
end if




response.write "</a>
"
rs("ad_viewed")=rs("ad_viewed")+1
rs.update
rs.MoveNext


Loop
end if


%>

[Ramboexp]

<%
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("/mdb-database/mad.mdb")
strConn=strConn & ";pwd=training"
Conn.Open strConn



sql="SELECT TOP 32 * FROM articoli where sezione = 'news' ORDER BY ad_ID DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
if not rs.eof then
Do While Not rs.EOF



if (rs("campo5")) = voce then
response.write "<p class=AltreNews>"
response.write "<img id=icone src=/img/im44.gif>"
response.write " "&rs("comune")&": "&rs("AD_TITLE")&""

else if (rs("campo5")) = altravoce then
response.write "<p class=AncoraAltreNews>"
response.write "<img id=icone src=/img/im04.gif> "
response.write "<a href=centro.asp target=centro onclick=window.open('video01.asp?id="& rs("ad_id")&"#alto','pop6','location=no,toolbar=no,menubar=no,scrollbars=no,resizable=no,width=360,height=290');>" & rs("ad_title") & ""
response.write "</a>"

else if rs("campo5")) = altravoceancora then
response.write "<p class=AltreNews>"
response.write "<img id=icone src=/img/im04.gif> "
response.write "<a href=centro.asp target=centro onclick=window.open('video01.asp?id="& rs("ad_id")&"#alto','pop6','location=no,toolbar=no,menubar=no,scrollbars=no,resizable=no,width=360,height=290');>" & rs("ad_title") & ""
response.write "</a>"
end if




response.write "</a>
"
rs("ad_viewed")=rs("ad_viewed")+1
rs.update
rs.MoveNext


Loop
end if


%>

prova
scusa ma il mio suggerimento non lo ho provato

[mmaria]

Mi continua a dare lo stesso errore

Errore di compilazione di Microsoft VBScript (0x800A040E)
'Loop' senza 'Do'
destra.asp, line 65
Loop

Ciao da Maria

[OcchioCrepato]

Prova cosi

Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("/mdb-database/mad.mdb")
strConn=strConn & ";pwd=training"
Conn.Open strConn



sql="SELECT TOP 32 * FROM articoli where sezione = 'news' ORDER BY ad_ID DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
if not rs.eof then
	Do While Not rs.EOF


		select case rs("campo5")
			case  voce:
				response.write "<p class=AltreNews>"
				response.write "<img id=icone src=/img/im44.gif>"
				response.write " "&rs("comune")&": "&rs("AD_TITLE")&""
			case altravoce
				response.write "<p class=AncoraAltreNews>"
				response.write "<img id=icone src=/img/im04.gif> "
				response.write "<a href=centro.asp target=centro onclick=window.open('video01.asp?id="& rs("ad_id")&"#alto','pop6','location=no,toolbar=no,menubar=no,scrollbars=no,resizable=no,width=360,height=290');>" & rs("ad_title") & ""
				response.write "</a>"
			case else
				response.write "<p class=AltreNews>"
				response.write "<img id=icone src=/img/im04.gif> "
				response.write "<a href=centro.asp target=centro onclick=window.open('video01.asp?id="& rs("ad_id")&"#alto','pop6','location=no,toolbar=no,menubar=no,scrollbars=no,resizable=no,width=360,height=290');>" & rs("ad_title") & ""
				response.write "</a>"
		end select 
		
	

		
"
		rs("ad_viewed")=rs("ad_viewed")+1
		rs.update
		rs.MoveNext


	Loop
end if

ma le variabili voce e altra voce dove vengono valorizzate?