ASP VBScript to XML RSS question

Question

I'm just not getting this to work in ASP VBScript.  I just want to loop the recordset so I have all the rows be translated into a xml based rss feed.  What I have makes sense to me, but I only get the first record no matter what I try.
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Connections/cnConn.asp" -->
<%
set rsJobs = Server.CreateObject("ADODB.Recordset")
rsJobs.ActiveConnection = MM_cnConn_STRING
rsJobs.Source = "SELECT id, city, [state], jobtype, datePosted FROM DatabaseTable"
rsJobs.CursorType = 0
rsJobs.CursorLocation = 2
rsJobs.LockType = 3
rsJobs.Open()
rsJobs_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rsJobs_numRows = rsJobs_numRows + Repeat1__numRows
%>
<%
response.write "<?xml version=""1.0"" encoding=""utf-8""?>"
response.write "<rss version=""2.0"">"
response.write "<channel>"
response.write "<title></title>"
response.write "<link>/</link>"
response.write "<description></description>"
%>
<%
While ((Repeat1__numRows <> 0) AND (NOT rsJobs.EOF))
%>
<%
  response.write "<item>"
  response.write "<title>" & (rsJobs.Fields.Item("jobtype").Value) & "</title>"
  response.write "<description>" & (rsJobs.Fields.Item("city").Value) & ", " & (rsJobs.Fields.Item("state").Value) & "</description>"
  response.write "<link>domain</link>"
  response.write "<pubDate>" & (rsJobs.Fields.Item("dateposted").Value) & "</pubDate>"
  response.write "</item>"
%>
<%
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rsJobs.MoveNext()
Wend
%>
<%
response.write "</channel>"
response.write "</rss>"
%>
<%
rsJobs.Close()
Set rsJobs = Nothing
%>

Answer 1

Just giving it a casual look I don't see why it is not working. But why are you declaring all of those counters and then not using them? Seems to overly complicate things. I would get rid of all references to:
rsJobs_numRows
Dim Repeat1__numRows
Dim Repeat1__index
and then change the while loop test to:
While (NOT rsJobs.EOF)
It shouldn't really matter, since your counter used in the while test starts at -1 and is decremented so it should never = 0, but still, it's confusing to read.
And of course, verify that the select statement actually returns more than one row. Use the recordcount property of the recordset.