Forum Moderators: open
The HTTP headers are already written to the client browser. Any HTTP header modifications must be made before writing page content.
[code]
<form name="form1" action="" method="post">
</CENTER>
<%
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")
If Request.Form("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>"
'Response.Write "<br>"
'Response.Write "<A href=""license_list.asp"">Click here to continue</A>"
Response.Redirect("updated.htm")
End If
Can someone please suggest something,
thanks alot
Response.Buffer = True
Read about your error here [adopenstatic.com]
Are you sure you have "Response.Buffer = True" at the top of this page?
<%@LANGUAGE="VBSCRIPT"%>
<% Response.Buffer = True %>
<!--#include file="Include/connection.asp"-->
<HTML>
<HEAD>
<title>SLID - Modify </title>
<link rel="stylesheet" type="text/css" href="Styles/style.css">
<script language="javascript" src="Scripts\date-picker.js"></script>
<script language="javascript">
function checkEmail(form1) {
//check email field
if (/^\w+([\.-]?\w+)*@\w+([\.-]?\w+)*(\.\w{2,3})+$/.test(form1.txtemail.value)){
//alert("The email is valid")
return (true)
}
alert("Invalid E-mail Address! No spaces allowed! Please re-enter.")
return (false)
}
</script>
</HEAD>
<BODY>
<%
SubTitle = "Modify Licenses"
%>
<!--#include file="main_head.asp"-->
<form name="form1" action="" method="post" LANGUAGE=javascript onsubmit="return form1_onsubmit()">
</CENTER>
<%
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")
If Request.Form("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>"
'Response.Write "<br>"
'Response.Write "<A href=""license_list.asp"">Click here to continue.."
Response.Buffer = True
Response.Clear
Response.Redirect("updated.htm")
Response.End
End If
%>
<br><br>
<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>
<tr>
<td>Software Version:</td>
<td><input type="text" name="txtswver" value="<%=rs("SwVersion")%>" size="30"></td>
</tr>
<tr>
<td>Software Company:</td>
<td><input type="text" name="txtcom" value="<%=rs("SwCompany")%>" size="30"></td>
</tr>
<tr>
<td># of License</td>
<td><input type="text" name="txtnum" value="<%=rs("LicenseAmount")%>" size="30" onKeypress="if (event.keyCode< 46 ¦¦ event.keyCode > 57) event.returnValue = false;"></td>
</tr>
<tr>
<td>License Serial:</td>
<td><input type="text" name="txtserial" value="<%=rs("LicenseNumber")%>" size="30"></td>
</tr>
<tr>
<td>License Date:</td>
<td><input type="text" name="txtdate" value="<%=rs("LicenseDate")%>" size="27" onKeypress="if (event.keyCode< 47 ¦¦ event.keyCode > 57) event.returnValue = false;" maxLength="10">
<A onmouseover= "window.status = 'Date Picker';return true;" onmouseout="window.status='';return true;" href="javascript:show_calendar('form1.txtdate');" >
<IMG id=IMG1 style="WIDTH: 11px; HEIGHT: 12px" height=22 src="Images\cal.gif" width=20 border=0></A>
</td>
</tr>
<tr>
<td>License valid till:</td>
<td><input type="text" name="txtldate" value="<%=rs("LicenseEndDate")%>" size="27" onKeypress="if (event.keyCode< 47 ¦¦ event.keyCode > 57) event.returnValue = false;" maxLength="10">
<A onmouseover= "window.status = 'Date Picker';return true;" onmouseout="window.status='';return true;" href="javascript:show_calendar('form1.txtldate');" >
<IMG id=IMG1 style="WIDTH: 11px; HEIGHT: 12px" height=22 src="Images\cal.gif" width=20 border=0></A>
</td>
</tr>
<%
count = Cint(Count)+1
rs.MoveNext
loop
%>
</CENTER>
</TABLE>
<%'rs.Close
'Set rs = Nothing %>
<%End if%>
<center><p>
<INPUT type="submit" value="Update" name="btnEdit"></p></center>
</form>
<!--#include file="main_foot.asp"-->
</BODY>
</HTML>
Response.Redirect("updated.htm")
