Comentarios <%'*************************** VALIDACION DEL FORMULARIO %> <%'*************************** FIN DE VALIDACION DEL FORMULARIO %> <%'*************************** AQUI COMIENZA EL FORMULARIO %> <%'CAMBIE ESTE VALOR Y PONGA LA DIRECCION A LA QUE QUIERE QUE LE LLEGUEN LOS EMAILS%> <%'CAMBIE ESTE VALOR Y EL URL DE LA PÁGINA DE CONFIRMACION%> <%'COLOQUE AQUI LOS CAMPOS E INFORMACION QUE NECESITE%> Por favor complete los campos y haga click en enviar. El mensaje será enviado al administrador del sitio quien decide los mensajes a publicar. Nombre:   Email:  País:  URL: Mensaje:  <%strConnection = "driver={MySQL ODBC 3.51 Driver};server=localhost;uid=web;pwd=1i2c3gpe;database=host-w09_IglesiaGpe" Set Conexion = Server.CreateObject("ADODB.Connection") Conexion.Open strConnection strquery = "Select * from mensajes where status = 1 order by fecha" set rs=Conexion.execute(strquery) if not rs.EOF and not rs.BOF then response.Write " Comentarios recibidos " while not rs.EOF 'muestro todos los campos que tiene 'for i = 0 to rs.fields.Count - 1 response.write " " & rs.fields("nombre") & " (" & rs.fields("fecha") & "), " & rs.fields("pais") & " " if not trim(rs.fields("url")) = "" or not trim(rs.fields("url")) = NULL then response.Write rs.fields("url") & " " end if response.Write "Mensaje: " & rs.fields("mensaje") & " " 'next response.Write " " rs.movenext wend end if %> <%'*************************** AQUI TERMINA EL FORMULARIO %> <% 'Cerraar el objeto Recordset rs.Close 'Eliminar el objeto Recordset Set rs = Nothing 'Cerrar el objeto de la conexión Conexion.Close 'Eliminar el objeto de la conexión Set Conexion = Nothing %>