<% Response.Status="301 Moved Permanently" Response.AddHeader "Location", "http://cocinandopasoapaso.info/ver-receta.php?id="++iif(cint(request("id"))>0,request("id"),request("receta"))+"&paso="+request("paso") Response.End DIM conn set conn=NEW clsBaseDeDatos DIM rs set rs=NEW clsCursor DIM id, claves, lineas, HayFoto, CompletarLineas DIM paso, vExisteReceta if request("paso")="" then paso=0 else paso=cint(request("paso")) end if id=request("id") if id=0 then id=cint(request("receta")) 'Se cambio el nombre del parametro "id" por "receta" para mejorar posicionamiento google 25/9/2005 conn.abrir K_CONNECTION_STRING_MAIN rs.abrir conn, "select * FROM Recetas WHERE id=" & id, adOpenForwardOnly vExisteReceta = (not rs.eof()) if vExisteReceta then session("title")="Receta paso a paso de " & rs.campo("cabeza") if paso>0 then session("title")=session("title") & " (paso " & paso & ")" session("description")="En CocinandoPasoAPaso.INFO, receta paso a paso de " & rs.campo("cabeza") & ". " & QuitarSaltos(left(rs.campo("comentario"),100)) & "..." session("keywords")=rs.campo("claves") end if %>
<% CPP_728x90_20080331() 'CPP_728x90_Verdecotorra %>
<% if vExisteReceta then claves = rs.campo("claves") if paso=0 then %>
<%=rs.campo("cabeza")%>
(Esta receta fue vista <%=rs.campo("visitas")%> veces)
Para recordar esta receta pulsa Ctrl+D
PASOS: <% IndicePasos id, paso %>

Presentación

<%=SustituirSaltos(linkar( rs.campo("comentario") ))%>

<% HayFoto = ExisteArchivo( "recetas/receta" & trim(rs.campo("id")) & ".jpg") if HayFoto then %> " border=0 alt="<%=rs.campo("cabeza")%>" style="border: 2px #505050 solid;">
<% else %> <% 'Adsense250x250CuadroFichaReceta %> <% end if 'Adsense250x250CuadroFichaRecetaRojo %>

<% CPP_728x90_20080331() 'CPP_728x90_Verdecotorra %>
PASOS: <% ' Muestro los links de los pasos de la receta IndicePasos id, paso %>


<% ListitaRecetasSimilares claves, 3, id %>
<% else %>
<%=rs.campo("cabeza")%>
(Esta receta fue vista <%=rs.campo("visitas")%> veces)
Para recordar esta receta pulsa Ctrl+D
PASOS: <% ' Muestro los links de los pasos de la receta IndicePasos id, paso %>

Paso <%=paso%>

<% ' Muestro el paso de la receta DIM texto DIM foto1, foto2, foto3 DIM video1 texto = SustituirSaltos( GetCampoPaso( id, paso, "texto") ) foto1 = GetCampoPaso( id, paso, "foto1") foto2 = GetCampoPaso( id, paso, "foto2") foto3 = GetCampoPaso( id, paso, "foto3") video1= GetCampoPaso( id, paso, "video1") %>

<%=texto%>

 <% Adsense200x90Vinculos() %>
<% if len(foto1)>0 then %>" height="<%=GetParametro("alto_foto_paso")%>" src="recetas/pasos/<%=foto1%>"><% end if %> <% if len(foto2)>0 then %>" height="<%=GetParametro("alto_foto_paso")%>" src="recetas/pasos/<%=foto2%>"><% end if %> <% if len(foto3)>0 then %>" height="<%=GetParametro("alto_foto_paso")%>" src="recetas/pasos/<%=foto3%>"><% end if %>
<% HayVideo = False %> <% if len(video1)>0 then %> <% HayVideo = True %> /recetas/pasos/<%=video1%>" /> /recetas/pasos/<%=video1%>" height="<%=GetParametro("alto_video_paso")%>" width="<%=GetParametro("ancho_video_paso")%>" border="0" autoStart="0" type="application/x-mplayer2"/> <% end if %>
<% ' ' Conversor de unidades ' ConversorUnidades() %>
<% CPP_728x90_Verdecotorra %>
PASOS: <% ' Muestro los links de los pasos de la receta IndicePasos id, paso %>


<% end if else %>

Receta no encontrada

<% end if %>
<% ' Incremento contador de visitas solo en el paso 0 if paso=0 then conn.ejecutar "UPDATE Recetas SET visitas=visitas+1 WHERE id=" & id if 1<0 then ' quito la recomendacion por el problema de spam 'if vExisteReceta then ' ' ' Muestro form de recomendacion ' %>
Recomendar receta a un(a) amigo/a    "> ">
<% end if rs.cerrar set rs=nothing conn.cerrar set conn=nothing %>

Comentarios sobre esta receta

<% ComentariosDeReceta id, 3 %>

Publica tu propio comentario

* Tu Nombre:

* Tu e-mail:

* ¿De qué país eres?:

¿De qué ciudad eres?:

* Tu comentario:

(Nota: * indica que el campo es obligatorio, debe contener un dato)

<% Function IIf(i,j,k) If i Then IIf = j Else IIf = k End Function ' ' Muestro otras recetas que coincidan con sus claves ' %>
Otras recetas relacionadas
<% ListaRecetasSimilares claves, 6, id %>

[ Volver ]