<%@Language="VBScript"%>
<%Option Explicit%>
<%
Response.ContentType = "text/html"
Response.CharSet = "windows-" & Session.CodePage
on error resume next
' --- troubleshooting.asp -----------------------------------------------------
' ADOBE SYSTEMS INCORPORATED
' Copyright 1999-2002 Adobe Systems Incorporated. All Rights Reserved.
'
' NOTICE: Notwithstanding the terms of the Adobe GoLive End User
' License Agreement, Adobe permits you to reproduce and distribute this
' file only as an integrated part of a web site created with Adobe
' GoLive software and only for the purpose of enabling your client to
' display their web site. All other terms of the Adobe license
' agreement remain in effect.
'
' Adobe GoLive (ASP) Troubleshooting Report
'
' This Active Server Page file performs a series of tests to verify that
' the Adobe GoLive server files are properly installed and configured.
'
' IMPORTANT: This file is for troubleshooting purposes only. You should not
' leave this file installed on a production server because it might provide
' users with information about your security setup and the structure of your
' datasource files.
' -----------------------------------------------------------------------------
' -----------------------------------------------------------------------------
' Call the main function, written in JScript, below.
main()
' -----------------------------------------------------------------------------
' These VBScript functions are utility functions for the tests, below.
function getVBScriptEngineVersion
dim msg
msg = ""
msg = msg & ScriptEngineMajorVersion & "."
msg = msg & ScriptEngineMinorVersion & "."
msg = msg & ScriptEngineBuildVersion
getVBScriptEngineVersion = msg
end function
function getVBScriptEngineMajorVersion
getVBScriptEngineMajorVersion = ScriptEngineMajorVersion
end function
function writeServerVariables()
dim msg, name
msg = ""
for each name in Request.ServerVariables
msg = msg + "| " & vbNewLine
msg = msg + name & "" & vbNewLine
msg = msg + " | " & vbNewLine
msg = msg + Request.ServerVariables(name) & "
" & vbNewLine
msg = msg + " |
" & vbNewLine
next
writeServerVariables = msg
end function
function testWriteFileOnServer(fso, virtualName)
on error resume next
dim fileName, folderName, testFile, fileData
fileData = "GoLive Dynamic Link"
fileName = Server.MapPath(virtualName)
folderName = fso.GetParentFolderName(fileName)
if not fso.FolderExists(folderName) then fso.CreateFolder(folderName)
set testFile = fso.CreateTextFile(fileName, True)
testFile.Write fileData
testFile.Close
fso.DeleteFile fileName, True
if Err then
testWriteFileOnServer = false
else
testWriteFileOnServer = true
end if
end function
function testXmlDomSupport()
on error resume next
dim test
set test = CreateObject("Microsoft.XMLDOM")
if Err then
testXmlDomSupport = false
else
testXmlDomSupport = true
end if
end function
function testConnectionOpen(connection, connectString)
on error resume next
connection.Open(connectString)
if Err then
testConnectionOpen = false
else
testConnectionOpen = true
end if
end function
function testOpenSchema(connection)
on error resume next
dim schema, msg
set schema = connection.OpenSchema(20) ' 20: adSchemaTables = 20
msg = ""
if Err then
else
msg = msg + "Erfolg"
do until schema.EOF
if (schema("TABLE_TYPE") = "TABLE") then
msg = msg + "" & vbNewLine
msg = msg + "- " & schema("TABLE_NAME") & vbNewLine
msg = msg + listDataSourcesField(connection, schema("TABLE_NAME"))
msg = msg + "
" & vbNewLine
end if
schema.MoveNext
Loop
end if
testOpenSchema = msg
end function
function testIndexColumns(index)
on error resume next
dim count
count = index.Columns.Count
if Err then
testIndexColumns = false
else
testIndexColumns = true
end if
end function
%>
|