Display the serial number in asp file

[vagaisuresh]

Dear Friends,

Dealers details retreived from database and display in a asp file. I want to display the serial number. I don't know, how to display the serial number. anybody help me

Thanks
Suresh

<%
Dim db
Dim rs
 
Set db=CreateObject("ADODB.Connection")
Set rs=CreateObject("ADODB.Recordset")
 
db.Open "Driver={SQL Server};Server=Server;Database=TiAnode;Uid=sa;Pwd=;"
rs.Open "select * from DEALERS order by DealerName", db
 
While not rs.EOF 
    Response.Write ("<TABLE border=0 cellPadding=0 cellSpacing=0 width=580 align=center>")
    Response.Write ("<TBODY>")
    Response.Write ("<TR bgcolor=#F5F5F5>")
 
    Response.Write ("<TD width=35 class=contact align=center>")
    Response.Write (1)
    Response.Write ("</TD>")
    Response.Write ("<TD width=375 class=contact>")
    Response.Write (rs.Fields (1))
    Response.Write ("</TD>")
    Response.Write ("<TD width=130 class=contact>")
    Response.Write (rs.Fields (3))
    Response.Write ("</TD>")
    Response.Write ("<TD width=50 class=contact>")
    Response.Write ("rs.Fields (4)")
    Response.Write ("</TD>")
 
    Response.Write ("</TR>")
    Response.Write ("</TBODY>")
    Response.Write ("</TABLE>")
 
    rs.MoveNext 
Wend
%>

[danp129]

If you know the name of a field you can refer to it as rs("fieldname")

<%
Dim db
Dim rs
 
Set db=CreateObject("ADODB.Connection")
Set rs=CreateObject("ADODB.Recordset")
 
db.Open "Driver={SQL Server};Server=Server;Database=TiAnode;Uid=sa;Pwd= ;"
rs.Open "select * from DEALERS order by DealerName", db
 
dim i
While not rs.EOF 
    i=i+1
    Response.Write "<TABLE border=0 cellPadding=0 cellSpacing=0 width=580 align=center>"
    Response.Write "<TBODY>"
    Response.Write "<TR bgcolor=#F5F5F5>"
    Response.Write "<TD width=35 class=contact align=center>" & i & "</TD>"
    Response.Write "<TD width=375 class=contact>" &  rs("dealername") & "</TD>"
    Response.Write "<TD width=130 class=contact>" & rs("city") & "</TD>"
    Response.Write "<TD width=50 class=contact>" & rs("serial") & "</TD>"
    Response.Write "</TR>"
    Response.Write "</TBODY>"
    Response.Write "</TABLE>"
    rs.MoveNext 
Wend
%>

[jhardman]

If you don't know the field names, you can display it like this:

response.write "<table><tr>"
for each x in rs.fields
   response.write "<th>" & x.name & "</th>" & vbNewLine
next
response.write "</tr>"
do until rs.eof
   response.write "<tr>"
 
   for each x in rs.fields
      response.write "<td>" & x.value & "</td>" & vbNewLine
   next
 
   response.write "</tr>"
   rs.moveNext
loop
response.write "</table>" & vbNewLine