Hallo allerseits...sorry aber ich bin mal wieder v�llig �berfordert...und zwar hab ich
dieses script erstellt...die connection zur DB wird hergestellt aber dann wird mir
immer nur der erste datensatz dargestellt, ich kann nicht weiterbl�ttern geschweige
denn �ndern noch neue Datens�tze anlegen d.h. die ganzen Buttons funktionieren nicht.
Wie fehlt mir wo was?
Merci vielmals im voraus
F.Blanda
<%
Session.timeout = 60
If IsObject(Session("Reaktionsform_conn")) Then
Set conn = Session("Reaktionsform_conn")
Else
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("db1.mdb") & ";"
Set Session("Reaktionsform_conn") = conn
End If
%>
<%
If IsObject(Session("Form_Reaktionsbogen_rs")) Then
Set rs = Session("Form_Reaktionsbogen_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_Reaktionsbogen_rs") = rs
End If
%>
<html>
<head>
<meta name="Microsoft Theme" content="none, default">
<title>reaktionsbogen.ASP</title>
</head>
<body bgcolor="#F0F0F0" text="#0033FF">
<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(Reaktionsbogen.Controls(rgszCtrls(i, 1)).Value) & "&"
next
GetCtrlQueryString = szRet
End Function
If IsObject(Session("RS_Reaktionsbogen_Problemart")) Then
Set tempRS = Session("RS_Reaktionsbogen_Problemart")
Else
sql = "SELECT DISTINCTROW [DBproblemart].[F1] FROM [DBproblemart] "
Set tempRS = Server.CreateObject("ADODB.Recordset")
tempRS.Open sql, conn, 3, 3
Set Session("RS_Reaktionsbogen_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_Reaktionsbogen_Problemverursacher")) Then
Set tempRS = Session("RS_Reaktionsbogen_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_Reaktionsbogen_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_Reaktionsbogen_Kunde")) Then
Set tempRS = Session("RS_Reaktionsbogen_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_Reaktionsbogen_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_Reaktionsbogen_Name 1")) Then
Set tempRS = Session("RS_Reaktionsbogen_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_Reaktionsbogen_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 Reaktionsbogen_OnLoad()
Problemart.list = Problemart_tempList
Problemverursacher.list = Problemverursacher_tempList
Kunde.list = Kunde_tempList
Name_1.list = Name_1_tempList
End Sub
Sub Problem_geloest_AfterUpdate()
call AddCtrlToList("Problem_geloest", "Problem geloest")
call UpdateRefreshBtn()
End Sub
Sub vereinbarte_Loesungszeit_AfterUpdate()
call AddCtrlToList("vereinbarte_Loesungszeit", "vereinbarte Loesungszeit")
call UpdateRefreshBtn()
End Sub
Sub Mitteilungszeit_AfterUpdate()
call AddCtrlToList("Mitteilungszeit", "Mitteilungszeit")
call UpdateRefreshBtn()
End Sub
Sub Loesungsansatz_AfterUpdate()
call AddCtrlToList("Loesungsansatz", "Loesungsansatz")
call UpdateRefreshBtn()
End Sub
Sub Name_der_Kontaktperson_AfterUpdate()
call AddCtrlToList("Name_der_Kontaktperson", "Name der Kontaktperson")
call UpdateRefreshBtn()
End Sub
Sub Anderes_Problem_AfterUpdate()
call AddCtrlToList("Anderes_Problem", "Anderes Problem")
call UpdateRefreshBtn()
End Sub
Sub Problemart_AfterUpdate()
call AddCtrlToList("Problemart", "Problemart")
call UpdateRefreshBtn()
End Sub
Sub Problemverursacher_AfterUpdate()
call AddCtrlToList("Problemverursacher", "Problemverursacher")
call UpdateRefreshBtn()
End Sub
Sub Kunde_AfterUpdate()
call AddCtrlToList("Kunde", "Kunde")
call UpdateRefreshBtn()
End Sub
Sub Datum_AfterUpdate()
call AddCtrlToList("Datum", "Datum")
call UpdateRefreshBtn()
End Sub
Sub Name_1_AfterUpdate()
call AddCtrlToList("Name_1", "Name 1")
call UpdateRefreshBtn()
End Sub
Sub nav_btn_MoveFirstRecord_Click()
Window.Location.Href =
"localhost/Reaktionsbogen.asp?nav_btn=nav_btn_MoveFirstRecord&" & GetCtrlQueryString()
End Sub
Sub nav_btn_MovePrevRecord_Click()
Window.Location.Href = "Reaktionsbogen.asp?nav_btn=nav_btn_MovePrevRecord&" &
GetCtrlQueryString()
End Sub
Sub nav_btn_MoveNextRecord_Click()
Window.Location.Href =
"localhost/Reaktionsbogen.asp?nav_btn=nav_btn_MoveNextRecord&" & GetCtrlQueryString()
End Sub
Sub nav_btn_MoveLastRecord_Click()
Window.Location.Href = "Reaktionsbogen.asp?nav_btn=nav_btn_MoveLastRecord&" &
GetCtrlQueryString()
End Sub
Sub nav_btn_MoveAddRecord_Click()
Window.Location.Href = "Reaktionsbogen.asp?nav_btn=nav_btn_MoveAddRecord&" &
GetCtrlQueryString()
End Sub
Sub nav_btn_MoveCommitRecord_Click()
Window.Location.Href = "Reaktionsbogen.asp?nav_btn=nav_btn_MoveCommitRecord&" &
GetCtrlQueryString()
End Sub
Sub nav_btn_MoveCancelUpdate_Click()
Window.Location.Href = "Reaktionsbogen.asp?nav_btn=nav_btn_MoveCancelUpdate&"
End Sub
Sub nav_btn_MoveDeleteRecord_Click()
If MsgBox("Klicken Sie auf OK, um den aktuellen Datensatz zu l�schen", 1,
"Versuch191101") =1 Then
Window.Location.Href = "Reaktionsbogen.asp?nav_btn=nav_btn_MoveDeleteRecord&"
End If
End Sub
%>
</script>
<div ID="Reaktionsbogen"
STYLE="LAYOUT:FIXED;HEIGHT:420;WIDTH:629;">
<dd><br>
<p>
<object ID="nav_btn_MoveAddRecord"
CLASSID="clsid:D7053240-CE69-11CD-A777-00DD01143C57"
STYLE="TOP:392;LEFT:112;WIDTH:150;HEIGHT:28;ZINDEX:3;" width="200" height="28">
<param name="ForeColor" value="0">
<param name="VariousPropertyBits" value="2">
<param name="Caption" value="Neuer Datensatz">
<param name="Size" value="5292;741">
<param name="ParagraphAlign" value="3">
</object>
</p>
<p>
....
________________________________________________________________
Keine verlorenen Lotto-Quittungen, keine vergessenen Gewinne mehr!
Beim WEB.DE Lottoservice: http://tippen2.web.de/?x=13
| 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
