Re: radio button ASP question??

•

•

•

•

What is DaniWeb IT Discussion Community?

You're currently browsing the ASP section within the Web Development category of DaniWeb, a massive community of 403,115 software developers, web developers, Internet marketers, and tech gurus who are all enthusiastic about making contacts, networking, and learning from each other. In fact, there are 3,385 IT professionals currently interacting right now! Registration is free, only takes a minute and lets you enjoy all of the interactive features of the site.

Join our community!

Please support our ASP advertiser: Lunarpages ASP Web Hosting

radio button ASP question??

•

•

Join Date: Jun 2005

Location: California

Posts: 92

Reputation: djbsabkcb is an unknown quantity at this point

djbsabkcb is an unknown quantity at this point

Rep Power: 4

Solved Threads: 0

djbsabkcb is offline

Offline

Junior Poster in Training

Re: radio button ASP question??

#27

Aug 25th, 2005

I created a new table in access and stored the file eLMSTable in the inetpub/wwwroot folder (inetpub/wwwroot/eLMSTable) and this is the error message I am receiving now. Doesn't seem like I have a connection error but a problem accessing the table. Not sure.

This is the error message.

Help with Code Tags

(Toggle Plain Text)

HTTP 500.100 - Internal Server Error - ASP error
Internet Information Services

--------------------------------------------------------------------------------

Technical Information (for support personnel)

Error Type:
Microsoft JET Database Engine (0x80040E37)
Could not find output table 'eLMS'.
/eLMS/processform.asp, line 83


Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) 

Page:
POST 123 bytes to /eLMS/processform.asp

POST Data:
reason=Course+progress+is+not+being+saved&response=1+business+day&resolved=No&rate=Satisfied&comments=gbdfbgf&action=SUBMIT 

Time:
Thursday, August 25, 2005, 4:28:28 PM 


More information:
Microsoft Support

This is the asp code here:

Help with Code Tags

(Toggle Plain Text)



			
	
				
		
<html>
<head>

<body>
<title>
  eLMS Feedback Form Process
</title>



<body bgcolor = "white">

<hr>
<h1>
eLMS Survey
</h1>

<blockquote>

	<b>  Reason for contacting:</b> <%=Request.Form("reason")%> <br><br>


 		
	
 	<b>  Response Time:</b> <%=Request.Form("response")%> <br><br>

		


	<b>  Issue Resolved:</b> <%=Request.Form("resolved")%> <br><br>

		

	<b>  Rate Service:</b> <%=Request.Form("rate")%> <br><br>

		
	

	<b>  Comments: </b>  <%=Request.Form("comments")%> <br><br><br>

</blockquote>



<!-- The following code writes data to the Microsoft Access database -->
<%

	<!--DIMENSION VARIABLES-->
	Dim adoCon		<!-- HOLDS THE DATABASE CONNECTION OBJECT-->     
	Dim strSQL		<!-- HOLDS THE SQL QUERY FOR THE DATABASE-->



	Set adoCon  = Server.CreateObject("ADODB.Connection")


	<!-- SET AN ACTIVE CONNECTION TO THE CONNECTION OBJECT-->

			adoCon.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("eLMSTable.mdb")

		 <!-- 	adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\eLMS Table 1\eLMS Database Table" & Server.MapPath("eLMS Table 1\eLMS Database Table.mdb") -->



	<!--the "blank" data value ( '' ) is intented for an "auto value" field like and id auto increment column.-->
	<!--Using this method the number of values in the strSQL string must be the same as the number of columns in the table.-->
	<!--Initialize the strSQL variable with an SQL statement to query the database-->
	
		strSQL = "INSERT INTO eLMS VALUES('', '" & Request.Form("reason") & "', '" & Request.Form("response") & "', '" & Request.Form("resolved") & "', '" & Request.Form("rate") & "', '" & Request.Form("comments") & "');"




	
	<!--insert new data into table--> 
	
		adoCon.Execute strSQL


	<!--Reset server objects-->

		Set adoCon = Nothing


	<!--Redirect to some page -->
		
		Response.Redirect " thanks.htm"


%>
 <!--The end of the code for writing to the Microsoft Access Database-->


<!--The following code is for reading data from the Microsoft Access Database file-->
<%		


	<!--Dimension variables-->

		Dim rsData		<!--Holds the recordset for the new record to be added to the database-->
		


		Set adoCon = Server.CreateObject("ADODB.Connection")

	
	<!--Set an active connection to the Connection object-->

		adoCon.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("eLMSTable.mdb")

		<!-- adoCon.Open " PROVIDER=MICROSOFT.Jet.OLEDB.4.0;DATA SOURCE=C:\eLMS Table 1" & Server.MapPath("eLMS Table 1\eLMS Database Table.mdb") -->


	<!--Create an ADO recordset object-->

		Set rsData = Server.CreateObject("ADODB.Recordset")


	<!-- Initialize the strSQL variable with an SQL statement to query the database-->

		strSQL = "SELECT * FROM BloomerDatabase; "  <!-- Name of the system ODBC that I created -->


	<!-- Open the table using the SQL query held in the strSQL variable-->

		rsData.Open strSQL, adoCon


	 <!-- Loop through recordset lines-->

		Do While Not rsData.EOF

		
	 <!--Output-->

		Response.Write rsData("reason") & " - " & rsData("response") & " - " & rsData("resolved") & " - " & rsData("rate") & " - " & rsData("comments") & "<BR>"


	 <!-- Move to next record-->

		rsData.MoveNext	

		
		Loop


	 <!--Reset server objects-->

		rsData.Close
	
		Set rsData = Nothing
		Set adoCon = Nothing

