%@LANGUAGE="VBSCRIPT"%> <% Option Explicit dim idpagina idpagina = "verreceta" %>
Ingredientes:
<%
temporal = replace(rs("ingredientes"),vbCrLf, "
")
response.write temporal
%>
Preparación:
<% temporal = replace(rs("preparacion"),vbCrLf, "
") response.write temporal %>
<% rs("visitas") = rs("visitas") + 1 rs.update end if rs.close Dim urlink filtro= "Select id, nombre, grupo, estado from recetas where estado = 'A' and grupo = '" & txt_pg & "' and not id = " & clng(idver) & " order by nombre" rs.Open filtro, oconn, 0, 1 if not rs.eof then response.write "
" do while not rs.eof urlink = "receta=" & Server.URLEncode(rs("nombre")) & "&grupo=" & Server.URLEncode(txtgrupo) & "&idver=" & rs("id") response.write "" & rs("nombre") & ". " rs.movenext loop response.write "
" end if rs.close dbfin() end if %>