Response.Write ("<description>"& temizle(rs("turaciklama"))&"</description>"&vbCrLf)
set rs2=conn.execute ("select * from TurProgram where TurID="&id&" order by SiraNo")
Response.Write ("<DetailedItinerary>")
do while not rs2.eof
response.write ("Day " & rs2("gun") & vbCrLf)
Response.write(temizle(rs2("programaciklama")) & vbCrLf)
rs2.movenext
loop
response.write("</DetailedItinerary>"&vbCrLf)

Sorun çıkaran bölüm kırımız il işaretledim.