I am trying to take data from a database and fill up a table in a row, column format. Instead of getting:
Reg Proj Ter Comments
a b c d
e f g h
I get:
Reg Proj Ter Comments
a b c d e f g h
Here is the code.....Can anybody help meeeeeeeeeee........
<HTML>
<BODY>
<%
Dim objRS
Set objRS=Server.CreateObject ("ADODB.Recordset"
objRS.Open "BTSCurrentActivity",objConn,,,adcmdTable
%>
<TABLE>
<CAPTION>
BTS Current Activity Report (Edit Mode)
</CAPTION>
<TR>
<TH>Region</TH>
<TH>Project Name</TH>
<TH>Territory</TH>
<TH>Originally Awarded</TH>
<TH>Anchor Tenant Rent Year One</TH>
<TH>AnchorTenant Rent Year Three</TH>
<TH>Comments</TH>
</TR>
<%
Do While Not objRS.EOF
Response.Write "<TD><input type=text name=Reg
value=" & objrs("Region"
& "</TD>"
Response.Write "<TD><input type=text name=Reg
value=" & objrs("ProjectName"
& "</TD>"
Response.Write "<TD><input type=text name=Reg
value=" & objrs("Territory"
& "</TD>"
Response.Write "<TD><input type=text name=Reg
value=" & objrs("OriginallyAwarded"
& "</TD>"
Response.Write "<TD><input type=text name=Reg
value=" & objrs("AnchorTenantRent1"
& "</TD>"
Response.Write "<TD><input type=text name=Reg
value=" & objrs("AnchorTenantRent3"
& "</TD>"
Response.Write "<TD><input type=text name=Reg v
Value=" & objrs("Comments"
& "</TD>"
objRS.MoveNext
loop
objRS.Close
Set objrs = Nothing
objconn.close
Set objconn = Nothing
%>
</TABLE>
</BODY>
</HTML>
THANKS!
Reg Proj Ter Comments
a b c d
e f g h
I get:
Reg Proj Ter Comments
a b c d e f g h
Here is the code.....Can anybody help meeeeeeeeeee........
<HTML>
<BODY>
<%
Dim objRS
Set objRS=Server.CreateObject ("ADODB.Recordset"
objRS.Open "BTSCurrentActivity",objConn,,,adcmdTable
%>
<TABLE>
<CAPTION>
BTS Current Activity Report (Edit Mode)
</CAPTION>
<TR>
<TH>Region</TH>
<TH>Project Name</TH>
<TH>Territory</TH>
<TH>Originally Awarded</TH>
<TH>Anchor Tenant Rent Year One</TH>
<TH>AnchorTenant Rent Year Three</TH>
<TH>Comments</TH>
</TR>
<%
Do While Not objRS.EOF
Response.Write "<TD><input type=text name=Reg
value=" & objrs("Region"
Response.Write "<TD><input type=text name=Reg
value=" & objrs("ProjectName"
Response.Write "<TD><input type=text name=Reg
value=" & objrs("Territory"
Response.Write "<TD><input type=text name=Reg
value=" & objrs("OriginallyAwarded"
Response.Write "<TD><input type=text name=Reg
value=" & objrs("AnchorTenantRent1"
Response.Write "<TD><input type=text name=Reg
value=" & objrs("AnchorTenantRent3"
Response.Write "<TD><input type=text name=Reg v
Value=" & objrs("Comments"
objRS.MoveNext
loop
objRS.Close
Set objrs = Nothing
objconn.close
Set objconn = Nothing
%>
</TABLE>
</BODY>
</HTML>
THANKS!