Select data and update all field in one page in asp

Collapse
X
Collapse
 
  • Page of 1
  • Time
  • Show
Clear All
new posts
Previous template Next
  • nikou_70
    New Member
    • Nov 2005
    • 10
    #1

    Select data and update all field in one page in asp

    Hi guys,
    I write a program with asp that select data from data base and show data in text box in asp, I want to know how user can change data and save it in this page, (I want to view and save data in one page).
    Tags: None
    • Niheel
      Recognized Expert Moderator Top Contributor
      • Jul 2005
      • 2432
      #2
      You should display the data in a form, and have it ready to make changes.
      niheel @ bytes

        Comment

        • nikou_70
          New Member
          • Nov 2005
          • 10
          #3
          code select

          This is my select code that shows fields in text box, I don’t know how I write Insert statement, please help me, thanks

          Code:
           --------- 
 
<%@ Language=VBScript %>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</head>
<BODY bgcolor=white>
<CENTER><strong>
<em><font color=CornflowerBlue>QUICK LOAN FUNDING</font></em></strong></CENTER><br />
<font color=CornflowerBlue><CENTER><strong><em>REPORT FORM&nbsp;&nbsp;&nbsp&nbsp;<% response.Write "(" & date() & ")" %></em></strong></CENTER><br />
<br></font>
<form action="viewprinter2.asp" method="post" id="form1" name="form1">
<% 
cs = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("printer.mdb")
set adocon = Server.CreateObject("adodb.connection")
adocon.Open cs
set rs=Adocon.Execute("select PrinterId,printerName,Floor,IpAddress,Functionality from name order by floor,PrinterId ")
if rs.eof=true and rs.bof=true then 
Response.Write "<br><b>No Records Matched.</b>"
else
numfields=rs.fields.count
Response.Write "<table bgcolor=#c1e0ff border=3 width=100% >" 
Response.Write "<tr>"
for i=0 to numfields-1
if rs(i).name="printerId" then
Response.Write "<td><font color=CornflowerBlue size=3><em><b>" & rs(i).name & "</font></b></em></td>"
else
Response.Write "<td><font color=CornflowerBlue size=3><em><b>" & rs(i).name & "</font></b></em></td>"
end if
next
Response.Write "</tr>"
rs.movefirst
do while not rs.eof
Response.Write "<tr>"
for i=0 to numfields-1
if rs(i).name="printeridid" then%>
<td bgcolor=yellow valign=top><font color=black face=arial size=2><em><b><input name=tname type=text value="<%=rs.fields(i).value%>" /> 
<% 
else%>
<td align=center><font color=#000080 face=arial size=2><em><b><input name=tname type=text value="<%=rs.fields(i).value%>" /> 
<%
end if
next
Response.Write "</tr>"
rs.movenext
loop
'******************
end if
%>
<input type="submit" value="Save" id="submit1" name="submit1" >
</body>
</html>

            Comment

            Previous template Next
            Working...