Forum Moderators: open
<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