Bu kodun neresi yanlış?

[GateSXraY]

Sitemap hazırlamak için bir kod yazdım ama kod yanlış. Neresi yanlış anlayamadım. (bu asp den nefret ediyorum şimdi asp.net olsa kodu bnm yerime düzeltirdi )

kod;

Kod: Hepsini Seç | Panoya Kopyala

<?xml version="1.0" encoding="ISO-8859-9" ?>

<urlset xmlns="http://www.google.com/schemas/sitemap/0.84">

<!--#include file="config.asp"-->

<%
Tarih = Year(Date) & "-" & Month(Date) & "-" & Day(Date)
SQL = "SELECT id FROM PORTAL_TOPICS ORDER BY id DESC"
rs.Open SQL,Conn,1,3
do while Not rs.Eof
%>


<url>
<loc>http://www.webdetek.net/link.asp?TOPIC_ID=<%= TOPIC_ID %></loc>
<lastmod><% =ChkDate(rs("R_DATE")) %></lastmod>
<changefreq>weekly</changefreq>
<priority>0.5</priority>
</url>
<%
rs.MoveNext
Loop
rs.Close
%>

</urlset>

hata;

Microsoft VBScript runtime  error '800a01a8'

Object required: 'rs'

/sitemap.asp, line 10


çözüm=?Teşekkür listesi şu anda boş.

[burajan]

Veritabanı bağlantısında rs nesnesini tanımlayamamış, bir eksiklik var ama anlayamadım.

[GateSXraY]

  İki satır kod adamı deli ediyor!

[burajan]

Kod: Hepsini Seç | Panoya Kopyala

SQL = "SELECT id FROM PORTAL_TOPICS ORDER BY id DESC"
rs.Open SQL,Conn,1,3

Yukarıdaki kodu aşağıdaki gibi değiştir bi bakalım!

Kod: Hepsini Seç | Panoya Kopyala

SQL = "SELECT id FROM PORTAL_TOPICS ORDER BY id DESC"
set rs = server.CreateObject("adodb.recordset")
rs.Open SQL,Conn,1,3

[GateSXraY]

Tamam onuda deneyelim

[GateSXraY]

olmuyor... olmuyor...

[burajan]

Bu konuda fazla yapabileceğim birşey yok. Ama veritabanı bağlantısında id küçük harfle yazılmış, onu ID şeklinde bir dene belki bir ilgisi vardır. Gerçi o hatayla bu yazdığımın ilgisi olmayacağını düşünüyorum, belki düzelebilir diyorum Eğer bu da olmazsa bu konuda başka birşey yapamam.