Forum Moderators: open

Message Too Old, No Replies

Update btn dun work..

help pls?

         

vanjamier

1:54 am on Dec 22, 2004 (gmt 0)

10+ Year Member



This is my modify page.
I want to perform the update in another asp page.
But the update btn doesnt perform...

<form name="form1" action="updated.asp" method="post" onSubmit="return checkEmail(this)">
<%
on error goto 0
Set rs = Server.CreateObject("ADODB.RecordSet")

'QueryStrings
strId = Request.QueryString("ID")

'get the selected software info
sqlstr = "SELECT " & _
" Filename,Filesize,FileType,SwName,SwVersion,SwCompany,LicenseNumber" & _
" ,LicenseDate,LicenseEndDate,LicenseAmount,siasid,Ownername,Owneremail" & _
" from LicenseTab where id = '" & strID & "' "

rs.Open sqlstr, connStr

owname = Request.Form("txtname")
owemail = Request.Form("txtemail")
softname = Request.Form("txtswname")
softver = Request.Form("txtswver")
company = Request.Form("txtcom")
number = Request.Form("txtnum")
serial = Request.Form("txtserial")
date1 = Request.Form("txtdate")
date2 = Request.Form("txtldate")

'Response.Write Request.Form
'Response.End
%>
<TABLE align=center BORDER=0 CELLSPACING=2 CELLPADDING=1>

<%
If rs.BOF = TRUE and rs.EOF = TRUE then
response.write("No such software is available...")
Else
do while rs.EOF = false
%>
<tr><td colspan=2 align=middle><b>Software Details</b></td></tr>
<tr>
<td>Software Owner:</td>
<td><input type="text" name="txtname" value="<%=rs("Ownername")%>" size="30"></td>
</tr>
<tr>
<td>Software Email:</td>
<td><input type="text" name="txtemail" value="<%=rs("Owneremail")%>" size="30"></td>
</tr>
<tr>
<td>Software Name:</td>
<td><input type="text" name="txtswname" value="<%=rs("SwName")%>" size="30"></td>
</tr>
<%
count = Cint(Count)+1
rs.MoveNext
loop
%>
</CENTER>
</TABLE>
<%rs.Close
Set rs = Nothing %>
<%End if%>
</form>
<INPUT type="submit" value="Update" name="btnEdit"></p></center>
</HTML>

This is my updated page...


<%
If Request.querystring("btnEdit") = "Update" Then
Set rs2 = Server.CreateObject("ADODB.RecordSet")

'update record
sqlstr2 = "Update LicenseTab set" _
& " Ownername = '" & owname & "', " _
& " Owneremail = '" & owemail & "', " _
& " SwName = '" & softname & "', " _
& " SwVersion = '" & softver & "', " _
& " SwCompany = '" & company & "', " _
& " LicenseAmount = '" & number & "', " _
& " LicenseNumber = '" & serial & "', " _
& " LicenseDate = '" & date1 & "', " _
& " LicenseEndDate = '" & date2 & "' " _
& " Where id = '" & strID & "'"

rs2.Open sqlstr2, connStr

Response.Write "<font color=""green"">Data was successfully uploaded..."
Response.Write "</font>"

End If
%>

When i click on the update button, nothing happens...
Dun understand why.. can someone explain?
Thanks

defanjos

3:26 am on Dec 22, 2004 (gmt 0)

WebmasterWorld Senior Member 10+ Year Member



Your submit button is outside the form.

For example:

This is wrong:
<form>
</form>
<INPUT type="submit" value="Update" name="btnEdit">

This is correct:

<form>
<INPUT type="submit" value="Update" name="btnEdit">
</form>

vanjamier

3:34 am on Dec 22, 2004 (gmt 0)

10+ Year Member



Hello, i brought the submit btn inside the form, thanks
it was careless...
But now..the update function doesnt work.
Upon click to update..im directed to a blank page

defanjos

3:59 am on Dec 22, 2004 (gmt 0)

WebmasterWorld Senior Member 10+ Year Member



Hello,

There are a few problems with your pages, but before I need to now why you are trying to update so many fields, and only requesting 3 inputs on the form?

Are "Software Owner", "Software Email" and "Software Name" the only values you want to update?

vanjamier

4:58 am on Dec 22, 2004 (gmt 0)

10+ Year Member



oh i just wanted to cut down the on the copy and paste..so that the submission wouldnt be so messy.