<%@LANGUAGE="VBSCRIPT"%> <% Option Explicit dim idpagina idpagina = "verreceta" %>
<% if not idver = 0 then dbini() filtro= "Select id, nombre, grupo, ingredientes, preparacion, visitas, estado from recetas where id = " & clng(idver) rs.Open filtro, oconn, 3, 3 if not rs.eof then %> Recetas / <% = txt_pg %>
<% = rs("nombre") %>

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 "

Otras recetas de '" & txt_pg & "':

" 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 %>