Gracias mc_quake, ya le puse las comillas pero continua el error, aqui pongo el codigo completo:
<html>
<head>
<title>Veranstaltungen</title>
<base target="frame1">
<!--
<SCRIPT ID="clientEventHandlersVBS" LANGUAGE="VBScript">
Sub suche_onclick
if KNAME.value<>"" then _
aufruf=aufruf & "projekt=" & KNAME.value & "&"
if KNR.value<>"" then _
aufruf=aufruf & "knr=" & KNR.value & "&"
if tvon.value<>"" then _
aufruf=aufruf & "tvon=" & tvon.value & "&"
if tbis.value<>"" then _
aufruf=aufruf & "tbis=" & tbis.value & "&"
if PLZ.value<>"" then _
aufruf=aufruf & "plz=" & PLZ.value & "&"
if KORT.value<>"" then _
aufruf=aufruf & "ort=" & KORT.value & "&"
if adm.value<>"" then _
aufruf=aufruf & "adm=" & adm.value & "&"
if beraterin.value<>"" then _
aufruf=aufruf & "beraterin=" & beraterin.value & "&"
if telefon.value<>"" then _
aufruf=aufruf & "telefon=" & telefon.value & "&"
if Schutz.checked then _
aufruf=aufruf & "Schutz=" & schutz.value & "&"
' Aktionstyp mit aufnehmen (stammt aus Programmstart)
if MSFilter.value <> "" then _
aufruf=aufruf & "Aktionstyp=" & MSFilter.value & "&"
if aufruf<>"" then
aufruf="ergebnis.asp?" & aufruf
aufruf=left(aufruf,len(aufruf)-1)
window.parent.document.frames("frame2").location= aufruf
window.parent.document.frames("fKunde").location= "Kunde.asp?K=0"
else
msgbox "Bitte ein Suchkriterium eintragen"
end if
End Sub
Function ZeigKunde
window.parent.document.frames("fKunde").location= "Kunde.asp?K=" & projekt.value
End Function
Sub dblclick
KNAME.value=""
KNR.value=""
tvon.value=""
tbis.value=""
PLZ.value=""
KORT.value=""
adm.value=""
beraterin.value=""
Telefon.value = ""
MSFilter.value=""
Schutz.checked=false
End Sub
</SCRIPT>
-->
<link rel="stylesheet" type="text/css" href="<%=session("MS")%>.css">
</head>
<body leftmargin="0" topmargin="0">
<%
set con=session("cnn")
set rst=con.execute("exec spZugang")
zugang = rst.fields(0).value
session("Zugang")=Zugang
session("MA")=rst.fields(1).value
'if request.querystring("MS") <> "" then
'session("MS")=request.querystring("MS")
'end if
prj= " value=""" & request.querystring("prj") & """ "
%>
<script type="text/javascript">
<!--
//
// Funktion setzt bei Aenderungen in den Feldern
// den Anzeigefilter bzw. gibt ihn frei
//
/*
function intelliFilter()
{
if ((document.getElementById('KNR').value.length > 0) || (document.getElementById('KNAME').value.length > 0)){
document.getElementById('MSFilter').checked = true
} else {
document.getElementById('MSFilter').checked = false;
}
}
*/
-->
</script>
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center">
<input type="hidden" name="zugang" id="zugang" value="<%=zugang%>">
<p align="center"><b><input <%=prj%> type="text" name="projekt" id="projekt" size="6" onChange="ZeigKunde()" style="text-align: center; font-weight: bold"></b></p>
</td>
<td align="right"><font face="Arial" size="2" color="#FFFFFF"><b> KdNr.: </b></font></td>
<td align="right"><input onchange="javascript
:intelliFilter()" ondblclick="javascript
:dblclick()" type="text" name="KNR" size="8"></td>
<td align="right"><font face="Arial" size="2" color="#FFFFFF"><b> PLZ: </b></font></td>
<td align="right"><input ondblclick="javascript
:dblclick()" type="text" name="PLZ" size="10" maxlength="5"></td>
<td align="right"><font face="Arial" size="2" color="#FFFFFF"><b> Ort: </b></font></td>
<td align="right"><input ondblclick="javascript
:dblclick()" value="" type="text" name="KORT" size="10"></td>
<td align="right"><font face="Arial" size="2" color="#FFFFFF"><b> von-bis: </b></font></td>
<td align="left"><input ondblclick="javascript
:dblclick()" type="text" name="TVON" size="7"><font face="Arial" size="2" color="#FFFFFF"><b>-</b></font><input ondblclick="javascript
:dblclick()" type="text" name="TBIS" size="7"></td>
<td align="right"><font face="Arial" size="2" color="#FFFFFF"><b>Auswahl:
<select name="MSFilter">
<option value="" selected>alle</option>
<option value="ATM">ATM</option>
<option value="PTM">PTM</option>
</select>
</b></font>
</td>
</tr>
<tr>
<td align="center"><p><input type="button" value="Suche" name="suche"></p></td>
<td align="right"><font face="Arial" size="2" color="#FFFFFF"><b> Kunde: </b></font></td>
<td align="right"> <input onchange="javascript
:intelliFilter()" ondblclick="javascript
:dblclick()" type="text" name="KNAME" size="8"></td>
<td align="right"><font face="Arial" size="2" color="#FFFFFF"><b> ADM: </b></font></td>
<td align="right"> <input ondblclick="javascript
:dblclick()" type="text" name="ADM" size="10"></td>
<td align="right"><font face="Arial" size="2" color="#FFFFFF"><b> Dienstleister: </b></font></td>
<td align="right"><input ondblclick="javascript
:dblclick()" type="text" name="Beraterin" size="10"></td>
<td align="right"><font face="Arial" size="2" color="#FFFFFF"><b> Telefon: </b></font></td>
<td align="right"><input ondblclick="javascript
:dblclick()" type="text" name="Telefon" size="19"></td>
<td align="right"><font face="Arial" size="2" color="#FFFFFF"><b> Gebühr: </b></font>
<input ondblclick="javascript
:dblclick()" type="checkbox" name="Schutz"></td>
</tr>
</table>
<script language=vbscript>
<!--
if projekt.value <>"" then call ZeigKunde
-->
</script>
</body>
</html>
