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
