<% ' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit. On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 1252 Session.LCID = 1031 Err.Clear strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Cannot create connection" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Cannot create record set" fp_conn.Open Application("Datenbank1_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "TUI_Alert", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Cannot open record set" fp_rs.AddNew FP_DumpError strErrorUrl, "Cannot add new record set to the database" Dim arFormFields0(30) Dim arFormDBFields0(30) Dim arFormValues0(30) arFormFields0(0) = "optVomit" arFormDBFields0(0) = "Erbrechen" arFormValues0(0) = Request("optVomit") arFormFields0(1) = "optDiarrhea" arFormDBFields0(1) = "Durchfall" arFormValues0(1) = Request("optDiarrhea") arFormFields0(2) = "txtDiagTemp" arFormDBFields0(2) = "(Vorlaeufige)Diagnose" arFormValues0(2) = Request("txtDiagTemp") arFormFields0(3) = "txtNofInj" arFormDBFields0(3) = "Zahl_der_Verletzten" arFormValues0(3) = Request("txtNofInj") arFormFields0(4) = "txtAge" arFormDBFields0(4) = "Alter" arFormValues0(4) = Request("txtAge") arFormFields0(5) = "txtAccidentLoc" arFormDBFields0(5) = "Unfallort" arFormValues0(5) = Request("txtAccidentLoc") arFormFields0(6) = "dlCountry" arFormDBFields0(6) = "Land_ID" arFormValues0(6) = Request("dlCountry") arFormFields0(7) = "optTreatmentInsuff" arFormDBFields0(7) = "Unterversorgung" arFormValues0(7) = Request("optTreatmentInsuff") arFormFields0(8) = "optHelpNeeded" arFormDBFields0(8) = "Hilfe_von_Zentrale_erforderlich" arFormValues0(8) = Request("optHelpNeeded") arFormFields0(9) = "optHeadache" arFormDBFields0(9) = "Kopfschmerz" arFormValues0(9) = Request("optHeadache") arFormFields0(10) = "optSex" arFormDBFields0(10) = "Geschlecht" arFormValues0(10) = Request("optSex") arFormFields0(11) = "txtSignature" arFormDBFields0(11) = "Melder" arFormValues0(11) = Request("txtSignature") arFormFields0(12) = "txtAccidentDescri" arFormDBFields0(12) = "Unfallhergang" arFormValues0(12) = Request("txtAccidentDescri") arFormFields0(13) = "txtPrevMedication" arFormDBFields0(13) = "Dauermedikation" arFormValues0(13) = Request("txtPrevMedication") arFormFields0(14) = "dlLocation" arFormDBFields0(14) = "Station_ID" arFormValues0(14) = Request("dlLocation") arFormFields0(15) = "txtTrauma" arFormDBFields0(15) = "Verletzung" arFormValues0(15) = Request("txtTrauma") arFormFields0(16) = "optFever" arFormDBFields0(16) = "Fieber" arFormValues0(16) = Request("optFever") arFormFields0(17) = "txtAccidentCause" arFormDBFields0(17) = "Unfallursache" arFormValues0(17) = Request("txtAccidentCause") arFormFields0(18) = "optVertigo" arFormDBFields0(18) = "Schwindel" arFormValues0(18) = Request("optVertigo") arFormFields0(19) = "optDeterior" arFormDBFields0(19) = "Verschlechterung" arFormValues0(19) = Request("optDeterior") arFormFields0(20) = "opthelpNeeded" arFormDBFields0(20) = "opthelpNeeded" arFormValues0(20) = Request("opthelpNeeded") arFormFields0(21) = "txtPrevDisease" arFormDBFields0(21) = "Vorerkrankungen" arFormValues0(21) = Request("txtPrevDisease") arFormFields0(22) = "optHospital" arFormDBFields0(22) = "Stationaer" arFormValues0(22) = Request("optHospital") arFormFields0(23) = "optCritical" arFormDBFields0(23) = "Kritischer_Zustand" arFormValues0(23) = Request("optCritical") arFormFields0(24) = "optAlcohol" arFormDBFields0(24) = "Alkoholeinfluss" arFormValues0(24) = Request("optAlcohol") arFormFields0(25) = "txtDiagTherapy" arFormDBFields0(25) = "(Vorlaeufige)Therapie" arFormValues0(25) = Request("txtDiagTherapy") arFormFields0(26) = "txtBegin" arFormDBFields0(26) = "Erkrankungsbeginn" arFormValues0(26) = Request("txtBegin") arFormFields0(27) = "txtComments" arFormDBFields0(27) = "Sonstige_Bemerkungen" arFormValues0(27) = Request("txtComments") arFormFields0(28) = "optDocSeen" arFormDBFields0(28) = "Arztbesuch" arFormValues0(28) = Request("optDocSeen") arFormFields0(29) = "txtSympt" arFormDBFields0(29) = "Sonstige" arFormValues0(29) = Request("txtSympt") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 If Request.ServerVariables("REMOTE_USER") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "Benutzername1" End If If Request.ServerVariables("REMOTE_HOST") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Name_des_Remotecomputers1" End If If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Browsertyp1" End If FP_SaveFieldToDB fp_rs, Now, "Zeitmarkierung1" fp_rs.Update FP_DumpError strErrorUrl, "Cannot update the database" fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Form Confirmation",_ "Thank you for submitting the following information:",_ "OB_Input4.asp",_ "Return to the form." End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> Eingabe neu aufgetretener Erkrankungen und Verletzungen

Eingabe neu aufgetretener Erkrankungen und Verletzungen 

Ortsangaben Patientendaten
MTTS_ DB_ Land Alter
T__Reiseziele Geschlecht w
Vorerkrankungen
Symptome
  j    n   j     n
Fieber Durchfall
Erbrechen
Kopfschmerzen Schwindel
Sonstige
Unfalldaten
Unfallursache
Unfallhergang
Unfallort Verschulden
Alkoholeinfluss jn
Verletzungen Anzahl der Verletzten
Status
Erkrankungsbeginn  Stationäre Behandlung j n
Verschlechterung j n Arztbesuch j n
Diagnose, vorläufig
Therapie, vorläufig
Kritischer Zustand j n Unterversorgung j n
Beurteilung
Hilfe von Zentrale erforderlich j n            Sonstige Bemerkungen
Melder(incl Titel. eMail)