problema if ... then ... else

[bormiositi]

Premessa: ho un db access con due tabelle - "comunicato" e "locandina"
Nella tabella comunicato ho tre campi memo: titolo, sottotitolo e descrizione
Nella seconda tabella il percorso di un'immagine

Problema presentazione dati su pagina asp
Devo effettuare un controllo:
Se il record della tabella "comunicato" è vuoto allora visualizzo l'immagine il cui percorso è salvato nel campo img della tabella di db "locandina", altrimenti visualizzo i campi testuali della tabella "comunicato".

Sto provando a scrivere il codice in asp ma credo di avere grossissimi problemi.
Credo che la logica sia quella giusta:
1. apro la connessione al db access
2. apro il recordet della tabella "comunicato"
3. eseguo il controllo sul recordset
4. se il recordset è vuoto lo chiudo
5. apro il recordset della tabella "locandina"
6. scrivo il contenuto del campo img
7. chiudo il controllo
8. .....

Di seguito il codice per suggerimenti\aiuti\tirate d'orecchie\ecc.

<%
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/dbscs.mdb")
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset") 
strSQL="SELECT * FROM comunicato"
rs.Open strSQL,conn,1,3 
%>

<%If Not rs.Eof then
		  response.write ("<h1><%=rs("titolo")%>
<span><%=rs("sottotitolo")%></span></h1>

")
		  response.write replace (Rs("FCKeditor1"),chr(13)&chr(10))
		  else
		  RS.Close 
		  Set RS = Nothing 
		    Dim rs
			Set rs = Server.CreateObject("ADODB.Recordset") 
            strSQL="SELECT * FROM locandina"
			rs.Open strSQL,conn,1,3
			response.write ("[img]resize_eventi_ok.aspx?format=jpeg&quality=100&mode=0&width=65&height=70&path=public/"& rs("immg1") &"[/img]")
			end if
			%>

Spero vivamente che qualcuno possa indirizzarmi verso la strada corretta.

Grazie anticipatamente.

[Roby_72]

Ma hai un errore? Quale?
Apri i recordset ma non li scorri... tutte e due le tabelle hanno al massimo un solo record??

Roby

[bormiositi]

ciao roby, grazie...

sì, entrambe le tabelle hanno un solo record.....

non ho ancora pubblicato la pagina ma già nell'editor vedo che al posto dell'icona "asp" visualizzo la stringa di codice e quindi sicuramente c'è qualche errore nella sintassi.

[Roby_72]

		  response.write ("<h1>"& titolo &"
<span>"& sottotitolo &"</span></h1>

")
		  response.write replace (Rs("FCKeditor1"),chr(13)&chr(10))
		  else
		  RS.Close 
		  Set RS = Nothing 
		    Dim rs
			Set rs = Server.CreateObject("ADODB.Recordset") 
            strSQL="SELECT * FROM locandina"
			rs.Open strSQL,conn,1,3
			response.write ("[img][/img]")
			end if

[bormiositi]

ottimo, la sintassi ora grazie a te è a posto....

spero che ora funzioni tutto come dovrebbe: provo e mi rifaccio vivo.

grazie ancora!