Hi,
du kannst entweder das mit einer aufwendigen Stringverarbeitung macxhen oder
vielleicht mit XML �ber eine email an ein Taskkonto verschicken.
###################################
Bildung des XML-Strings
###################################
formE = Array("au_id", "bestellnr",_
"firma1", "firma2", .......,"gwl")
strXML = ""
strXML= strXML & "<rapport><auftraege "
for each eName in formE
if eName = "fehlerart_s" then
if document.rapport.fehlerart_s.checked = true then
strXML = strXML & "fehlerart_s = '" & 1 & "' "
else
strXML = strXML & "fehlerart_s = '" & 0 & "' "
end if
elseif eName = "gwl" then
if document.rapport.gwl(0).checked = true then
strXML = strXML & "gwl= '" & 1 & "' "
else
strXML = strXML & "gwl = '" & 0 & "' "
end if
else
strXML = strXML & eName & "='" &
replEntChars(document.rapport(eName).value) & "' "
end if
next
strXML = strXML & "aktion = 'update' /> "
strXML = strXML & "<statusverfolgung st_id = '" &
document.rapport("st_id").value & "' /> "
'arbeitszeiten einlesen
strXML = strXML & "<arbeitszeit te_id='" &
document.rapport.te_id.value &
"'>"
rowid = 0
gesamt = 0
{strXML=strXML&blablabla}
strXML = strXML & "</arbeitszeit>"
strXML = strXML & "<gesamt>" & gesamtHM & "</gesamt>"
strXML = strXML & "<material> "
rowid = 0
for each feld in document.rapport.ma_id
strXML = strXML & "<row "
for each eName in formE
strXML = strXML & eName & "='" &
replEntChars(document.rapport(eName).item(rowid).value) & "' "
next
ma_id = document.rapport.ma_id(rowid).value
strXML = strXML & "aktion = 'insertv' /> "
rowid = rowid + 1
next
strXML = strXML & "</material> "
strXML = strXML & "<teams techniker='" &
replEntChars(document.rapport("techniker").value) & "' /> "
strXML = strXML & "</rapport> "
' dann per CDONTS-Newmail verschicken falls Server=Arbeitsstation sonst kann
' man den XML String auch lokal speichern und auslesen
####################################################
ENDE XML-String erstellen
Anfang XML auslesen
##############################################
'Anmeldung ans Postfach
Set objCurSession = CreateObject("CDONTS.Session")
objCurSession.LogonSMTP strUserName, strUserEmail
Set objInbox = objCurSession.Inbox
Set colMsgs = objInbox.Messages
Set objXML = CreateObject("Microsoft.XMLDOM")
If colMsgs.Count > 0 Then
'liegen eMails zur Verarbeitung vor?
For intLoop = 1 To colMsgs.Count 'alle eMails durcharbeiten
strXML = (colMsgs(intLoop).Text) 'eMail-Body auslesen
objXML.loadXML strXML 'in XML-Instanz laden
If objXML.parseError.errorCode <> 0 Then
call errMail(strErr,
strXML) 'Fehlerbehandlung
colMsgs(intLoop).delete
objCurSession.logoff
else
Set objSpezElement =
objWurzelElement.parentNode.childNodes.Item(0).getElementsByTagName("arbeitszeit")
te_id = objSpezElement.Item(0).getAttribute("te_id")
For i = 0 To objSpezElement.Item(0).childNodes.length - 1
datum = objSpezElement.Item(0).childNodes.Item(i).getAttribute("datum")
{usw.........}
end if
--
GMX - Die Kommunikationsplattform im Internet.
http://www.gmx.net
| 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
