View Single Post
  #10 (permalink)  
Old 06-17-05, 04:36 AM
minority minority is offline
Wannabe Coder
 
Join Date: Jun 2005
Posts: 145
Thanks: 0
Thanked 0 Times in 0 Posts
Hey again sorry to annoy you again but i changed the sql statment as noticed it was pointing in the wrong place. But now i get an unkown error?

Code:
<%
 	 Dim strCon
 	 Dim rsGeolink
 	 Dim strSQL	
 	 Set rsGeolink = Server.CreateObject("ADODB.Recordset")
 	 strCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("qrm.mdb")
 	 strSQL = "SELECT Position_ID, Position_Name FROM Position"
 	  rsGeolink.Open strSQL, strCon
 	 Do While not rsGeolink.EOF
 %> 
  <table width ="100%">
		  	<tr>
		  		<td width = "10%"></td>	
		  		<td width = "10%"></td>
				<td width = "25%"></td>	

		  	</tr>
		  	<tr>
		  		<td width = "10%"></td>	
		  		<td width = "10%"><center><strong><a href="editjob1.asp?position_id=<%=rsgeolink("position_id")%>"><%=rsgeolink("position_name")%></a></strong></center><br><br></td>
				<td width = "25%"> </td>	
		  	</tr>
		  </table>
		    
<%
 	rsGeolink.MoveNext
 	Loop
 	rsGeolink.Close
	Set rsGeolink = Nothing
 	%>
the error i am now getting is
Error Type:
(0x80004005)
Unspecified error
/IIShelp/geolink/Admin/editjob.asp, line 200

Is this due to the connection to the server not being cut off as i do not have the file open?

Also how do you get it to connect to a source other than the directory path as i want it to sit within the database folder and the rest of the code in different folders?

Sorry about all the questions but first time i have used Access for my database.
Reply With Quote