El código que he puesto es este:
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\base\bd\base.mdb")
strSQL = "Select * from DATOS where CODIGOART = " & Request.QueryString("codigoart")
Set RS = Conn.Execute(strSQL)
Response.Write "<BR><BR>" & vbCrLf
Response.Write("<TABLE width=""880"" border=""1"" >")
while not rs.EOF
Response.Write("<TR>")
Response.Write("<TD ">Artículo: "& rs.Fields("descripcion") & "</TD>")
Response.Write("</TR>")
Response.Write("<TR>")
Response.Write("<TD >Observ.:" & rs.Fields("observaciones") & "</TD>")
Response.Write("</TR>")
Response.Write("</TABLE>")
Response.Write("<TABLE width=""880"" border=""1"" >")
Response.Write("<TR>")
Response.Write("<TD colspan=""3"" align=""center""><img src='" & rs.Fields("FOTO") & "'><br><br></TD>")
Response.Write("</TR>")
Response.Write("</TABLE>")
Response.Write("<TABLE width=""600"" border=""0"" align=""left"">")
Response.Write("<TR>")
Response.Write("<TD colspan=""1"" class=""menutop-9"">COLORES DISPONIBLES:</TD>")
Response.Write("</TR>")
Response.Write("<TR>")
if not IsEmpty(rs("NEGRO_01")) Then
Response.Write("<TD colspan=""5"" class=""menutop-10"" >" & rs.Fields("NEGRO_01")&"</TD>")
else
aquí no sé qué poner para que no se muestre el dato si el campo negro está vacío end if
if not IsEmpty(rs("AMARILLO_22")) Then
Response.Write("<TD colspan=""5"" class=""menutop-10"">" & rs.Fields("AMARILLO_22")&"</TD>")
else
………………………………………..
end if
.
.
.
.