Habe das Vor und Zur�ck entfernt, und das funktioniert auch Ohne. Das
Mit den Zwei erstellten Datens�tzen ist immer noch da:
Hier der Gesammte Quellcode:
Hab die Stelle mit dem Update mit 'xxxxxxxxxxxxxxxxxxx UPDATE
xxxxxxxxxxxxxxxxxx markiert.
Danke!
Mlg Lukas
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../../../Connections/Daten.asp" -->
<!--#include file="../../../Einstellungen/alle_einstellungen.asp" -->
<!--#include file="../../../ASP/Includes/zugriff.asp" -->
<%
Dim Oben__MMColParam
Oben__MMColParam = "1"
If (Request.Form("UnterSeite") <> "") Then
Oben__MMColParam = Request.Form("UnterSeite")
End If
%>
<%
Dim Oben
Dim Oben_numRows
Set Oben = Server.CreateObject("ADODB.Recordset")
Oben.ActiveConnection = MM_Daten_STRING
Oben.Source = "SELECT * FROM Seiten WHERE ID = " +
Replace(Oben__MMColParam, "'", "''") + ""
Oben.CursorType = 0
Oben.CursorLocation = 2
Oben.LockType = 1
Oben.Open()
Oben_numRows = 0
%>
<%
Dim Vorlage__MMColParam
Vorlage__MMColParam = "1"
If (Request.Form("Vorlage") <> "") Then
Vorlage__MMColParam = Request.Form("Vorlage")
End If
%>
<%
Dim Vorlage
Dim Vorlage_numRows
Set Vorlage = Server.CreateObject("ADODB.Recordset")
Vorlage.ActiveConnection = MM_Daten_STRING
Vorlage.Source = "SELECT * FROM Seiten WHERE ID = " +
Replace(Vorlage__MMColParam, "'", "''") + ""
Vorlage.CursorType = 0
Vorlage.CursorLocation = 2
Vorlage.LockType = 1
Vorlage.Open()
Vorlage_numRows = 0
%>
<%
Dim Sprache__MMColParam
Sprache__MMColParam = "1"
If (Request.Form("Sprache") <> "") Then
Sprache__MMColParam = Request.Form("Sprache")
End If
%>
<%
Dim Sprache
Dim Sprache_numRows
Set Sprache = Server.CreateObject("ADODB.Recordset")
Sprache.ActiveConnection = MM_Daten_STRING
Sprache.Source = "SELECT * FROM Sprachen WHERE ID = " +
Replace(Sprache__MMColParam, "'", "''") + ""
Sprache.CursorType = 0
Sprache.CursorLocation = 2
Sprache.LockType = 1
Sprache.Open()
Sprache_numRows = 0
%>
<%
Dim Design__MMColParam
Design__MMColParam = "1"
If (Request.Form("Design") <> "") Then
Design__MMColParam = Request.Form("Design")
End If
%>
<%
Dim Design
Dim Design_numRows
Set Design = Server.CreateObject("ADODB.Recordset")
Design.ActiveConnection = MM_Daten_STRING
Design.Source = "SELECT * FROM Designs WHERE ID = " +
Replace(Design__MMColParam, "'", "''") + ""
Design.CursorType = 0
Design.CursorLocation = 2
Design.LockType = 1
Design.Open()
Design_numRows = 0
%>
<%
Dim Neu
Dim Neu_numRows
Set Neu = Server.CreateObject("ADODB.Recordset")
Neu.ActiveConnection = MM_Daten_STRING
Neu.Source = "SELECT * FROM Seiten"
Neu.CursorType = 1
Neu.CursorLocation = 2
Neu.LockType = 3
Neu.Open()
Neu_numRows = 0
%>
<!-- WebButler V2.0, (C) 2002/2003 by Attain:Group -->
<html>
<head>
<title>WebButler2</title>
<meta http-equiv="Content-Type" content="text/html;
charset=iso-8859-1">
<link
href="../../../Design/CSS/Administration/default.css" rel="stylesheet"
type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_goToURL() { //v3.0
var i,
args=MM_goToURL.arguments; document.MM_returnValue = false;
for (i=0;
i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
//-->
</script>
</head>
<%
Neu.AddNew
' V Seitenname
###########################################################
if Request.Form("Seitenname") <>
"" Then
Neu("Seitenname") =
Request.Form("Seitenname")
else
Neu("Seitenname") =
System_Paket_CMS_StandardSeitenName
end if
' V Sprache
##############################################################
if Request.Form("Sprache") <> ""
Then
Neu("Sprache") =
Request.Form("Sprache")
else
Neu("Sprache") =
System_Paket_Sprachen_Standard
end if
' V Unterseite
###########################################################
Neu("Subvon") =
Request.Form("Unterseite")
' V Design
###############################################################
TMPDesign = Pfad_WebRoot
+ "/Design/CSS/Vorlagen/" + CStr(Design("CSSfile"))
' V Seitenquelltext generieren
###########################################
Neu("Bild") =
Vorlage("Bild")
Quelltext =
Vorlage("Quelltext")
Quelltext =
Replace(Quelltext, "[CSSFile]", TMPDesign)
Neu("Quelltext") =
Quelltext
%>
<%
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX UPDATE
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Neu.Update
tid = CStr(Neu("ID"))
'Neu.MovePrevious
'Neu.MoveNext
'<body
onLoad="MM_goToURL('parent.frames[\'fBrowser\']','../Browser/Seitenliste
.asp');goedit()">
editorurl = ("../../Komponenten/HTMLEditor/editor.asp?Seite=" +
Pfad_WebRoot +
"/Administration/CMS/tmp.asp&SeiteParam1=ID&SeiteParam1v=" + tid +
"&Tabelle=Seiten&ID=" + tid + "&Spalte=Quelltext")
response.Redirect(editorurl)
%>
<script type="text/javascript">
<!--
function goedit() {
window.location.href = "<%=editorurl%>";
}
//-->
</script>
<body onLoad="">
<p><br>
<% sec("4") %>
</p>
<p><strong>Die Seite wurde erstellt!<br>
Sie werden nun zum Editor umgeleitet ......</strong></p>
<p> </p>
</body>
</html>
<%
Oben.Close()
Set Oben = Nothing
%>
<%
Vorlage.Close()
Set Vorlage = Nothing
%>
<%
Sprache.Close()
Set Sprache = Nothing
%>
<%
Design.Close()
Set Design = Nothing
%>
<%
Neu.Close()
Set Neu = Nothing
%>
-----Urspr�ngliche Nachricht-----
Von: [EMAIL PROTECTED]
[mailto:bounce-aspdebeginners-1057482@;aspfriends.com] Im Auftrag von
[EMAIL PROTECTED]
Gesendet: Dienstag, 12. November 2002 15:59
An: ASP Diskussionsliste fuer Anfaenger
Betreff: [aspdebeginners] AW: [aspdebeginners] Update - zwei Eintr�ge
Hallo,
F�r was hast du rs.MoveNext,rs.MovePrevious drin ?
mfg
Martin
-----Urspr�ngliche Nachricht-----
Von: Lukas Dorn-Fussenegger [mailto:attain.graphics@;web.de]
Gesendet: Dienstag, 12. November 2002 15:43
An: ASP Diskussionsliste fuer Anfaenger
Betreff: [aspdebeginners] Update - zwei Eintr�ge
Ich hab vor 2 Wochen schon das Problem mit dem herausfinden der ID eines
gerade erstellten datensatzes gel�st. Nun ist leider ein weiteres
aufgetaucht: mit der Variante
'-------------------------------------------
rs.CursorLocation = 2 ' adUseServer
rs.CursorType = 1 ' adOpenKeyset
rs.LockType = 3 ' adLockOptimistic
'-------------------------------------------
Rs.addNew
rs("Spalte1") = "Wert1"
rs("Spalte2") = "Wert2"
rs.update
rs.MoveNext
rs.MovePrevius
ID=rs("ID")
Werden gleich zwei Eintr�ge erstellt. Wei� von euch jemand, woran das
liegen kann?
| 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
| 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
