Para anunciarse vaya a la sección del menú ANUNCIARSE.
<%
Set Ob_Conn = Server.CreateObject ("ADODB.Connection")
Set Ob_Command = Server.CreateObject ("ADODB.Command")
Ob_Conn.Open "zonesrozas"
Ob_Command.ActiveConnection = Ob_Conn
Ob_Command.CommandType = adCmdText
Sql= "SELECT * FROM anunciosgratis where Tipo='Peluquerías' order by DNI desc"
Ob_Command.CommandText = Sql
SET Ob_RS = Ob_Command.Execute () %>
<% DO UNTIL Ob_RS.Eof %>
<%= Ob_RS ("Nombre") %>, <%= Ob_RS ("Tipo") %> <%= Ob_RS ("Opciones") %>.
Tel: <%= Ob_RS ("Telefono") %>
Tel(2): <%= Ob_RS ("Telefono2") %>
- <%= Ob_RS("Fecha")%>
Dirección: <%= Ob_RS("Direccion") %>
- Mail: <%= Ob_RS ("Mail")%>
|
<%= Ob_RS ("Texto") %>
# Ref :
<%= Ob_RS("DNI")%>
|
|
<% Ob_RS.MoveNext
LOOP
Ob_RS.Close
Ob_Conn.Close %>
Cualquier sugerencia para mejorar nuestros servicios será bien recibida,
rellene nuestro formulario CONSEJOS,
para que podamos mejorar. Gracias.
|