hi,
Nicole Giebeler schrieb:
> Hallo,
>
> hat vor einiger Zeit das gleiche Problem, kannst Du bitte mal die Codezeile
> (Update ...)schicken.
hier der code:
<%Dim tempDay, editSQL, editConn, complDate, tempMon, hinweis
hinweis = ""
tempDay = Request.Form("tag")
tempMon = Request.Form("monat")
if (tempDay <= 9) Then
tempDay = "0" & tempDay
end if
if (tempMon <= 9) Then
tempMon = "0" & tempMon
end if
complDate = tempDay & "." & tempMon & "." & Request.Form("jahr")
if (Request("putme") <> "") Then
titel = Request.Form("titel")
autor = Request.Form("autor")
aemail = Request.Form("a_email")
nbody = Request.Form("nbody")
if (isDate(complDate) = TRUE) Then
editSQL = "UPDATE TblNews SET Newstitel = '" & CStr(Request.Form("titel")) & "'
,Autor = '" & CStr(Request.Form("autor")) & "',Autoremail = '" &
CStr(Request.Form("a_email")) & "',Newsdatum = '" & CStr(complDate) &
"',Newstext = '" & CStr(Request.Form("nbody")) & "' WHERE ID = " &
CStr(rsEditNews__MMColParam)
Set editConn = Server.CreateObject("ADODB.Command")
editConn.ActiveConnection = "dsn=euroguestNew;"
editConn.CommandText = editSQL
editConn.Execute
editConn.ActiveConnection.Close
response.redirect ("showNews.asp")
else
hinweis = "BITTE GEBEN SIE EIN G�LTIGES DATUM EIN!"
end if
End if
%>
--
werkstudio. werbung und design GmbH
Remscheider Str. 11a | 40215 Duesseldorf
Tel. 0211 | 31 16 52-14 Fax 0211 | 31 16 52-29
http://www.werkstudio.de | mailto:[EMAIL PROTECTED]
| 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
