ASP code error, Invalid use of Null.

phill · 4 May 2007 at 10:01

Hi All, getting Invalid use of Null error from the following...



<%
' Procedure
' FileList of current directory settings
sub FileDirList
if showdebug <> "" then
Response.Write "MyDirectory=" & MyDirectory & " "
Response.Write "ScriptName=" & ScriptName & " "
Response.Write "ServerName=" & ServerName & " "
Response.Write "ServerPath=" & ServerPath & " "
Response.Write "VPathDir=" & VPathDir & " "
Response.Write "VPathDirForward=" & VPathDirForward & " "
end if

if Expanded <> "yes" then
Response.Write "<a href=" & ScriptName & "?Expanded=yes>Expand details</a> "
else
Response.Write "<a href=" & ScriptName & "?Expanded=no>Hide details</a> "
end if

' Do the current directory
GenDirList("")

dim fso, folder, folders

'create a folder object
set fso=Server.CreateObject("Scripting.FileSystemObject")
set folder=fso.GetFolder(Server.MapPath("."))
set folders=folder.subfolders

' Go through the list of folders
if folders.count>0 then
for each subfolder in folders
GenDirList(subfolder.name)
next
end if
end sub

' Procedure
' GenDirList <DirectoryName>
sub GenDirList (DirectoryName)
on error resume next
dim strQuery

strQuery = "( (#filename *.zip) OR (#filename *.doc) OR (#filename *.xls) OR (#filename *.ppt) OR (#filename *.pdf) OR (#filename *.jpg) OR (#filename *.ai) OR (#filename *.eps) OR (#filename *.gif) ) " &_
"AND (#vpath " & VPathDir & "*) AND ( @write > -720d )"

if UserSearch <> "" then
strQuery = "(" & strQuery & ") AND ( " & UserSearch & " )"
end if

if showdebug <> "" then
Response.Write "DirectoryName=" & DirectoryName & " "
Response.Write "UserSearch=" & UserSearch & " "
Response.Write "CompandSearch=" & strQuery & " "
end if

dim ixQuery ' Index Server query object.
set ixQuery = Server.CreateObject("ixsso.Query")
if (Err.description <> "") Then
Response.Write ("Query object Error: " & Err.description & "." & vbCRLF)
Exit sub
end if

ixQuery.Columns = "doctitle, docsubject, docauthor, doccompany, doccomments, vpath, directory, filename, size, write, characterization, rank"
ixQuery.SortBy = "directory, docsubject, filename"
ixQuery.MaxRecords = 200
ixQuery.Query = strQuery
ixQuery.Catalog = "DCG Internal"

' Create a search utility object to allow us to specify the search type as 'deep',
' meaning it will search recursively down through the directories
dim util
set util = Server.CreateObject("ixsso.Util")

if (Err.description <> "") Then
Response.Write ("Search Utility Error: " & Err.description & "." & vbCRLF)
Exit sub
end if

util.AddScopeToQuery ixQuery, VPathdirForward & "/" & DirectoryName, "shallow"
' util.AddScopeToQuery ixQuery, VPathdirForward & "/" & DirectoryName, "deep"

' Run the query (i.e. create the recordset).
dim queryRS
set queryRS = ixQuery.CreateRecordSet("nonsequential")

' Check the query result. If it timed out or return no records, then show
' an appropriate message. Otherwise, show the hits.
if (Err.description <> "") Then
Response.Write ("Search Recordset Error: " & Err.description & "." & vbCRLF)
Exit sub
Else
if queryRS is Nothing Then
Response.Write ("Query returned no matches." & vbCRLF)
elseif (ixQuery.QueryTimedOut) then
Response.Write ("Error: " & timedOut_Text & "." & vbCRLF)
elseif (queryRS.EOF or queryRS.BOF or queryRS.RecordCount <= 0) then
' Response.Write ("No matches found." & vbCRLF)
' Empty directory or catalogue hasn't caught up yet
else
' Only print the directory name IF there some matches to show
if ( DirectoryName <> "" ) Then
if ( false ) Then
' If FileList.asp is available in the directory provide a link
Response.Write ("<a href=" & DirectoryName & "/FileList.asp>"& DirectoryName & "</a>" & vbCRLF)
else
Response.Write (""& DirectoryName & "" & vbCRLF)
end if
end if
call showHits(queryRS, Expanded)
if (Err.number <> 0) Then
Response.Write ("Record Display Error: " & Err.description & "." & vbCRLF)
End If
end if
End If

