Startseite clearpixelEAM Mager
" & vbCrLf Response.Write "" & vbCrlf End Sub Sub WritePagingHeaders() %> <% End Sub %>
clearpixel
 
clearpixel
Installationen
Datentechnik
Haustechnik/Heizung
Anlagenbau
EIB
E-Check
Referenzen

Startseite
Kontakt
News
Gästebuch
Firma
Service
Zulassungen
Impressum

 

 

Gästebucheinträge | Eintragen | Admin

<% 'strConnection = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" 'strConnection = strConnection & Server.MapPath("guestbookheso.mdb") 'strConnection = strConnection & ";DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5;" strConnection = "12mag8er" ' korrekt nach Datum absteigend sortiert; first ten records Const cstrFirstTenRecords = "SELECT TOP 10 IdField,Name,EmailAddress,Homepage,Browser,OperatingSystem,EntryDate,Comment from Guestbook ORDER BY IdField DESC" ' next ten records Const cstrNextTenRecP1 = "SELECT TOP 10 IdField,Name,EmailAddress,Homepage,Browser,OperatingSystem,EntryDate,Comment from Guestbook WHERE IdField < " Const cstrNextRecP2 = " ORDER BY IdField DESC" ' previous ten records; WRONG SORT ORDER INITIALLY! Const cstrPrevTenRecP1 = "SELECT TOP 10 IdField,Name,EmailAddress,Homepage,Browser,OperatingSystem,EntryDate,Comment from Guestbook WHERE IdField > " Const cstrPrevRecP2 = " ORDER BY IdField ASC" strPageDirection = Trim(Request.QueryString("Page")) If "" = strPageDirection Then strPageDirection = "Start" nLastIndex = Trim(Request.QueryString("Index")) If ("" = nLastIndex Or Not IsNumeric(nLastIndex)) Then strPageDirection = "Start" Select Case strPageDirection Case "Next" strSQL = cstrNextTenRecP1 & nLastIndex & cstrNextRecP2 Case "Prev" strSQL = cstrPrevTenRecP1 & nLastIndex & cstrPrevRecP2 bTopDown = True Case Else strSQL = cstrFirstTenRecords End Select Set conn = CreateObject("ADODB.Connection") conn.Open strConnection Set rs = CreateObject ("ADODB.Recordset") rs.Open strSQL, conn If Not rs.EOF and Not rs.BOF Then avarRecords = rs.GetRows() Else bNoRecords = True End If rs.Close ' get summary information 'rs.Open "SELECT * FROM qSummaries", conn 'nTotalRecords = rs(0) 'If nTotalRecords <> 0 Then 'rs.MoveNext 'nTotalMax = rs(0) 'brs.MoveNext 'nTotalMin = rs(0) 'End If 'rs.Close conn.Close Set rs = Nothing Set conn = Nothing strScriptName = Request.ServerVariables("SCRIPT_NAME") If Not bNoRecords Then nRecords = UBound(avarRecords,2) If Not bTopDown Then nPrevPaging = avarRecords(0,0) nLastPaging = avarRecords(0,nRecords) Else nPrevPaging = avarRecords(0,nRecords) nLastPaging = avarRecords(0,0) End If Response.Write "" Response.Write "" & vbCrLf WritePagingHeaders If Not bTopDown Then For intRecord = 0 To nRecords WriteRecord avarRecords, intRecord Next Else For intRecord = nRecords To 0 Step -1 WriteRecord avarRecords, intRecord Next End If WritePagingHeaders Response.Write "
Einträge: " & nTotalRecords Response.Write "
" Else Response.Write "

Keine Eintragungen gefunden!

" End If ' bNoRecords Sub WriteRecord(avarRecords, intRecord) Response.Write "
" Response.Write "Name: " & avarRecords(1,intRecord) & "
" Response.Write "eMail: " If "" <> avarRecords(2,intRecord) Then Response.Write "" Response.Write avarRecords(2,intRecord) & "" Else Response.Write "keine" End If Response.Write "
" Response.Write "Homepage: " If "" <> avarRecords(3,intRecord) Then Response.Write "" Response.Write "http://" & avarRecords(3,intRecord) & "" Else Response.Write "keine Homepage angegeben" End If Response.Write "
" Response.Write "Kommentar: " & Replace(avarRecords(7,intRecord),vbCrlf,"
") & "
" Response.Write "
" Response.Write avarRecords(5,intRecord) & " / " & avarRecords(4,intRecord) Response.Write "
" & avarRecords(6,intRecord) & "" Response.Write "

<% If nTotalMax > nPrevPaging Then Response.Write "10 zurück" Else Response.Write "10 zurück" End If %> | " target="_self">anfang | <% If nTotalMin < nLastPaging Then Response.Write "nächsten 10" Else Response.Write "nächsten 10" End If %>

Firmenname:
EAM Elektroanlagen Mager

Firmensitz:
Weißbacher Straße 13f
OT Gersdorf
01920 Haselbachtal

Telefon: 03578/306751

Telefax: 03578/306752

24-Stunden-Service:
0172/3511133

e-Mail:
 info@eam-mager.de