| Announcement: |
Windows XP drivers are available for most products. iIf there are no Windows XP drivers available, Windows 2000 drivers can be used.
|
<%
if is_category() = true then
%>
| Category: |
<%if Request.QueryString("fp") <> "1" then %>
Terug
<%else%>
Terug
<%end if%>
|
|
|
<%else%>
| Categorie: |
<%= GetCategorie(page) %>
|
| Files: |
<%if Request.QueryString("fp") <> "1" then %>
Terug
<%else%>
Terug
<%end if%>
|
| Drivernaam |
Datum |
Versie |
|
<% list_Files() %>
![]()
|
<%end if%>
<%
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 "is de volgende een category (of file) : " & is_next_categorie(RsCategory("CategorieNr")) & "