queryRS.close

' Clean up
set queryRS = nothing
set ixQuery = nothing
set util = nothing
end sub

' Generate Audit List
sub AuditList
on error resume next
dim strQuery

if showdebug <> "" then
Response.Write "MyDirectory=" & MyDirectory & " "
Response.Write "ScriptName=" & ScriptName & " "
Response.Write "ServerName=" & ServerName & " "
Response.Write "ServerPath=" & ServerPath & " "
Response.Write "VPathDir=" & VPathDir & " "
Response.Write "VPathDirForward=" & VPathDirForward & " "
end if

strQuery = "( (#filename *.pdf) OR (#filename *.asp) OR (#filename *.htm) OR (#filename *.zip) OR (#filename *.doc) OR (#filename *.xls) OR (#filename *.ppt) ) " &_
"AND (#vpath " & VPathDir & "*) AND ( @write > -720d )"

if UserSearch <> "" then
strQuery = "(" & strQuery & ") AND ( " & UserSearch & " )"
end if

if showdebug <> "" then
Response.Write "UserSearch=" & UserSearch & " "
Response.Write "CompandSearch=" & strQuery & " "
end if

dim ixQuery ' Index Server query object.
set ixQuery = Server.CreateObject("ixsso.Query")
if (Err.description <> "") Then
Response.Write ("Query object Error: " & Err.description & "." & vbCRLF)
Exit sub
end if

ixQuery.Columns = "doctitle, docsubject, docauthor, doccompany, doccomments, vpath, directory, filename, size, write, characterization, rank"
ixQuery.SortBy = "directory, docsubject, filename"
ixQuery.MaxRecords = 250
ixQuery.Query = strQuery
ixQuery.Catalog = "DCG Internal"

' Create a search utility object to allow us to specify the search type as 'deep',
' meaning it will search recursively down through the directories
dim util
set util = Server.CreateObject("ixsso.Util")

if (Err.description <> "") Then
Response.Write ("Search Utility Error: " & Err.description & "." & vbCRLF)
Exit sub
end if

util.AddScopeToQuery ixQuery, VPathDirForward & "/" , "deep"

' Run the query (i.e. create the recordset).
dim queryRS
set queryRS = ixQuery.CreateRecordSet("nonsequential")

' Check the query result. If it timed out or return no records, then show
' an appropriate message. Otherwise, show the hits.
if (Err.description <> "") Then
Response.Write ("Search Recordset Error: " & Err.description & "." & vbCRLF)
Exit sub
Else
if queryRS is "" Then
Response.Write ("Query returned no matches." & vbCRLF)
elseif (ixQuery.QueryTimedOut) then
Response.Write ("Error: " & timedOut_Text & "." & vbCRLF)
elseif (queryRS.EOF or queryRS.BOF or queryRS.RecordCount <= 0) then
' Response.Write ("No matches found." & vbCRLF)
' Empty directory or catalogue hasn't caught up yet
else
call showAuditHits(queryRS)
if (Err.number <> 0) Then
Response.Write ("Record Display Error: " & Err.description & "." & vbCRLF)
End If
end if
End If

queryRS.close

' Clean up
set queryRS = nothing
set ixQuery = nothing
set util = nothing
end sub
%>

heeelp

phill · 4 May 2007 at 10:17

I didn't create the site, I have to move it from an IIS5.0 server to a box running 6.0...... it all works fine except when it lists file i get the error below. No idea where to start!

Thanks!

phill · 4 May 2007 at 10:30

Dr_Evil said:
1. Try ASP server-side debugging.
2. add the parameter &showdebug=true to the querystring

1. = done
2. = where does this go

thanks

phill · 4 May 2007 at 10:36

Same result, page is displayed, with Record Display Error: Invalid use of Null. at the bottom of the files displayed. :/

phill · 4 May 2007 at 10:46

Yeah pretty sure the error is coming from showhits.inc, any way of telling which part of it?

phill · 4 May 2007 at 10:50

I don't have any coding or programming experience unfortunately. Is it easy to run a debug on a particular page?

thanks

phill · 4 May 2007 at 10:58

Strange thing is this site works perfectly on the old server with IIS 5. :<

phill · 4 May 2007 at 11:34

where r these catalogs stored?
thanks