<%
function is_category()
' check if we still in the category list with this pagenr.
' otherwise we have to get the drivers in the list
dim ret
if page = "" then page = 0
Set DatabaseConnection = Server.CreateObject("ADODB.Connection")
DatabaseConnection.ConnectionString = "Provider=MSDASQL;Driver={SQL Server};Server=tlpsql1;Database=WebDB;UID=WebUser;Password=Come2MySite"
DatabaseConnection.Open
sql = "Select * From SupportFiles Where CategoryNr = '"&Page&"';"
Set Rs_File = Server.CreateObject("ADODB.Recordset")
Rs_File.Open sql, DatabaseConnection,3,3
if rs_File.eof or rs_File.bof then
ret = true
Else
ret = false
End If
rs_File.close
set DatabaseConnection = nothing
is_category = ret
end function
sub list_category
Set DatabaseConnection = Server.CreateObject("ADODB.Connection")
DatabaseConnection.ConnectionString = "Provider=MSDASQL;Driver={SQL Server};Server=tlpsql1;Database=WebDB;UID=WebUser;Password=Come2MySite"
DatabaseConnection.Open
SqlQuery = "Select * From Categorie Where SiteNr = '3' And Parent = '"&Page&"' Order By OmschrijvingExtern;"
Set RsCategory = DatabaseConnection.Execute(SqlQuery)
Do While Not RsCategory.EOF
Response.Write "
"
RsCategory.MoveNext
loop
RsCategory.close
set DatabaseConnection = nothing
end sub
sub list_files
Set DatabaseConnection = Server.CreateObject("ADODB.Connection")
DatabaseConnection.ConnectionString = "Provider=MSDASQL;Driver={SQL Server};Server=tlpsql1;Database=WebDB;UID=WebUser;Password=Come2MySite"
DatabaseConnection.Open
'response.write " sql = " & "Select * From SupportFiles Where CategoryNr = '"&Page&"' Order By FileNaam;" & "
" & vbcrlf
SqlQuery = "Select * From SupportFiles Where CategoryNr = '"&Page&"' Order By FileNaam;"
Set RsFile = DatabaseConnection.Execute(SqlQuery)
javascr_cnt = 3
rowcnt = 0
Do While Not RsFile.EOF
dr_Cat = GetCategorie(Page)
dr_filename = trim(UCase(RsFile("FileNaam")))
'dr_fileloc = "/drivers/dynalink" & right(trim(RsFile("FileLocatie")),Len(RsFile("FileLocatie"))-8)
dr_fileloc = "/support/dynalink" & right(trim(RsFile("FileLocatie")),Len(RsFile("FileLocatie"))-8)
dr_url = Http_Adres & dr_fileloc
'dr_filesize = GetFileSize(RsFile("FileLocatie"))
dr_descr = trim( RsFile("OmschrijvingNr"))
dr_date = DatumFormat("D",RsFile("Datum"))
dr_version = trim(RsFile("VersieNr"))
if dr_version = "" then dr_version = "n/a"
file_ext = right(dr_filename, len(dr_filename) - instr(1,dr_filename,"."))
if lcase(file_ext) = "exe" or lcase(file_ext) = "com" or lcase(file_ext) = "dll" or lcase(file_ext) = "zip" or lcase(file_ext) = "tar" or lcase(file_ext) = "sit" or lcase(file_ext) = "bin" or lcase(file_ext) = "dll" then
dr_target = "_self"
else
dr_target = "_blank"
end if
Response.Write "
"& vbNewLine
Response.Write ""& vbNewLine
rowcnt = rowcnt + 1
if rowcnt mod 2 = 0 then
cls_str = "filetableevenrow"
else
cls_str = "filetableoddrow"
end if
Response.Write "
"
RsFile.MoveNext
loop
rsFile.close
set DatabaseConnection = nothing
end sub
Function GetFileSize(Bestand)
Dim ObjConnection, BestandObj, hulp1
Bestand = "\\192.168.1.21\drivers\dynalink" & Right(Replace(Bestand,"/","\"),Len(Bestand)-8)
Set ObjConnection = CreateObject("Scripting.FileSystemObject")
If ObjConnection.FileExists(Bestand) Then
Set BestandObj = ObjConnection.GetFile(Bestand)
Select Case True
Case BestandObj.Size < 1000
GetFileSize=BestandObj.Size& " b"
Case BestandObj.Size < 1000000 And BestandObj.Size > 999
GetFileSize=Left(BestandObj.Size,Len(BestandObj.Size)-3)&"."&Mid(BestandObj.Size,Len(BestandObj.Size)-2,2)&" Kb"
Case BestandObj.Size < 1000000000 And BestandObj.Size> 999999
GetFileSize=Left(BestandObj.Size,Len(BestandObj.Size)-6)&"."&Mid(BestandObj.Size,Len(BestandObj.Size)-5,2)&" Mb"
End Select
Else
GetFileSize = "File not found!"
End If
End Function
Function GetCategorie(Waarde)
Dim Categorie, Hulp1, Hulp2
If Waarde <> 0 Then
Hulp1 = Waarde
Set DatabaseConnection = Server.CreateObject("ADODB.Connection")
DatabaseConnection.ConnectionString = "Provider=MSDASQL;Driver={SQL Server};Server=tlpsql1;Database=WebDB;UID=WebUser;Password=Come2MySite"
DatabaseConnection.Open
SqlQuery = "Select * From Categorie Where SiteNr = '"&Site&"' And CategorieNr = '"&Hulp1&"';"
Set RsCategory = DatabaseConnection.Execute(SqlQuery)
Categorie = Replace(RsCategory("OmschrijvingExtern")," ","")
Do While Hulp1 <> "0"
Hulp1 = RsCategory("Parent")
If Hulp1 <> 0 Then
SqlQuery = "Select * From Categorie Where SiteNr = '"&Site&"' And CategorieNr = '"&Hulp1&"';"
Set RsCategory = DatabaseConnection.Execute(SqlQuery)
Hulp2=Replace(RsCategory("OmschrijvingExtern")," ","")
If Right(Hulp2,1) = " " Then
Hulp2=Left(Hulp2,Len(Hulp2)-1)
End If
'Categorie = "" & " >> " & Categorie
Categorie = Hulp2 & " >> " & Categorie
End If
Loop
RsCategory.close
set DatabaseConnection = nothing
End If
GetCategorie = Categorie
End Function
%>
