<%@Language=JScript%>
<%
// *****************************************************************************
//
// info/testsql.asp
//
// GoLive design-time support for Microsoft ADO.
//
// 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.
// -----------------------------------------------------------------------------
RejectUnauthorizedCallers();
var title = null;
var vsql = request("sql");
var vsrc = request("src");
if (vsrc.Count > 0 && vsql.Count > 0) {
title = "Ergebnisse";
var recordSet = new ActiveXObject("ADODB.RecordSet");
recordSet.Open(String(vsql), ConnectString(vsrc));
var csw = WrapRecordSet(recordSet, "block=0");
} else {
title = "Geben Sie eine gültige SQL-Abfrage ein.";
var fso = Server.CreateObject("Scripting.FileSystemObject");
var folder = fso.GetFolder(server.mapPath(".") + "/../datasources");
var error = 0;
var folderContents = new Enumerator(folder.files);
var datasources = new Array();
for (; !folderContents.atEnd(); folderContents.moveNext()) {
var file = folderContents.item();
switch(fso.GetExtensionName(file).toUpperCase()) {
case "MDB":
case "DSN":
case "UDL":
case "XDB":
datasources[datasources.length] = fso.GetBaseName(file);
break;
}
}
}
var msg = "";
if (vsrc.Count == 0 && vsql.Count == 0) {
msg += "\n";
} else if (csw == null) {
msg += "
\n";
for (var j = 0; j < columnCount; ++j) {
var column = csw.Data.Fields.Item(j);
msg += "
" + column.Name + "
\n";
}
msg += "
\n";
for (csw.MoveFirst(); !csw.EOF; csw.MoveNext()) {
msg += "
\n";
msg += "
" + csw.AbsolutePosition + "
\n";
for (var j = 0; j < columnCount; ++j) {
var column = csw.Data.Fields.Item(j);
msg += "
" + column.Value + "
\n";
}
msg += "
\n";
}
msg += "
\n";
msg += "
\n";
msg += "
\n";
}
%>
<%=title%>
<%=title%>
<%=msg%>
Wenn obiger "DataSource name" über keine Informationen verfügt oder
der Tabellen- bzw. Feldname nicht gefunden werden kann, finden Sie
hier weitere Einzelheiten: troubleshooting.asp.