|
<%Set rstSimple = cnnSimple.Execute("SELECT * FROM Tbl_subfamilia, Tbl_familia WHERE id_subfamilia = " & sfam & " AND Tbl_subfamilia.familia = Tbl_familia.id_familia")%> <%
textoHTM = ""
tfamilia = rstSimple("Tbl_familia.familia").Value
ssfamilia = rstSimple("subfamilia").Value
%>
<%=ssfamilia%>
|
|
<%
If rstSimple("txt").Value <> "" Then
texto = rstSimple("txt").Value
for i = 1 to len(texto)
if mid(texto,i,1) = chr(13) then
textoHTM = textoHTM + " "
else
textoHTM = textoHTM + mid(texto,i,1)
end if
next
End If
%>
<%=textoHTM%> <%
rstSimple.Close
Set rstSimple = Nothing
%> |
|
|