Hallo,
ich habe folgende ASP-Seite (siehe Quelltext) erstellt und möchte nun die ASP-Seite formatieren. Das heisst das ich auch Text auf die Seite einfügen will und auch Schriftarten von dem Text ändern möchte. Das komische ist, dass wenn ich eine andere Schriftart nehme, bekomme ich wenn ich mir die Seite im Browser ansehe einen Scriptfehler. Woran kann das liegen. Ich arbeite mit Dreamweaver 2004 MX....
Bin für jeden Tipp dankbar.
<% @ Language="VBScript"
LCID = 1031 %><%
Option Explicit
Response.Expires=0
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-control", "no-store"
Response.Buffer = true
%><html>
<head>
<title>Version 3</title>
<%
Response.Write("<script>" & vbcrlf)
Response.Write("var arrSubGruppen = new Array();" & vbcrlf)
Dim rs, strPfadDB, i, Kunde, SQL
Kunde = Request("Kunde")
set rs = Server.CreateObject("ADODB.Recordset")
strPfadDB = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("PDM_Kutsch_Data.mdb")
SQL = "Select * from tblNormung"
rs.Open SQL, strPfadDB, 0, 1
i = 0
Do while not rs.EOF
Response.Write ("arrSubGruppen[""" & i & ",0""] = """ & _
rs.Fields("Kunde").Value & """;")
Response.Write ("arrSubGruppen[""" & i & ",1""] = """ & _
rs.Fields("Bezeichnung").Value & """;")
i = i + 1
rs.MoveNext
Loop
rs.Close
Response.Write ("var Anzahl = " & i - 1 & ";")
%>
function Wechsler()
{
var w3c = (document.getElementById)? true:false;
if (w3c)
{
var id = document.getElementById("Kunde").value;
var subid = document.getElementById("Bezeichnung").value;
if (subid.substring(0,4) != id)
{
var z = document.getElementById("Bezeichnung").length;
for (i=0; i < z; i++){document.getElementById("Bezeichnung").options[0] = null;}
for (i=0;i < Anzahl;i++)
{
if (arrSubGruppen[i + ",0"].substring(0,4) == id)
{
document.getElementById("Bezeichnung").options[document.getElementById("Bezeichnung").length] = new Option(arrSubGruppen[i + ",1"],arrSubGruppen[i + ",0"]);
}
}
}
}
else
{
var id = document.all("Kunde").value;
var subid = document.all("Bezeichnung").value;
if (subid.substring(0,4) != id)
{
var z = document.all("Bezeichnung").length;
for (i=0; i < z; i++){document.all("Bezeichnung").options[0] = null;}
for (i=0;i < Anzahl;i++)
{
if (arrSubGruppen[i + ",0"].substring(0,4) == id)
{
document.all("Bezeichunung").options[document.all("Bezeichnung").length] = new Option(arrSubGruppen[i + ",1"],arrSubGruppen[i + ",0"]);
}
}
}
}
}
</script>
</head>
<body>
<form action="Version3.asp" id=form1 name=form1>
<table>
<tr>
<td>
<select name="Kunde" id="Kunde" onchange="javascript:Wechsler();" width="150px" style="width:200px;"><%
'Zuerst die Hauptthemen
rs.Open "SELECT DISTINCT Kunde FROM tblNormung", strPfadDB, 0, 1
Do while not rs.EOF
%><option value="<% = rs.Fields("Kunde").Value %>" selected><% = rs.Fields("Kunde").Value %></option><%
rs.MoveNext
loop
rs.Close
set rs = nothing
%>
</select>
</td>
<td>
<select name="Bezeichnung" id="Bezeichnung" width="150px" style="width:200px;">
</select>
</td>
</tr>
</table>
</body>
</html>
