IE 5.0 går ned ???
Hej jeg har følgende kode der bliver åbnet i et fram og et-eller-andet sted i nedenstående kode (der er en hjemmelavet SQL editor) får jeg en browserfejl og HELE IE dør! = mærkligtDet er kun til intranet dvs. jeg kan tillade mig at sætte visse standarter derfor er dette KUN til IE 5 (eller nyere version)
Fejlbeskrivelse/symptomer:
Når jeg vælger ny url i browseren går browseren ned (!?) dvs. der er et-eller-andet ret forkert!
Jeg har sat en del point på højkant fordi jeg har bokset med det i 1 uge konstant og brænder snart mit hamster inkl. min computer hvis jeg ikke finder en løsning
Mvh
Horsmark
<%@ Language=VBscript %>
<% Option Explicit %>
<% \'response.expires =0 %>
<% \'Server.Scripttimeout = 3600 %>
<%
Dim folderEPO_db
folderEPO_db = \"c:/inetpub/wwwroot/horsmark_asp-test_miljø/Elektronisk Projekt og Opgavestyring/epo/EPO_Databaser/epo_database.mdb\"
Dim arrTABELS, i \'Hvilke tabeller skal medtages fra EPOdatabasen som der kan genereres søgninger ud fra
arrTABELS = \"tblProjekter,tblOpgaver,tblArbejdeRegistreringer,tblRessourceKonti\"
arrTABELS = Split(arrTABELS, \",\")
Dim ObjConn, objRS, strSQL, iTableID
Set objConn = Server.CreateObject(\"ADODB.Connection\")
ObjConn.ConnectionString=\"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & folderEPO_db
ObjConn.Open
%>
<html>
<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">
<!--#include file=\"../adovbs.inc\"-->
<head>
<title>EPO Igangværende Opgaver</title>
<meta NAME=\"Generator\" CONTENT=\"Stone\'s WebWriter 3.5\">
<link REL=\"STYLESHEET\" HREF=\"../EPOstyle.css\" TYPE=\"text/css\">
<style type=\"text/css\">
<!--
.K_layer {
position : absolute;
top : 30px;
left : 168px;
height : 350px;
width : 700px;
visibility : hidden;
overflow : auto;
background-color : #FFFFFF;
}
.btnCriteria_txt {
width : 80px;
height : 18px;
font-size : 9px;
background-color : #EFF7FF;
}
.btnCriteria_op {
width : 40px;
height : 18px;
font-size: 9px;
background-color : #EFF7FF;
}
.Operatorlayer {
position : absolute;
top : 32px;
left : 400px;
height : 500px;
width : 620px;
visibility : visible;
overflow : auto;
z-index : 1;
}
.QueryLayer {
top : 222px;
left : 1px;
position : absolute;
background-color: #FFFFFF;
text-align: center;
height: 242px;
width : 598px;
z-index : 10;
visibility : hidden;
}
-->
</style>
<script LANGUAGE=\"javascript\">
<!--
var T_selected = \"\";
var T_oldselected = \"\";
var whichQuote = \"\";
function rowClick(layerID, TableName) {
if (T_selected)
T_selected.style.backgroundColor=\'#EFF7FF\';
id = event.srcElement;
if(T_oldselected!=\'\'){ //skjul gammelt layer før nyt vises hvis ikke T_oldselected er \'\'
document.getElementById(T_oldselected).style.visibility = \'hidden\';
}
while (id.tagName != \'TR\')
id = id.parentElement;
T_selected = id;
T_selected.style.backgroundColor=\'silver\';
document.getElementById(\'T_valgt\').innerHTML = TableName; //indsæt tabelnavn i Editorlayer
document.getElementById(layerID).style.visibility = \'visible\';
T_oldselected = layerID;
//følgende nulstiller evt. kollonnevalg
if (K_selected != \'\'){
K_selected.style.backgroundColor=\'#EFF7FF\';
K_selected = \'\';
document.getElementById(\'K_valgt\').innerHTML = \'\'; //nulstil kollonnenavn i Editorlayer
document.getElementById(\'K_SearchDBicon\').innerHTML = \'\' //fjern kollonnesøgeikon i Editorlayer
document.getElementById(\'SQLresult\').innerHTML = \'\' //fjern FieldSelector i Editorlayer
}
}
// følgende er selector til kollonner
var K_selected = \'\';
function K_rowClick(ColumnName) {
if (K_selected)
K_selected.style.backgroundColor=\'#EFF7FF\';
id = event.srcElement;
while (id.tagName != \'TD\')
id = id.parentElement;
K_selected = id;
K_selected.style.backgroundColor=\'silver\';
document.getElementById(\'K_valgt\').innerHTML = ColumnName; //indsæt kollonnenavn i Editorlayer
document.frmOperatorlayer.txtDB_tbl_col.value = \' [\' + document.getElementById(\'T_valgt\').innerHTML + \'].[\' + ColumnName + \'] \';
//indsæt icon så bruger kan skifte imellem stigende og faldende kollonne indhold i basen i Editorlayer
document.getElementById(\'K_SearchDBicon\').innerHTML = \'<img title=\"Sorter faldende/stigende\" src=\"EPO_Grafik/Icon_Sort.gif\" width=\"18\" height=\"18\" onclick=\"ChangeSortDirection();\">\'
LoadXMLHTTP(K_selected.getAttribute(\"DataType\"), \'LoadFields\'); //hent kollonnens værdier ind i view designer
}
// følgende er muligheden for at flytte OperatorLayer frit på skærmen
var ob;
function MD(e) {
ob = event.srcElement.parentElement.style;
X=event.offsetX;
Y=event.offsetY;
}
function MM(e) {
if (ob) {
ob.pixelLeft = event.clientX-X + document.body.scrollLeft;
ob.pixelTop = event.clientY-Y + document.body.scrollTop;
return false;
}
}
function MU() {
ob = null;
}
document.onmousemove = MM;
document.onmouseup = MU;
// Indsæt i textarea
function storeCaret (textEl) {
if (textEl.createTextRange)
textEl.caretPos = document.selection.createRange().duplicate();
}
function insertAtCaret (textEl, text) {
if (textEl.createTextRange && textEl.caretPos) {
var caretPos = textEl.caretPos;
caretPos.text = caretPos.text.charAt(caretPos.text.length - 1) == \' \' ? text + \' \' : text;
} // else textEl.value = text;
// document.frmOperatorlayer.textAreaCriteria.focus();
}
//Ved tryk på enter i valueinputboxen indsæt i textarea med quotes efter datatype
function ValidateKeyPress(whatbtn){
if (event.keyCode == 13){
SetQuote(K_selected.getAttribute(\'DataType\'));
insertAtCaret(document.frmOperatorlayer.textAreaCriteria,whichQuote+document.getElementById(whatbtn).value+whichQuote);
document.getElementById(whatbtn).value = \'\';
}
}
//Følgende ændrer sortering
function ChangeSortDirection(){
if(document.getElementById(\'K_SortDirection\').value==\'Asc\'||document.getElementById(\'K_SortDirection\').value==\'\'){
document.frmOperatorlayer.K_SortDirection.value=\'Desc\';
} else {
document.frmOperatorlayer.K_SortDirection.value=\'Asc\';
}
LoadXMLHTTP(K_selected.getAttribute(\'DataType\'), \'LoadFields\');
}
//indsæt det valgte felt i selectboxen til textarea
function InsertField() {
SetQuote(K_selected.getAttribute(\'DataType\'));
for (var i = 0; i < document.frmOperatorlayer.FieldSelector.length; i++) {
if (document.frmOperatorlayer.FieldSelector.options[i].selected == true)
insertAtCaret(document.frmOperatorlayer.textAreaCriteria,whichQuote+document.frmOperatorlayer.FieldSelector.options[i].text+whichQuote);
}
}
// Bestem quote type
function SetQuote(DataType){
if(DataType==\"dato\"){
whichQuote = \"#\"
}else if(DataType==\"txt\"){
whichQuote = \"\'\"
}else if(DataType==\"tal\"||DataType==\"\"){
whichQuote = \"\"
}
}
// Skjul/vis layer
function LayerShowHide(whichLayer){
if(document.getElementById(whichLayer).style.visibility == \'hidden\'){
document.getElementById(whichLayer).style.visibility = \'visible\';
} else document.getElementById(whichLayer).style.visibility = \'hidden\';
}
//-->
</script>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function LoadXMLHTTP(DataType, LoadType) {
// var xmlhttp = new ActiveXObject(\"Microsoft.XMLHTTP\");
// xmlhttp.Open(\"POST\",\"Receiver.asp\",false);
// xmlhttp.setRequestHeader(\"Content-Type\", \"application/x-www-form-urlencoded\");
// if(LoadType==\'LoadFields\'){ //Henter data til selectbox
// var DataToSend = \"T_SQL=\" + document.getElementById(\'T_valgt\').innerHTML +
// \"&K_SQL=\" + document.getElementById(\'K_valgt\').innerHTML +
// \"&DataType=\" + DataType +
// \"&K_Sort=\" + document.getElementById(\'K_SortDirection\').value;
// xmlhttp.send(DataToSend);
// document.getElementById(\'SQLresult\').innerHTML = \'<select name=\"FieldSelector\" onchange=\"InsertField();\" size=\"12\" style=\"width:335px;\">\' + xmlhttp.responseXML.xml + \'</select>\';
// }
// if(LoadType==\'CheckCriteria\'){
// var DataToSend = \"ValidateCriteria=\"+document.frmOperatorlayer.textAreaCriteria.value;
// xmlhttp.send(DataToSend);
// document.getElementById(\'QueryLayer\').style.visibility = \'visible\';
// document.getElementById(\'QueryLayer\').innerHTML =
// \'<table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"1\">\' +
// \'<tr><th align=\"left\"> Kriterie validering</th><th align=\"right\"><img src=\"EPO_Grafik/Icon_Close_White.gif\" height=\"11\" width=\"18\" onClick=\"LayerShowHide(\' + \"\'QueryLayer\'\" + \');\"></th></tr></table>\'+
// \'<table border=\"1\" bordercolor=\"#FFFFFF\" width=\"100%\" cellspacing=\"0\" cellpadding=\"2\">\' + xmlhttp.responseXML.xml + \'</table>\';
//alert(document.getElementById(\'QueryLayer\').innerHTML);
// }
alert(\"outcommented\");
}
//-->
</SCRIPT>
</head>
<body marginheight=\"0\" marginwidth=\"0\" leftmargin=\"0\" topmargin=\"0\" style=\"CURSOR: wait\" ONLOAD=\"document.body.style.cursor = \'default\';\">
<!-- Ydre tablestruktur -->
<!--layers-->
<div class=\"Operatorlayer\" id=\"0\">
<!--Følgende QueryLayer layer er til visning af validerede Krieterier, mulige storedfields og testkørsel af query-->
<div class=\"QueryLayer\" id=\"QueryLayer\"></div><img onmousedown=\"MD();\" src=\"EPO_Grafik/Bg_View_TopBorder.gif\" width=\"600\" height=\"15\"
><table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" bordercolor=\"#314973\" bgcolor=\"#FFFFFF\" marginheight=\"0\" marginwidth=\"0\" leftmargin=\"0\" rightmargin=\"0\" topmargin=\"0\">
<form name=\"frmOperatorlayer\">
<tr><td style=\"border-style:solid;border-width:1px;\" align=\"left\" height=\"100%\" width=\"598\">
<table border=\"1\" bordercolor=\"#FFFFFF\" cellspacing=\"0\">
<tr height=\"22\"><td align=\"right\">Valgt tabel:</td>
<td style=\"font-weight:bold;color:#000084;\" colspan=\"3\" id=\"T_valgt\"></td>
<td align=\"right\">Valgt kollonne:</td>
<td style=\"font-weight:bold;color:#000084;cursor:hand;\" id=\"K_valgt\" width=\"240\"
ONCLICK=\"insertAtCaret(document.frmOperatorlayer.textAreaCriteria,document.frmOperatorlayer.txtDB_tbl_col.value);\"></td>
<td width=\"18\" id=\"K_SearchDBicon\"></td></tr>
<input type=\"hidden\" name=\"txtDB_tbl_col\" value=\"\">
<input type=\"hidden\" name=\"DataType\" value=\"\">
<input type=\"hidden\" name=\"K_SortDirection\" value=\"\">
<tr><td><input ONCLICK=\"insertAtCaret(this.form.textAreaCriteria,this.value);\" type=\"button\" value=\" AND \" class=\"btnCriteria_txt\"></td>
<td><input ONCLICK=\"insertAtCaret(this.form.textAreaCriteria,this.value);\" type=\"button\" value=\" OR \" class=\"btnCriteria_txt\"></td>
<td><input ONCLICK=\"insertAtCaret(this.form.textAreaCriteria,this.value);\" type=\"button\" value=\"(\" class=\"btnCriteria_op\"></td>
<td><input ONCLICK=\"insertAtCaret(this.form.textAreaCriteria,this.value);\" type=\"button\" value=\")\" class=\"btnCriteria_op\"></td>
<td rowspan=\"9\" colspan=\"3\"><span id=\"SQLresult\"></span></td></tr>
<tr><td><input ONCLICK=\"insertAtCaret(this.form.textAreaCriteria,this.value);\" type=\"button\" value=\" LIKE \" class=\"btnCriteria_txt\"></td>
<td><input ONCLICK=\"insertAtCaret(this.form.textAreaCriteria,this.value);\" type=\"button\" value=\" NOT LIKE \" class=\"btnCriteria_txt\"></td>
<td><input ONCLICK=\"insertAtCaret(this.form.textAreaCriteria,this.value);\" type=\"button\" value=\" + \" class=\"btnCriteria_op\"></td>
<td><input ONCLICK=\"insertAtCaret(this.form.textAreaCriteria,this.value);\" type=\"button\" value=\" - \" class=\"btnCriteria_op\"></td>
<tr><td><input ONCLICK=\"insertAtCaret(this.form.textAreaCriteria,this.value);\" type=\"button\" value=\" BETWEEN \" class=\"btnCriteria_txt\"></td>
<td><input ONCLICK=\"insertAtCaret(this.form.textAreaCriteria,this.value);\" type=\"button\" value=\" NOT BETWEEN \" class=\"btnCriteria_txt\"></td>
<td><input ONCLICK=\"insertAtCaret(this.form.textAreaCriteria,this.value);\" type=\"button\" value=\" * \" class=\"btnCriteria_op\"></td>
<td><input ONCLICK=\"insertAtCaret(this.form.textAreaCriteria,this.value);\" type=\"button\" value=\" / \" class=\"btnCriteria_op\"></td></tr>
<tr><td><input ONCLICK=\"insertAtCaret(this.form.textAreaCriteria,this.value);\" type=\"button\" value=\" NULL \" class=\"btnCriteria_txt\"></td>
<td><input ONCLICK=\"insertAtCaret(this.form.textAreaCriteria,this.value);\" type=\"button\" value=\" NOT NULL \" class=\"btnCriteria_txt\"></td>
<td><input ONCLICK=\"insertAtCaret(this.form.textAreaCriteria,this.value);\" type=\"button\" value=\" < \" class=\"btnCriteria_op\"></td>
<td><input ONCLICK=\"insertAtCaret(this.form.textAreaCriteria,this.value);\" type=\"button\" value=\" > \" class=\"btnCriteria_op\"></td></tr>
<tr><td><input ONCLICK=\"insertAtCaret(this.form.textAreaCriteria,\'\\u000D\\u000A\');\" type=\"button\" value=\" NY LINIE \" class=\"btnCriteria_txt\"></td>
<td><input ONCLICK=\"insertAtCaret(this.form.textAreaCriteria,\'\');\" type=\"button\" value=\" SLET VALGT \" class=\"btnCriteria_txt\"></td>
<td><input ONCLICK=\"insertAtCaret(this.form.textAreaCriteria,this.value);\" type=\"button\" value=\" <= \" class=\"btnCriteria_op\"></td>
<td><input ONCLICK=\"insertAtCaret(this.form.textAreaCriteria,this.value);\" type=\"button\" value=\" >= \" class=\"btnCriteria_op\"></td></tr>
<tr><td></td>
<td></td>
<td><input ONCLICK=\"insertAtCaret(this.form.textAreaCriteria,this.value);\" type=\"button\" value=\" != \" class=\"btnCriteria_op\"></td>
<td><input ONCLICK=\"insertAtCaret(this.form.textAreaCriteria,this.value);\" type=\"button\" value=\" = \" class=\"btnCriteria_op\"></td></tr>
<!-- følgende linie bestemmer td width -->
<tr><td width=\"80\"></td><td width=\"80\"></td><td width=\"20\"></td><td width=\"20\"></td></tr>
<tr><td colspan=\"2\"> Værdi:</td><td> Dato:</td>
<td align=\"center\"><img title=\"Vælg dato fra kalender\" src=\"EPO_Grafik/Icon_CalenderClock_Slut.gif\" width=\"18\" height=\"18\"></td></tr>
<tr><td colspan=\"2\"><input DISABLED type=\"text\" name=\"txtValue\" id=\"txtValue\" style=\"width:164px;\" onKeyPress=\"ValidateKeyPress(this.id);\"></td>
<td colspan=\"2\"><input DISABLED type=\"text\" name=\"txtDate\" id=\"txtDate\" style=\"width:80px;\" onKeyPress=\"ValidateKeyPress(this.id);\"></td></tr>
<tr><td colspan=\"4\"> Kriterier:</td>
<td colspan=\"3\" align=\"right\"><img title=\"Generér og validér SQL\" src=\"EPO_Grafik/Icon_db_Validate.gif\" width=\"18\" height=\"18\" onclick=\"LoadXMLHTTP(\'\',\'CheckCriteria\');\"></td></tr>
<tr><td colspan=\"7\">
<textarea name=\"textAreaCriteria\" cols=\"114\" rows=\"15\"
ONSELECT =\"storeCaret(this);\"
ONCLICK =\"this.form.txtDate.disabled = false;this.form.txtValue.disabled = false;storeCaret(this);\"
ONKEYUP =\"storeCaret(this);\"
></textarea></td></tr>
</table>
</td></tr>
</form>
</table></div>
<% \'Generér <div layers efter hvor mange tabbeller der skal medtages
For i=Lbound(arrTABELS) to UBound(arrTABELS)
%><div class=\"K_layer\" id=\"<%=i+1%>\"><%FuncGetFields(arrTABELS(i))%></div>
<% Next%>
<!--layersslut-->
<table width=\"1000\" height=\"100%\" cellpadding=\"0\" cellspacing=\"0\" border=\"0\">
<tr valign=\"top\"><td>
<!-- EPO igangværende menu -->
<table width=\"100%\" border=\"0\" cellpadding=\"2\" cellspacing=\"0\">
<tr height=\"30\"><td align=\"left\"><h3><font color=\"#000084\"> EPO View Editor</td>
<td align=\"right\">
<img src=\"EPO_Grafik/Icon_Printer.gif\" onClick=\"java script:window.print();return false\" WIDTH=\"18\" HEIGHT=\"18\" title=\"Udskriv arbejdsområde\">
<img src=\"EPO_Grafik/Icon_Update.gif\" onClick=\"location.reload(true)\" WIDTH=\"18\" HEIGHT=\"18\" title=\"Opdater arbejdsområde\"></td></tr>
</table>
<table border=\"1\" bordercolor=\"#FFFFFF\" cellpadding=\"1\" cellspacing=\"0\">
<tr><td width=\"10\" rowspan=\"5\"></td><th width=\"150\">EPO tabeller</th></tr>
<% \'Generér Tabeller som valgbare i browser
For i=Lbound(arrTABELS) to UBound(arrTABELS)
%> <tr bgcolor=\"#EFF7FF\" STYLE=\"cursor:hand;\" layerID=\"<%=i+1%>\" ONCLICK=\"rowClick(layerID, \'<%=arrTABELS(i)%>\')\" ONDBLCLICK=\"rowClick(layerID, \'<%=arrTABELS(i)%>\')\"><td><%=arrTABELS(i)%></td></tr>
<% Next%>
</table>
</td></tr>
</table><!-- ydre tablestruktur slut-->
</body>
</html>
<%objConn.close
set objConn = nothing
\'Functions
Function FuncGetFields(strWhichTable)
Dim iHowmanyfields, i
If iTableID = \"\" Then
iTableID = 1
else iTableID = iTableID + 1
End If
Set objRS = Server.CreateObject(\"ADODB.Recordset\")
strSQL = \"SELECT * From \" & strWhichTable
objRS.open strSQL, ObjConn
iHowmanyfields=objRS.fields.count-1%>
<table>
<tr><th width=\"150\">Kollonner</th></tr>
<%
Dim strDatatype
FOR i=0 to iHowmanyfields
\'Fang Datatype og tildel bg-ikon
SELECT CASE objRS(i).Type
case 3,5 strDatatype = \"tal\"
case 201,200 strDatatype = \"txt\"
case 135 strDatatype = \"dato\"
case else strDatatype = objRS(i).Type
End Select%>
<tr><td bgcolor=\"#EFF7FF\" STYLE=\"cursor:hand;BACKGROUND-IMAGE: url(EPO_Grafik/Icon_db_<%=strDatatype%>.gif);BACKGROUND-REPEAT:no-repeat;background-position: right center;\"
DataType=\"<%=strDatatype%>\"
onclick=\"K_rowClick(\'<%=objRS(i).name%>\');\"
ONDBLCLICK=\"K_rowClick(\'<%=objRS(i).name%>\')\">
<%=objRS(i).name%></td></tr>
<%NEXT%>
</table>
<%
End Function
%>
