[aspdebeginners] Re: update von Select-Feldern

FrankSpener Fri, 19 Oct 2001 07:15:24 -0700

SchrottArt und Grund sind Select-Felder

<%
response.buffer=true
%>
<html>

<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=windows-1252">
<title>Sperrlager Update</title>
<meta name="Microsoft Border" content="b">
</head>

<body><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td valign="top">
<%
Dim counter
On Error resume next
xSchrottID=Request.QueryString("ySchrottID")
xDatum=Request.QueryString("yDatum")
xMaterial=Request.QueryString("yMaterial")
xAuftrag=Request.QueryString("yAuftrag")
xAbmess=Request.QueryString("yAbmess")
xKunde=Request.QueryString("yKunde")
xGrund=Request.QueryString("yGrund")
xSchrottArt=Request.QueryString("ySchrottArt")
xGewicht=Request.QueryString("yGewicht")
xEntscheid=Request.QueryString("yEntscheid")
xNAuftrag=Request.QueryString("yNAuftrag")
xAbschluss=Request.QueryString("yAbschluss")
%>

<%'//----------------------------------//
'// Plausibilit�tspr�fungen
'//----------------------------------//
Dim dctErrMsg '// Scripting.Dictionary object of error messages
Dim ary '// Array used to display error messages
Dim ii '// Counter for displaying error messages

If IsObject(Session("QS_Abw_conn")) Then
 Set conn = Session("QS_ABW_conn")
Else
 Set conn = Server.CreateObject("ADODB.Connection")
 conn.open "QS_ABW","",""
 Set Session("QS_Abw_conn") = conn
End If
%>
<%
Set dctErrMsg = CreateObject("Scripting.Dictionary")

If xDatum="Datum" then
dctErrMsg.Add "1", "Kein Datum angegeben"
End If
If xAuftrag="Auftrags-Nr." then
dctErrMsg.Add "2", "Keine Auftrags-Nr. angegeben"
End If

ary = dctErrMsg.Items '// Store error messages in an array for looping
If dctErrMsg.Count = 0 Then

%>

<%
'Wenn xSchrottID leer ist, dann Neuanlage, sonst Update
If xSchrottID="" then
sql="Insert into TBSperrlager (Datum, Material, Auftrag, Abmess, Kunde, Grund, SchrottArt, Gewicht, Entscheid, NAuftrag, Abschluss) "
sql=sql & " Values ('" & cstr(xDatum) & "', "
sql=sql & " '" & cstr(xMaterial) & "', "
sql=sql & " '" & cstr(xAuftrag) & "', "
sql=sql & " '" & cstr(xAbmess) & "', "
sql=sql & " '" & cstr(xKunde) & "', "
sql=sql & " '" & cstr(xGrund) & "', "
sql=sql & " '" & cstr(xSchrottArt) & "', "
sql=sql & " '" & cstr(xGewicht) & "', "
sql=sql & " '" & cstr(xEntscheid) & "', "
sql=sql & " '" & cstr(xNAuftrag) & "', "
sql=sql & " '" & cstr(xAbschluss) & "')"

else
 sql = "Update Auftrag set "
sql=sql & "Datum='" & cstr(xDatum) & "', "
sql=sql & "Material='" & cstr(xMaterial) & "', "
sql=sql & "Auftrag='" & cstr(xAuftrag) & "', "
sql=sql & "Abmess='" & cstr(xAbmess) & "', "
sql=sql & "Kunde='" & cstr(xKunde) & "', "
sql=sql & "Grund='" & cstr(xGrund) & "', "
sql=sql & "SchrottArt='" & cstr(xSchrottArt) & "', "
sql=sql & "Gewicht='" & cstr(xGewicht) & "', "
sql=sql & "Entscheid='" & cstr(xEntscheid) & "', "
sql=sql & "NAuftrag='" & cstr(xNAuftrag) & "', "
sql=sql & "Abschluss='" & cstr(xAbschluss) & "', "

sql=sql & " where idSchrottID= " & CLng(xSchrottID) & ""
end if
set rs=conn.execute(sql)
errFlag=False

%> 

 

<% 'Hier Fehlerbehandlung individuell mit 
if errFlag=True then
%> 

<a href="">Zur�ck</a> <%else
response.redirect "SperrDaten.asp?SchrottID=" & xSchrottID & ""
end if %> <% 'Else-Zweig der Plausibilit�tspr�fung: Hier werden Fehler ausgegeben
Else %> 

Folgende Fehler wurden bei der Eingabe erkannt:
: 

<hr>

<%'// Ausgabe Fehlermeldungen %> <% For ii = 0 To dctErrMsg.Count -1 'Iterate the array %> 

<ul>
<li><%Response.Write( ary(ii) & "" ) %> 
</li>
</ul>

<%Next %> 

<hr>

Bitte Daten erneut und verbessert eingeben. <% end if %>
</td></tr></table><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td>


</td></tr></table></body>
</html>
| 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

[aspdebeginners] Re: update von Select-Feldern

Antwort per Email an