Solved

HTTP 500 error

Posted on 2011-03-22
4
316 Views
Last Modified: 2012-05-11
I have an asp page that I am connecting to an excel spreadsheet to try to allow folks to update some cells withihin this sheet without having to let them open the actual excel sheet. Everytime I try to navigate to the page it gives me the http: 500 error. I have pasted the asp code below.
<%@ Language=VBScript %>
<!--#include file="../includes/adovbs.inc"-->
<!--#include file="../script/ServerFunction.inc"-->
<!--#include file="Tools/userinfo.inc"-->

<%
		Session("Category") = Request("Category")
		Session("Year") = Request("Year")
		Session("ID") = Request("ID")
		

		
		'Response.Write "servername = " & servername
	
	UID = Request.ServerVariables("LOGON_USER")
	Uname = ucase(right(UID,7))	

	vXlsFile = "\virtual\documents\energysysvc\EHS List.xls"
		

		vXlsFile = Server.Mappath(vXlsFile)

		ExcelConnString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
		"Data Source=" & chr(34) & vXlsFile & chr(34) & ";" & _
		"Extended Properties=" & chr(34) & "Excel 8.0;"& chr(34)

		'Open Database Connection
		
		Set Conn = Server.CreateObject("ADODB.Connection") 
                Conn.Open ExcelConnString 
		
	
	
		set OpRS = server.createobject("adodb.recordset")
	Name = vFullName

		
sql = "SELECT * FROM tbl4Key WHERE ID=" & Request("ID") &";"


	
		OpRS.open sql,Conn,adopenkeyset,adlockoptimistic
		
dim Site,Year,FDate,Business,Title,Category,Comments,MakeitPersonal,Askopenendedquestions,CreateaCulture,ID

'Server Side form validation to keep our database clean
FDate = OpRs("FDate")
Business = OpRs("Business")
Site = OpRs("Site")
Title = OpRs("Title")
Category = OpRs("Category")
Comments = OpRs("Comments")
MakeitPersonal = OpRs("MakeitPersonal")
Askopenendedquestions = OpRs("Askopenendedquestions")
CreateaCulture = OpRs("CreateaCulture")
Escalation = OpRs("Escalation")
ID = OpRs("ID")

if Category = "" then
error = "You have not entered a category."
Response.Write error
Response.End
end if


'If we pass through validation then store the information in the db

%>

<html>

<head>

<title></title>

</head>

<body onload="SetMenu()">

<table width="100%" cellspacing="0" cellpadding="0">
  
  <tr>
    <td><div align="left"><table border="0" cellpadding="0" cellspacing="0" width="100%">
      
      <tr>
        <td><div align="left"><table name="ContentTable" id="ContentTable" border="0" cellpadding="0" cellspacing="0" width="100%">
          <tr>
            <td name="MenuCell" id="MenuCell" valign="top" bgcolor="#dddddd">
            <!--webbot bot="Include" U-include="../includes/menu.htm" TAG="BODY" --></td>
            <td class="Content" name="ContentCell" id="ContentCell" valign="top" width="80%">
			
			<p class="BC HiddenForPrinting">&lt;&lt; <a href="../4Key/4Keymessage.htm">
            TIH Home</a><br>
<center><b>Welcome, Choose which entry to edit.</b><br>
<br>
 </center><form method="post" action="../4Key/4KeyEdithandler.asp">

            <table border="1" width="59%" id="table1">
				<tr>
					<td><b>Record ID</b><br>
<input type="text" name="ID" Value='<%=ID%>' size="22"></td>
				
				
					<td><b>Business</b><br>
<input type="text" name="Business" Value='<%=Business%>' size="22"></td>
			</tr><tr>
					<td><b>Date</b><br>
<input type="text" name="FDate" Value='<%=FDate%>' size="22"></td>	

				
					<td><b>Site:</b><br>
					<input type="text" name="Site" Value="<%=Site%>" size="22"></td>

				</tr><tr>
					<td><b>Title</b><br>
<input type="text" name="Title" Value="<%=Title%>" size="22"></td>
				

				
					<td><b>Category</b><br>
<input type="text" name="Category" Value="<%=Category%>" size="22"></td>
				</tr><tr>
					<td><b>Comments</b><br>
<input type="text" name="Comments" Value="<%=Comments%>" size="22"></td>
			
				
					<td><b>Make it Personal</b><br>
<input type="text" name="MakeitPersonal" Value="<%=MakeitPersonal%>" size="22"></td>
				</tr><tr>
					<td><b>Ask open ended questions</b><br>
<input type="text" name="Askopenendedquestions" Value="<%=Askopenendedquestions%>"size="22"></td>
				
				
					<td><b>Create a Culture</b><br>
<input type="text" name="CreateaCulture" Value="<%=CreateaCulture%>"size="22"></td>
				</tr><tr>
					<td><b>Escalation</b><br>
<input type="text" name="Escalation" Value="<%=Escalation%>"size="22"></td>

				</tr>
			</table>
			<input type="submit" value="UpDate"><input type="reset" value="Reset">
</form>
<%
'set rs=nothing
'set conn=nothing
'rs.close
'Conn.close
%>
</table>



<a href="../4key/4Keymessage.htm">Return to Main Page

</a>
</td>
          </tr>
          
        </table>
        </div></td>
      </tr>
     
    </table>
    </div></td>
  </tr>
</table>
</body>
</html>

Open in new window

0
Comment
Question by:jlcannon
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
  • 2
4 Comments
 
LVL 33

Accepted Solution

by:
Big Monty earned 500 total points
ID: 35192874
assuming you're using IE, try going to Tools-->Advanced and uncheck Show Friendly HTTP error messages. This should give you a more specific error message.
0
 

Author Comment

by:jlcannon
ID: 35193092
ahh It saying:

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/energysysvc/4key/4KeyrecEdit1.asp, line 47

but i know the record exists becasue how i get to this page is by actually clicking on the record ID from another page that is displaying the list of records and i choose the one I want to update.
0
 
LVL 33

Expert Comment

by:Big Monty
ID: 35193125
can you post the table definition for tbl4Key? also, can you response.write the sql after you build it and make sure its what you expect it to be, with the correct id and all?
0
 

Author Closing Comment

by:jlcannon
ID: 35193349
excellent, once I did this and actually got the error I was able to troubleshoot it and see a typo. I knew this code worked as I have another page, connecting to access, using the same code.
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction During my participation as a VBScript contributor at Experts Exchange, one of the most common questions I come across is this: "I have a script that runs against only one computer. How can I make it run against a list of computers in …
I was asked about the differences between classic ASP and ASP.NET, so let me put them down here, for reference: Let's make the introductions... Classic ASP was launched by Microsoft in 1998 and dynamically generate web pages upon user interact…
There are cases when e.g. an IT administrator wants to have full access and view into selected mailboxes on Exchange server, directly from his own email account in Outlook or Outlook Web Access. This proves useful when for example administrator want…
If you’ve ever visited a web page and noticed a cool font that you really liked the look of, but couldn’t figure out which font it was so that you could use it for your own work, then this video is for you! In this Micro Tutorial, you'll learn yo…

688 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question