<% Dim oConn Set oConn = Postcard_GetDatabaseConn() %> CreandoTuVida.com - Postales Card
<%=Inccard_GetAd(1)%> <%=Inccard_GetAd(2)%>

 

Bienvenidos a las Postales!

VOLVER A LA PAGINA DE INICIO

Esto es una demo, pero está funcionando bien y puede servir. En principio se pueden enviar postales prediseñadas, seleccionar, definir usuario origen / destino, etc. y además la administración de las mismas, cantidad de envíos, etc...

 
<% Set oRS = oConn.Execute( "select fldAuto, name from " & Postcard_GetTablePrefix() & "cat" ) While Not oRS.EOF %> <% If Not oRS.EOF Then oRS.MoveNext End If Wend oRS.Close Set oRS = Nothing oConn.Close Set oConn = Nothing %>

Para enviar una Postal, seleccione un TEMA:

Actualmente hay <%=PostCard_GetCardCount(oConn)%> postales en <%=PostCard_GetCatCount(oConn)%> Temas.

"><%=oRS("name")%> <% oRS.MoveNext If Not oRS.EOF Then %> "><%=oRS("name")%> <%End If %>

 

 

<%=Inccard_GetAd(3)%>