<%@ Language=VBScript %> <% Option Explicit dim conexion, registros, sql, id_var, texto_var, i, largo, caracter set conexion = Server.CreateObject ("ADODB.connection") %><% conexion.open set registros = Server.CreateObject ("ADODB.RECORDSET") %> CIEC - Encuentro de Negocios - Comercio electrónico

 Clic para imprimir

 
Lo que requiere el Encuentro de Negocios
 
<%sql = "select * from ciec_rueda where (oferta='0' or oferta='2') and status='1' order by categoria" registros.open sql,conexion,1 if not registros.bof and not registros.eof then do while not registros.eof%> <%texto_var=registros("producto") largo=len(texto_var) for i=1 to largo caracter=mid(texto_var,i,1) Response.Write(caracter) if asc(caracter)=13 then Response.Write("
") end if next%>
Empresa: <%=registros("nombre")%>
Contacto: <%=registros("contacto")%>
Teléfono: <%=registros("telefono")%>
Correo: <%=registros("email")%>


<%registros.movenext loop else%> No hay requerimientos <%end if registros.close set registros = Nothing conexion.close set conexion = Nothing%>
 

Tomado del sitio web de la CIEC - mas información en www.ciec.org.ve