Wenn mich nicht alles t�uscht, hast Du vergessen das Script zu beenden mit
</script>
Gru� Wolfgang
----- Original Message -----
From: "Fabian Blanda" <[EMAIL PROTECTED]>
To: "ASP Diskussionsliste fuer Anfaenger" <[EMAIL PROTECTED]>
Sent: Monday, November 12, 2001 11:05 AM
Subject: [aspdebeginners] Fehler: Anweisung erwartet
Hallo....also ich muss sagen ich bin ziemlich planlos was ASP angeht aber
ich hab ein Problem und vielleicht k�nnt und wollt ihr mir hier ja helfen.
Also ich hab in Access eine DB erstellt und will nun ein Formular zum
Ausf�llen per ASP ins Netz stellen. soweit OK jetzt hab ich mit dem DB Tool
zur Erstellung von Dynamischen Seiten eine ASP seite erstellt. wenn ich
diese aufrufe bekomme ich die Fehlermeldung:
Zeile: 82
Zeichen: 1
Fehler: Anweisung erwartet
Code: 0
OK und hier der Code dazu:
<%
Session.timeout = 60
If IsObject(Session("Reaktionsform_conn")) Then
Set conn = Session("Reaktionsform_conn")
Else
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "Reaktionsform","prak1","motovi"
Set Session("Reaktionsform_conn") = conn
End If
%>
<%
If IsObject(Session("Form_Reaktionsbogen1_rs")) Then
Set rs = Session("Form_Reaktionsbogen1_rs")
Else
sql = "SELECT * FROM [Reaktionsbogen]"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
If rs.eof Then
rs.AddNew
End If
Set Session("Form_Reaktionsbogen1_rs") = rs
End If
%>
<script LANGUAGE="VBScript">
<!--
Dim rgszCtrls(19, 2)
Dim cMaxCtrls
cMaxCtrls = 19
Sub AddCtrlToList(szCtrl, szCtrlSrc)
Dim i
for i = 1 to cMaxCtrls
if rgszCtrls(i, 1) = szCtrl Then Exit Sub
if rgszCtrls(i, 1) = "" Then
rgszCtrls(i, 1) = szCtrl
rgszCtrls(i, 2) = szCtrlSrc
Exit Sub
End If
next
End Sub
Sub UpdateRefreshBtn()
nav_btn_MoveCancelUpdate.Caption = "Abbrechen"
End Sub
Function MakeHTMLValue(szVal)
Dim i
Dim szRet
for i = 1 to Len(szVal)
ch = Mid(szVal, i, 1)
if ch = " " Then
szRet = szRet & "%20"
elseif ch = "&" Then
szRet = szRet & "%26"
elseif ch = "#" Then
szRet = szRet & "%23"
elseif ch = """" Then
szRet = szRet & "%22"
elseif ch = ";" Then
szRet = szRet & "%3B"
elseif ch = ":" Then
szRet = szRet & "%3A"
elseif ch = "'" Then
szRet = szRet & "%27"
else
szRet = szRet & Mid(szVal, i, 1)
end if
next
MakeHTMLValue = szRet
End Function
Function GetCtrlQueryString()
Dim szRet
Dim i
for i = 1 to cMaxCtrls
if rgszCtrls(i, 1) = "" Then Exit For
szRet = szRet & rgszCtrls(i, 2) & "=" &
MakeHTMLValue(Reaktionsbogen1_1alx.Controls(rgszCtrls(i, 1)).Value) & "&"
next
GetCtrlQueryString = szRet
End Function
<% Dies ist Zeile 82
If IsObject(Session("RS_Reaktionsbogen1_Problemart")) Then
Set tempRS = Session("RS_Reaktionsbogen1_Problemart")
Else
sql = "SELECT DISTINCTROW [DBproblemart].[F1] FROM [DBproblemart] "
Set tempRS = Server.CreateObject("ADODB.Recordset")
tempRS.Open sql, conn, 3, 3
Set Session("RS_Reaktionsbogen1_Problemart") = tempRS
tempRS.MoveFirst
End If
tempRS.MoveLast
%>
Dim Problemart_tempList(<% =tempRS.RecordCount %>, 1)
<%
tempRS.MoveFirst
I = 0
do while Not tempRS.eof
If tempRS.Fields(0).value = rs.Fields("Problemart").Value Then
selectedVarProblemart = cstr(tempRS.Fields(0).value)
End If
%>
Problemart_tempList( <% =I %> , 0)= "<% =tempRS.Fields(0).value %>"
<%
tempRS.MoveNext
I = I+1
loop
%>
<%
If IsObject(Session("RS_Reaktionsbogen1_Problemverursacher")) Then
Set tempRS = Session("RS_Reaktionsbogen1_Problemverursacher")
Else
sql = "SELECT DISTINCTROW [AllePartner].[Kennummer],
[AllePartner].[Partner] FROM [AllePartner] "
Set tempRS = Server.CreateObject("ADODB.Recordset")
tempRS.Open sql, conn, 3, 3
Set Session("RS_Reaktionsbogen1_Problemverursacher") = tempRS
tempRS.MoveFirst
End If
tempRS.MoveLast
%>
Dim Problemverursacher_tempList(<% =tempRS.RecordCount %>, 2)
<%
tempRS.MoveFirst
I = 0
do while Not tempRS.eof
If tempRS.Fields(0).value = rs.Fields("Problemverursacher").Value Then
selectedVarProblemverursacher = cstr(tempRS.Fields(0).value)
End If
%>
Problemverursacher_tempList( <% =I %> , 0)= "<% =tempRS.Fields(0).value
%>"
Problemverursacher_tempList( <% =I %> , 1)= "<% =tempRS.Fields(1).value
%>"
<%
tempRS.MoveNext
I = I+1
loop
%>
<%
If IsObject(Session("RS_Reaktionsbogen1_Kunde")) Then
Set tempRS = Session("RS_Reaktionsbogen1_Kunde")
Else
sql = "SELECT DISTINCTROW [AllePartner].[Kennummer],
[AllePartner].[Partner] FROM [AllePartner] "
Set tempRS = Server.CreateObject("ADODB.Recordset")
tempRS.Open sql, conn, 3, 3
Set Session("RS_Reaktionsbogen1_Kunde") = tempRS
tempRS.MoveFirst
End If
tempRS.MoveLast
%>
Dim Kunde_tempList(<% =tempRS.RecordCount %>, 2)
<%
tempRS.MoveFirst
I = 0
do while Not tempRS.eof
If tempRS.Fields(0).value = rs.Fields("Kunde").Value Then
selectedVarKunde = cstr(tempRS.Fields(0).value)
End If
%>
Kunde_tempList( <% =I %> , 0)= "<% =tempRS.Fields(0).value %>"
Kunde_tempList( <% =I %> , 1)= "<% =tempRS.Fields(1).value %>"
<%
tempRS.MoveNext
I = I+1
loop
%>
<%
If IsObject(Session("RS_Reaktionsbogen1_Name 1")) Then
Set tempRS = Session("RS_Reaktionsbogen1_Name 1")
Else
sql = "SELECT DISTINCTROW [DBMANR].[Name 1] FROM [DBMANR] "
Set tempRS = Server.CreateObject("ADODB.Recordset")
tempRS.Open sql, conn, 3, 3
Set Session("RS_Reaktionsbogen1_Name 1") = tempRS
tempRS.MoveFirst
End If
tempRS.MoveLast
%>
Dim Name_1_tempList(<% =tempRS.RecordCount %>, 1)
<%
tempRS.MoveFirst
I = 0
do while Not tempRS.eof
If tempRS.Fields(0).value = rs.Fields("Name 1").Value Then
selectedVarName_1 = cstr(tempRS.Fields(0).value)
End If
%>
Name_1_tempList( <% =I %> , 0)= "<% =tempRS.Fields(0).value %>"
<%
tempRS.MoveNext
I = I+1
loop
%>
Sub Reaktionsbogen1_1alx_OnLoad()
Problemart.list = Problemart_tempList
Problemverursacher.list = Problemverursacher_tempList
Kunde.list = Kunde_tempList
Name_1.list = Name_1_tempList
End Sub
USW.....
Wie was un wo muss ich tun...und wo hier auf dieser Page kann ich mich eigtl
�ber einige ASP Basics informieren ich hab mich noch nicht so richtig
zurechtgefunden hier.
Mit freundlichen Gr�ssen
Fabian
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
