Dynamic Table

[arthyarthy]

HI ALL
I want create Dynamic table from database. Its have 100 box but 10 Rows 10 x 10 Iam using dream weaver CS3. I cant do it in asp .
any one help me. thanks in advance

my code is follow

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Connections/myconn.asp" -->
<!--#include file="includes/header.asp" -->
 
<%
Dim rs
Dim rs_cmd
Dim rs_numRows
Dim Repeat1__numRows
Dim Repeat1__index
Dim Repeat2__numRows
Dim Repeat2__index
 
Set rs_cmd = Server.CreateObject ("ADODB.Command")
rs_cmd.ActiveConnection = MM_myconn_STRING
rs_cmd.CommandText = "SELECT plotid, available FROM vnph2 ORDER BY sno" 
rs_cmd.Prepared = true
 
Set rs = rs_cmd.Execute
rs_numRows = 0 
Repeat2__numRows=0
%>
 
<%
 
Response.Write("<table border='1' cellpadding='2' cellspacing='2'>")
 
     While ((Repeat2__numRows <> 0) AND (NOT rs.EOF)) 
                        Response.Write("<tr>")
 
 
if (rs.Fields.Item("available").Value)="0" then
 
     response.write("<tr><td colspan=9 align=center bgcolor=00FF00 width='100' height='100'><font size=2>"& "plot"  & (rs.Fields.Item("plotid").Value) & "<br><br><a href= payment.asp?" & (rs.Fields.Item("plotid").Value) & ">"& (rs.Fields.Item("plotid").Value) &"</a></font></td>")
  else
     response.write("<tr><td colspan=9 align=center bgcolor=FFCCFF width='100%'><font size=2>"& "plot"  & (rs.Fields.Item("plotid").Value) & "<br><br><a href= payment.asp?" & (rs.Fields.Item("plotid").Value) & ">"& (rs.Fields.Item("plotid").Value) &"</a></font></td>")
end if
 
 
 
  Repeat2__index=Repeat2__index+1
  Repeat2__numRows=Repeat2__numRows-1
  rs.MoveNext()
Wend
 
Response.Write("</tr>")
Response.Write("</table>") %>
</BODY></html>
<%
rs.Close()
Set rs = Nothing
%>

[jhardman]

It looks like your code is good. What problem is it giving you?

Jared

[arthyarthy]

I want code for above sample from database

thanks for your reply

[arthyarthy]

Dear friends
I want create Dynamic table from database. Its have 100 box but 10 Rows 10 x 10 Iam using dream weaver CS3. I cant do it in asp .
any one help me. Sample output
[IMG]

[/IMG]


my code is follow

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Connections/myconn.asp" -->
<!--#include file="includes/header.asp" -->
 
<%
Dim rs
Dim rs_cmd
Dim rs_numRows
Dim Repeat1__numRows
Dim Repeat1__index
Dim Repeat2__numRows
Dim Repeat2__index
 
Set rs_cmd = Server.CreateObject ("ADODB.Command")
rs_cmd.ActiveConnection = MM_myconn_STRING
rs_cmd.CommandText = "SELECT plotid, available FROM vnph2 ORDER BY sno" 
rs_cmd.Prepared = true
 
Set rs = rs_cmd.Execute
rs_numRows = 0 
Repeat2__numRows=0
%>
 
<%
 
Response.Write("<table border='1' cellpadding='2' cellspacing='2'>")
 
     While ((Repeat2__numRows <> 0) AND (NOT rs.EOF)) 
                        Response.Write("<tr>")
 
 
if (rs.Fields.Item("available").Value)="0" then
 
     response.write("<tr><td colspan=9 align=center bgcolor=00FF00 width='100' height='100'><font size=2>"& "plot"  & (rs.Fields.Item("plotid").Value) & "<br><br><a href= payment.asp?" & (rs.Fields.Item("plotid").Value) & ">"& (rs.Fields.Item("plotid").Value) &"</a></font></td>")
  else
     response.write("<tr><td colspan=9 align=center bgcolor=FFCCFF width='100%'><font size=2>"& "plot"  & (rs.Fields.Item("plotid").Value) & "<br><br><a href= payment.asp?" & (rs.Fields.Item("plotid").Value) & ">"& (rs.Fields.Item("plotid").Value) &"</a></font></td>")
end if
 
 
 
  Repeat2__index=Repeat2__index+1
  Repeat2__numRows=Repeat2__numRows-1
  rs.MoveNext()
Wend
 
Response.Write("</tr>")
Response.Write("</table>") %>
</BODY></html>
<%
rs.Close()
Set rs = Nothing
%>

[jhardman]

Please don't double-post your questions. If you would like, send a pm to a forum expert asking for attention to your question.

I have read your question, but I'm not sure what you want. Your question is too vague.

Jared

[arthyarthy]

how to break after 20th box I mean second row

[arthyarthy]

how to break after 20th box I mean second row
I cannot insert repeat region.
nested repeat regions are supported that is a error msg