Hola
Quiero que mediante esta función se me ejecute el valor de la variable varias veces cogiendo cada vez el valor del recodset pero me da este error:
Constante de cadena sin terminar
variable=variable & vbCrlf & "<url>
----------------------------------^ Cita:
Function generar_sitemaps()
Set Conn = Createobject("ADODB.Connection")
Set rs = CreateObject ("ADODB.RecordSet")
conn.open "bd"
sql="SELECT * FROM tabla1 where libro <> ''"
rs.open sql,conn
rs.movefirst
do while not rs.eof
variable=variable & vbCrlf & "<url>
<loc>http://www.midominio.com/ficha.asp?id=<%=rs("id_libro")%></loc>
<lastmod>2006-08-04T01:00:00+01:00</lastmod>
<changefreq>daily</changefreq>
<priority>0.8</priority>
</url>"
rs.movenext
response.write (variable)
loop
rs.close
Conn.close
End Function