devilpace

Basically I hv to update the database table.. by clicking the hyperlink textboxes should appear n on tht we edit n then update the table.... when i m clicking the hyperlink textboxes are coming but in that the values of databases are not coming.. plz help quick response will be appreciated. here is my code

<%@ LANGUAGE=VBSCRIPT %>
<!-- #INCLUDE FILE="include/Connection.asp" -->



<script language="javascript">

function up(row)
{

document.getElementById('tbl').rows[row].innerHTML=document.getElementById('tblup').rows[0].innerHTML;

}

function dosubmit(itm){
frmInfo.opr.value = itm
frmInfo.submit();
}

function getID(itm, str){
frmInfo.msno.value = itm

dosubmit(str);
}
</script>

<%

dim rs

response.write(request.form)
response.write(request.querystring)

opr = request.form("opr")

if isempty(request.form("opr")) = true then
opr = "list"
end if


%>




<form name="frmInfo" method="post">



<!-- ...........................................Save Update............................................ ....... -->
<%
if opr = "saveupdate" then


Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "Select * from Info where sno = " & request.form("txtSno1"), strConn, 1, 3


'rs.fields("sno") = request.form("txtSno")
rs.fields("sname") = request.form("txtSname1")
rs.fields("address") = request.form("txtAddress1")
rs.update

'opr = "list"
response.redirect("assignment.asp")
%>

<!-- ...........................................Save Update............................................ ....... -->

<%end if%>



<!-- ...........................................Delete. .................................................. -->
<%
if opr = "delete" then


set sno = request.form("sno")

dim str

for cnt = 1 to sno.count
str = str & sno(cnt)&", "
next
str = left(str, len(str)-2)

'response.write(str)
'response.write("Delete from Info Where sno IN(" & str & ")")


set rs = server.createobject("ADODB.Recordset")
rs.Open "Delete from Info Where sno IN(" & str & ")", strConn, 1, 3

opr = "list"

%>

<!-- ...........................................Delete. .................................................. -->

<%end if%>

<!-- ...........................................Save... ................................................ -->
<%
if opr = "add" then


Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "Select * from Info", strConn, 1, 3

rs.AddNew
rs.fields("sno") = request.form("txtSno")
rs.fields("sname") = request.form("txtSname")
rs.fields("address") = request.form("txtAddress")
rs.update

opr = "list"

%>

<!-- ...........................................Save... ................................................ -->

<%end if%>





<!-- ...........................................List... ................................................ -->
<%
if opr = "list" then

Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "Select * from Info order by sno", strConn
'response.write(request.form("msno"))
'response.write(request.form("sno"))

%>
<table id="tbl" border="0" width="100%">
<%
dim x
x=0

While not rs.EOF
response.flush

%>

<%
'm=request.form("msno")
'response.write(m)
'mm=cint(m)
'response.write(mm)
'abc=rs.fields("sno")
'response.write(abc)
'x=cint(rs.fields("sno"))
'response.write(x)
%>
<!--
<tr>
<td>&nbsp;</td>
<td><input type="text" name="txtsno1" id="txtsno1" value="<%=rs.fields("sno")%>" readonly></td>
<td><input type="text" name="txtsname1" id="txtsname1" value="<%=rs.fields("sname")%>"></td>
<td><input type="text" name="txtaddress1" id="txtaddress1" value="<%=rs.fields("address")%>"></td>
<td><input type="button" value="update" onclick="dosubmit('saveupdate')"><td>
</tr>


-->

<tr>
<td><input type="checkbox" name="sno" value="<%=rs.fields("sno")%>"></td>
<td><%=rs.fields("sno")%></td>
<td><a href="#" onclick="up(<%=x%>)"><%=rs.fields("sname")%></a></td>
<td><%=rs.fields("address")%></td>
</tr>

<%
x=x+1
rs.MoveNext
Wend
%>



<tr>
<td><input type="button" value="Del" onclick="dosubmit('delete')"></td>
<td><input type="text" name="txtsno" id="txtsno"></td>
<td><input type="text" name="txtsname" id="txtsname"></td>
<td><input type="text" name="txtaddress" id="txtaddress"></td>
<td><input type="button" value="Add" onclick="dosubmit('add')"></td></tr>
</table>
<!-- ...........................................List... ................................................ -->



<%end if%>

<!-- ...........................................Add Form.............................................. ..... -->




<!-- ...........................................Add Form.............................................. ..... -->



<br>
<input type="hidden" name="msno" id="msno"><br>
<input type="hidden" name="opr" id="opr"><br>
<table id="tblup" width="0%">

<tr>
<td>&nbsp;</td>
<td><input type="text" name="txtsno1" id="txtsno1" value="" readonly></td>
<td><input type="text" name="txtsname1" id="txtsname1" value=""></td>
<td><input type="text" name="txtaddress1" id="txtaddress1" value=""></td>
<td><input type="button" value="update" onclick="dosubmit('saveupdate')"><td>
</tr>

<table>


</form>