sp; for i = 0 to index - 1 select case lcase(nItems(i).Columntype) Case "label" strTable = strTable & "<td " & nItems(i).HTMLstr & ">" & rs(nItems(i).field) &"</td>" Case "radio"
Case "image"
Case "checkbox"
Case "textbox" strTable = strTable & "<td " & nItems(i).HTMLstr &"><input type=text value=" & rs(nItems(i).field) &"></td>" Case "link"
Case "edit" if UniqueField="" then ErrorMsg="UniqueField not set" strTable = strTable & "<td " & nItems(i).HTMLstr & "><a href=" & actionURL & "&dg_action=edit&uniquekey=" & rs(UniqueField) & ">" & nItems(i).EditCommandText & "</a></td>" Case "delete" if UniqueField="" then ErrorMsg="UniqueField not set" strTable = strTable & "<td " & nItems(i).HTMLstr &"><a href=" & actionURL & "&dg_action=delete&uniquekey=" & rs(UniqueField) &">" & nItems(i).DeleteCommandText&"</a></td>" Case "update"
Case else strTable = strTable & "<td " & nItems(i).HTMLstr &">" & rs(nItems(i).Field) & "</td>" End select Next End if
''''End if rs.movenext strTable = strTable & "</tr>"& vbcrlf loop
if PagePosition="down" or PagePosition="updown" then strTable = strTable & "<tr><td colspan="& index &">"& page(rs.PageCount,Pagenumber,currPage ) ''''strTable =strTable&"<tr>" for i = 0 to index - 1 if nItems(i).Columntype<>"edit" and nItems(i).Columntype <> "delete" and not nItems(i).readonly and nItems(i).field<>uniquefield then ''''strTable = strTable & "<td " & nItems(i).HTMLstr &"><input type=Text name=""" & rs.Fields(nItems(i).field).Name &"""></td>" else ''''strTable = strTable & "<td " & nItems(i).HTMLstr &"> </td>" end if next strTable =strTable&"</tr>"
strTable = strTable & "</form></table>" If isAddnew = 1 then strTable = strTable & "<form action=""?dg_action=addnew"" name=""dgridadd"" method=""post""><table border=" & intBorderWidth & " bordercolordark=" & strBorderColorDark & " bordercolorlight=" & strbordercolorlight & " cellspacing=0><tr>" for i = 0 to index - 1 if nItems(i).Columntype<>"edit" and nItems(i).Columntype <> "delete" and not nItems(i).readonly and nItems(i).field<>uniquefield then strTable = strTable & "<td " & nItems(i).HTMLstr &">" & rs.Fields(nItems(i).field).Name &"</td>" else ''''strTable = strTable & "<td " & nItems(i).HTMLstr &">"&nItems(i).Title&"</td>" end if next strTable = strTable & "<td rowspan=2><a href=""JavaScript:document.dgridadd.submit()"">New</a></td></tr><tr>"
for i = 0 to index - 1 if nItems(i).Columntype<>"edit" and nItems(i).Columntype <> "delete" and not nItems(i).readonly and nItems(i).field<>uniquefield then strTable = strTable & "<td " & nItems(i).HTMLstr &"><input type=Text name=""" & rs.Fields(nItems(i).field).Name &"""></td>" & vbcrlf else ''''strTable = strTable & "<td " & nItems(i).HTMLstr &"> </td>" end if next strTable = strTable &"</tr></table></form>" End if Response.Write strTable
End Sub
Public Sub AddColumn(cColumn) ''''set tem = new Column ''''tem = cColumn ''''response.Write cColumn.ColumnHTMLstr Columns.Add index,cColumn index = index + 1 ''''Columns.Items(i) End Sub