Übersicht der erfassten Schnellmeldungen
für den Wahlkreis 48
Landeswappen Baden-Württemberg'
(Diese Seite wird am Wahlabend regelmäßig aktualisiert)

[Seite aktualisieren?] [Zurück zu Wahlen]

<% ' Formularparameter in der Abfrage ersetzen. fp_sQry = "select * from lbezirke where Kreis = 48 order by Bezirksname" fp_sDefault = "" fp_sNoRecords = "Keine Datensätze erhalten" fp_iMaxRecords = 0 fp_iTimeout = 0 fp_iCurrent = 1 fp_fError = False fp_bBlankField = False If fp_iTimeout <> 0 Then Server.ScriptTimeout = fp_iTimeout Do While (Not fp_fError) And (InStr(fp_iCurrent, fp_sQry, "%%") <> 0) ' öffnendes Anführungszeichen gefunden, schließendes Anführungszeichen wird gesucht. fp_iStart = InStr(fp_iCurrent, fp_sQry, "%%") fp_iEnd = InStr(fp_iStart + 2, fp_sQry, "%%") If fp_iEnd = 0 Then fp_fError = True Response.Write "Datenbankbereichsfehler: Parameterbegrenzer passen nicht zusammen" Else fp_sField = Mid(fp_sQry, fp_iStart + 2, fp_iEnd - fp_iStart - 2) If Mid(fp_sField,1,1) = "%" Then fp_sWildcard = "%" fp_sField = Mid(fp_sField, 2) Else fp_sWildCard = "" End If fp_sValue = Request.Form(fp_sField) ' Prüfen, ob das angegebene Formularfeld tatsächlich existiert. If (len(fp_sValue) = 0) Then fp_iCurrentField = 1 fp_bFoundField = False Do While (InStr(fp_iCurrentField, fp_sDefault, fp_sField) <> 0) _ And Not fp_bFoundField fp_iCurrentField = InStr(fp_iCurrentField, fp_sDefault, fp_sField) fp_iStartField = InStr(fp_iCurrentField, fp_sDefault, "=") If fp_iStartField = fp_iCurrentField + len(fp_sField) Then fp_iEndField = InStr(fp_iCurrentField, fp_sDefault, "&") If (fp_iEndField = 0) Then fp_iEndField = len(fp_sDefault) + 1 fp_sValue = Mid(fp_sDefault, fp_iStartField+1, fp_iEndField-1) fp_bFoundField = True Else fp_iCurrentField = fp_iCurrentField + len(fp_sField) - 1 End If Loop End If ' Das folgende Codestück sucht nach dem angegebenen Formularfeldnamen, ' und verdoppelt darin alle einfachen Anführungszeichen, ' damit SQL nicht durch das Auftreten von nicht-paarweisen einfachen Anführungszeichen verwirrt wird. If (Mid(fp_sQry, fp_iStart - 1, 1) = """") Then fp_sValue = Replace(fp_sValue, """", """""") ElseIf (Mid(fp_sQry, fp_iStart - 1, 1) = "'") Then fp_sValue = Replace(fp_sValue, "'", "''") ElseIf Not IsNumeric(fp_sValue) Then fp_sValue = "" End If If (len(fp_sValue) = 0) Then fp_bBlankField = True fp_sQry = Left(fp_sQry, fp_iStart - 1) + fp_sWildCard + fp_sValue + _ Right(fp_sQry, Len(fp_sQry) - fp_iEnd - 1) ' Die aktuelle Position so korrigieren, daß sie nach dem ersetzten Wert liegt. fp_iCurrent = fp_iStart + Len(fp_sValue) + Len(fp_sWildCard) End If Loop If Not fp_fError Then ' Den Verbindungstext so verwenden, wie er im Assistenten eingegeben wurde. On Error Resume Next set fp_rs = CreateObject("ADODB.Recordset") If fp_iMaxRecords <> 0 Then fp_rs.MaxRecords = fp_iMaxRecords fp_rs.Open fp_sQry, "DSN=F1LRF010" If Err.Description <> "" Then Response.Write "Datenbankfehler: " + Err.Description + "" if fp_bBlankField Then Response.Write " Eines oder mehrere Formularfelder waren leer." End If Else ' Den Fall prüfen, daß kein Datensatz vorhanden ist. If fp_rs.EOF And fp_rs.BOF Then Response.Write fp_sNoRecords Else ' While-Schleife zum Einlesen jedes Datensatzes aus der Ergebnismenge. Do Until fp_rs.EOF %> <% ' Schleife zum Abarbeiten der Datensätze schließen. fp_rs.MoveNext Loop End If fp_rs.Close ' If-Anweisung schließen und auf Verbindungsfehler prüfen. End If ' Die If-Anweisung schließen, die den Code zum Überprüfen von Parserfehlern enthält. End If set fp_rs = Nothing %>
Wahlkreis AGS Bezirksname Schnellmeldung
erfasst um
<% If Not IsEmpty(fp_rs) And Not (fp_rs Is Nothing) Then Response.Write CStr(fp_rs("Kreis")) %> <% If Not IsEmpty(fp_rs) And Not (fp_rs Is Nothing) Then Response.Write CStr(fp_rs("AGS")) %> <% If Not IsEmpty(fp_rs) And Not (fp_rs Is Nothing) Then Response.Write CStr(fp_rs("Bezirksname")) %> <% If Not IsEmpty(fp_rs) And Not (fp_rs Is Nothing) Then Response.Write CStr(fp_rs("Uhrzeit")) %>

[Zurück zu Wahlen]