Simple.... estas dejando el tag
<% abierto....ponelo asi...
Código:
<%
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
%>