<div>
How much hard drive space do you have available? 
 
Just to clean up your code a little bit, do this: 
&lt;% 
QueryData= &quot;SELECT * FROM WL_district where busno = &quot;&nbsp;&amp; varbus 
Set SQL_WKD = Server.CreateObject(&quot;ADODB.RecordSet&quot;) 
&nbsp; &nbsp; &nbsp; SQL_WKD.Open &nbsp;QueryData, MyConnect 
 
while not SQL_WKD 
%&gt; 
&lt;% =SQL_WKD(&quot;div_desc&quot;)%&gt;&amp;nbsp; 
&lt;% 
&nbsp; &nbsp; SQL_WKD.movenext &nbsp; 
wend 
%&gt; 

</div>

How much hard drive space do you have available?

Just to clean up your code a little bit, do this:
<%
QueryData= "SELECT * FROM WL_district where busno = " & varbus
Set SQL_WKD = Server.CreateObject("ADODB.RecordSet")
      SQL_WKD.Open  QueryData, MyConnect

while not SQL_WKD
%>
<% =SQL_WKD("div_desc")%>&nbsp;
<%
    SQL_WKD.movenext  
wend
%>

<div>
I know it's a longshot, but you're probably low on hard drive space.
</div>

I know it's a longshot, but you're probably low on hard drive space.

<div>
<div class="content wysiwyg-content">
I received the following error: 
 
Microsoft OLE DB Provider for ODBC Drivers error '80004005' 
 
[Microsoft][ODBC Microsoft Access Driver] Not enough space on disk. 
 
/BizNet_GDOT/profile.asp, line 279 
 
And this is the the code from the area of error: 
 
&lt;% 
QueryData= &quot;SELECT * FROM WL_district where busno = &quot;&nbsp;&amp; varbus 
Set SQL_WKD = Server.CreateObject(&quot;ADODB.RecordSet&quot;) 
&nbsp; &nbsp; &nbsp; SQL_WKD.Open &nbsp;QueryData, MyConnect 
 
IF SQL_WKD.EOF &nbsp;Then 
Else 
do until SQL_WKD.EOF 
%&gt; 
&lt;% =SQL_WKD(&quot;div_desc&quot;)%&gt;&amp;nbsp; 
&lt;%SQL_WKD.MoveNext 
&nbsp; &nbsp; &nbsp; loop %&gt; 
&lt;% End If %&gt; 
 
Please let me know the resolution. &nbsp;Thank you.
</div>
</div>

I received the following error:

Microsoft OLE DB Provider for ODBC Drivers error '80004005' 

[Microsoft][ODBC Microsoft Access Driver] Not enough space on disk. 

/BizNet_GDOT/profile.asp, line 279 

And this is the the code from the area of error:

<%
QueryData= "SELECT * FROM WL_district where busno = " & varbus 
Set SQL_WKD = Server.CreateObject("ADODB.RecordSet")
 SQL_WKD.Open QueryData, MyConnect

IF SQL_WKD.EOF Then 
Else
do until SQL_WKD.EOF 
%>
<% =SQL_WKD("div_desc")%>&nbsp;
<%SQL_WKD.MoveNext
 loop %>
<% End If %>

Please let me know the resolution. Thank you.

Microsoft OLE DB Provider for ODBC Drivers error '80004005' Not enough space on disk.

Active Server Pages (ASP) is Microsoft’s first server-side engine for dynamic web pages. ASP’s support of the Component Object Model (COM) enables it to access and use compiled libraries such as DLLs. It has been superseded by ASP.NET, but will be supported by Internet Information Services (IIS) through at least 2022.