Header Error , - Microsoft IIS Web Server and ASP.NET forum at WebmasterWorld - WebmasterWorld

Forum Moderators: open

Message Too Old, No Replies

Header Error ,

What the heck is this?

vanjamier

1:23 am on Dec 24, 2004 (gmt 0)

10+ Year Member

I have this error message ..

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

defanjos

2:14 am on Dec 24, 2004 (gmt 0)

WebmasterWorld Senior Member

10+ Year Member

Add the following at the top of your asp code:

Response.Buffer = True

Read about your error here [adopenstatic.com]

vanjamier

2:16 am on Dec 24, 2004 (gmt 0)

10+ Year Member

i actually have tht line in my codes already ..
But the problem persists..?

defanjos

2:25 am on Dec 24, 2004 (gmt 0)

WebmasterWorld Senior Member

10+ Year Member

A tip for you, when you have an error that you don't know what it is, try to search on Google (or any other SE) for it. For example, on this case, enter "The HTTP headers are already written to the client browser" - you will get lots of help.

Are you sure you have "Response.Buffer = True" at the top of this page?

vanjamier

2:51 am on Dec 24, 2004 (gmt 0)

10+ Year Member

Yeah man.. i already have ..

<%@LANGUAGE="VBSCRIPT"%>
<% Response.Buffer = True %>

defanjos

3:17 am on Dec 24, 2004 (gmt 0)

WebmasterWorld Senior Member

10+ Year Member

What is the entire code of the page?
If it is not huge, go ahead and paste it here, if it is, sticky mail it to me.

vanjamier

5:25 am on Dec 24, 2004 (gmt 0)

10+ Year Member

<%@LANGUAGE="VBSCRIPT"%>
<% 'Response.Buffer = True %>

<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"
%>

<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>

</BODY>
</HTML>

GaryK

5:34 am on Dec 24, 2004 (gmt 0)

WebmasterWorld Senior Member

10+ Year Member

Response.Redirect("updated.htm")

You're attempting to do a redirect after you've already output some HTML. You can't do that. Trying to do that is what causes the type of error you're seeing. ;)