%> 
 <!-- End of code for reading from Microsoft Access Database Table -->
	 
	
	


	

</body>
</html>

</head>



			
	
				
		
<html>
<head>

<body>
<title>
  eLMS Feedback Form Process
</title>



<body bgcolor = "white">

<hr>
<h1>
eLMS Survey
</h1>

<blockquote>

	<b>  Reason for contacting:</b> <%=Request.Form("reason")%> <br><br>


 		
	
 	<b>  Response Time:</b> <%=Request.Form("response")%> <br><br>

		


	<b>  Issue Resolved:</b> <%=Request.Form("resolved")%> <br><br>

		

	<b>  Rate Service:</b> <%=Request.Form("rate")%> <br><br>

		
	

	<b>  Comments: </b>  <%=Request.Form("comments")%> <br><br><br>

</blockquote>



<!-- The following code writes data to the Microsoft Access database -->
<%

	<!--DIMENSION VARIABLES-->
	Dim adoCon		<!-- HOLDS THE DATABASE CONNECTION OBJECT-->     
	Dim strSQL		<!-- HOLDS THE SQL QUERY FOR THE DATABASE-->



	Set adoCon  = Server.CreateObject("ADODB.Connection")


	<!-- SET AN ACTIVE CONNECTION TO THE CONNECTION OBJECT-->

			adoCon.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("eLMSTable.mdb")

		 <!-- 	adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\eLMS Table 1\eLMS Database Table" & Server.MapPath("eLMS Table 1\eLMS Database Table.mdb") -->



	<!--the "blank" data value ( '' ) is intented for an "auto value" field like and id auto increment column.-->
	<!--Using this method the number of values in the strSQL string must be the same as the number of columns in the table.-->
	<!--Initialize the strSQL variable with an SQL statement to query the database-->
	
		strSQL = "INSERT INTO eLMS VALUES('', '" & Request.Form("reason") & "', '" & Request.Form("response") & "', '" & Request.Form("resolved") & "', '" & Request.Form("rate") & "', '" & Request.Form("comments") & "');"




	
	<!--insert new data into table--> 
	
		adoCon.Execute strSQL


	<!--Reset server objects-->

		Set adoCon = Nothing


	<!--Redirect to some page -->
		
		Response.Redirect " thanks.htm"


%>
 <!--The end of the code for writing to the Microsoft Access Database-->


<!--The following code is for reading data from the Microsoft Access Database file-->
<%		


	<!--Dimension variables-->

		Dim rsData		<!--Holds the recordset for the new record to be added to the database-->
		


		Set adoCon = Server.CreateObject("ADODB.Connection")

	
	<!--Set an active connection to the Connection object-->

		adoCon.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("eLMSTable.mdb")

		<!-- adoCon.Open " PROVIDER=MICROSOFT.Jet.OLEDB.4.0;DATA SOURCE=C:\eLMS Table 1" & Server.MapPath("eLMS Table 1\eLMS Database Table.mdb") -->


	<!--Create an ADO recordset object-->

		Set rsData = Server.CreateObject("ADODB.Recordset")


	<!-- Initialize the strSQL variable with an SQL statement to query the database-->

		strSQL = "SELECT * FROM BloomerDatabase; "  <!-- Name of the system ODBC that I created -->


	<!-- Open the table using the SQL query held in the strSQL variable-->

		rsData.Open strSQL, adoCon


	 <!-- Loop through recordset lines-->

		Do While Not rsData.EOF

		
	 <!--Output-->

		Response.Write rsData("reason") & " - " & rsData("response") & " - " & rsData("resolved") & " - " & rsData("rate") & " - " & rsData("comments") & "<BR>"


	 <!-- Move to next record-->

		rsData.MoveNext	

		
		Loop


	 <!--Reset server objects-->

		rsData.Close
	
		Set rsData = Nothing
		Set adoCon = Nothing

%> 
 <!-- End of code for reading from Microsoft Access Database Table -->
	 
	
	


	

</body>
</html>

</head>

Reply With Quote

Forum Highlights

ASP Forum
Today's Posts
Unanswered Threads

Related Features

DANIWEB FEATURE INDEX

Advertisement

Statistics

Members: 403,115

Users Online Now: 3,385

Active IRC Users: 23

Forum Threads: 130,839

Forum Posts: 669,316

Code Snippets: 889

Blogs: 147

Blog Entries: 2,154

Directory Links: 570