Ho un database di un catalogo di bomboniere che li fa visualizzare al pubblico tramite una pagina asp.
Questo catalogo è diviso in due sezioni.
La sezione A e la sezione B. Quindi ho fatto due tabelle A e B.
Quando un utente deve vedere le bomboniere, impaginate tramite una scheda (schedaoggetto.asp) puo leggere o quelli della sezione A o quelli della sezione B.
La pagina della sezione è questa:
sezione.asp
<%@LANGUAGE="VBSCRIPT"%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("fpdb/databaseschede.mdb")
%>
apro la connessione.
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql = "SELECT * FROM italiano WHERE Sezione = '" & Replace(Request.QueryString("nome"), "'", "''") & "'"
Rs.Open Sql, Conn, 3, 3
%>
<%
Dim Numero
while not rs.EOF
%>
<tr>
<%
Numero=0
do while Numero<4 and not Rs.eof
If rs("Immagine_small") <> "" Then
%>
entro nella tabella con questa query.
<a href="schedaoggettox.asp?id=<%=rs("id")%>"> <img src="<%=rs("Immagine_small")%>"
Leggo il record in questo modo.
<%
Numero=Numero+1
end if
Rs.Movenext
loop
%>
</tr>
<%
wend
%>
e concludo.
La Scheda della bomboniera
schedaoggetto.asp
<%@LANGUAGE="VBSCRIPT"%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("fpdb/databaseschede.mdb")
%>
con questo apro la connessione.
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql = "SELECT * FROM Italiano WHERE id LIKE '" & request.querystring("id") & "'"
Rs.Open Sql, Conn, 3, 3
%>
vado a leggere nella tabella italiano con questa query.
<%=Rs("Messaggio")%>
Leggo il campo Messaggio.
Bene fin qui tutto bene. Il problema si pone perchè ci sono le bomboniere della sezione A che oltre al campo <%=Rs("Messaggio")%> vorrei che mi mostrasse anche il campo <%=Rs("Autore")%>.
La cosa piu facile sarebbe basta aggiungere <%=Rs("Autore")%> ma in questo caso avrei che nella sezione B mi esca pure il campo <%=Rs("Autore")%> che non voglio.
In parole povere vorrei che quando entro nella tabella A mi appaia il <%=Rs("Autore")%> e quando entro nella tabella B questo non ci sia.
come posso fare?
Questo catalogo è diviso in due sezioni.
La sezione A e la sezione B. Quindi ho fatto due tabelle A e B.
Quando un utente deve vedere le bomboniere, impaginate tramite una scheda (schedaoggetto.asp) puo leggere o quelli della sezione A o quelli della sezione B.
La pagina della sezione è questa:
sezione.asp
<%@LANGUAGE="VBSCRIPT"%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("fpdb/databaseschede.mdb")
%>
apro la connessione.
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql = "SELECT * FROM italiano WHERE Sezione = '" & Replace(Request.QueryString("nome"), "'", "''") & "'"
Rs.Open Sql, Conn, 3, 3
%>
<%
Dim Numero
while not rs.EOF
%>
<tr>
<%
Numero=0
do while Numero<4 and not Rs.eof
If rs("Immagine_small") <> "" Then
%>
entro nella tabella con questa query.
<a href="schedaoggettox.asp?id=<%=rs("id")%>"> <img src="<%=rs("Immagine_small")%>"
Leggo il record in questo modo.
<%
Numero=Numero+1
end if
Rs.Movenext
loop
%>
</tr>
<%
wend
%>
e concludo.
La Scheda della bomboniera
schedaoggetto.asp
<%@LANGUAGE="VBSCRIPT"%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("fpdb/databaseschede.mdb")
%>
con questo apro la connessione.
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql = "SELECT * FROM Italiano WHERE id LIKE '" & request.querystring("id") & "'"
Rs.Open Sql, Conn, 3, 3
%>
vado a leggere nella tabella italiano con questa query.
<%=Rs("Messaggio")%>
Leggo il campo Messaggio.
Bene fin qui tutto bene. Il problema si pone perchè ci sono le bomboniere della sezione A che oltre al campo <%=Rs("Messaggio")%> vorrei che mi mostrasse anche il campo <%=Rs("Autore")%>.
La cosa piu facile sarebbe basta aggiungere <%=Rs("Autore")%> ma in questo caso avrei che nella sezione B mi esca pure il campo <%=Rs("Autore")%> che non voglio.
In parole povere vorrei che quando entro nella tabella A mi appaia il <%=Rs("Autore")%> e quando entro nella tabella B questo non ci sia.
come posso fare?