Kontakt-Buch

<%@ LANGUAGE="VBSCRIPT" %> <% Response.Buffer = True %> <% Session("ConnGuestBook_ConnectionString4") = "DBQ=" & Server.Mappath("..\..\_database\kontakt1.mdb") & ";DefaultDir=" & Server.Mappath("..\..\_database") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;" Session("ConnGuestBook_ConnectionTimeout") = 15 Session("ConnGuestBook_CommandTimeout") = 30 Session("ConnGuestBook_RuntimeUserName") = "admin" Session("ConnGuestBook_RuntimePassword") = "" %> <% STATUS = Request.FORM("STATUS")&Request.querystring("STATUS") %> <% PASSWORD = Request.FORM("PASSWORD")&Request.querystring("PASSWORD") %> <% Sort= Request.FORM("sort") %> <% If STATUS = "CHECKEM" Then %> <% If PASSWORD = "rojin" THEN %> <% Session("H_Sort") = "" %> <% if PASSWORD="rojin" then Session("Current_user") = "ABACUS" %> <% if PASSWORD="cherie" then Session("Current_user") = "ABACUS" %> <% if PASSWORD="shiva" then Session("Current_user") = "Dealer" %> <% if PASSWORD="1967" then Session("Current_user") = "Dealer" Session("H_Sort") = "" End If %> <% if PASSWORD="ozean5" then Session("Current_user") = "Dealer" Session("H_Sort") = "" End If %> <% if PASSWORD="gipfel8" then Session("Current_user") = "Dealer" Session("H_Sort") = "" End If %> <% if PASSWORD="RLS" then Session("Current_user") = "Dealer" Session("H_Sort") = "" End If %> <% if PASSWORD="pufhj4" then Session("Current_user") = "Dealer" Session("H_Sort") = "4" End If %> <% if PASSWORD="phjgfgj5" then Session("Current_user") = "Dealer" Session("H_Sort") = "5" End If %> <% if PASSWORD="pdfgh6" then Session("Current_user") = "Dealer" Session("H_Sort") = "6" End If %> <% if PASSWORD="psgsd7" then Session("Current_user") = "Dealer" Session("H_Sort") = "7" End If %> <% if PASSWORD="pfgzer8" then Session("Current_user") = "Dealer" Session("H_Sort") = "8" End If %> <% if PASSWORD="pgjfgfj9" then Session("Current_user") = "Dealer" Session("H_Sort") = "9" End If %> <% if PASSWORD="pofsla1" then Session("Current_user") = "Dealer" Session("H_Sort") = "a" End If %> <% if PASSWORD="psotuch1" then Session("Current_user") = "Dealer" Session("H_Sort") = "ch" End If %> <% if PASSWORD="dialog2" then Session("Current_user") = "Dealer" %> <% if PASSWORD="xdeal3" then Session("ACCESS3") = "Yes" response.redirect ("../../webboard/defaultc.asp") end if %> <% if PASSWORD="publicx" then response.redirect ("../../webboard2/default.asp") %> <% if PASSWORD="bestellung" then response.redirect ("../../bestell/bestell.htm") %> <% Session("ACCESS") = "Yes" %> <% if Session("Current_user")="Dealer" or Session("Current_user")="ABACUS" or Session("Current_user")="ABACUS2" then Session("ACCESS2") = "Yes" Session("ACCESS3") = "Yes" end if %> <% End If %> <% End If %> <% If Session("ACCESS2") <> "Yes" Then %>

Referenzen & Anwenderberichte (pdf 1.2MB)

Werden Sie ABACUS Fachhandelspartner

ABACUS Homepage

Anwenderberichte:

Produkt-Infos

ABACUS RSS FEED

Member Login
Händler Login

<% Response.End %> <% else Session("ACCESS3") = "Yes" End If %> Kontakt-Buch

Dienste <% SORT = Request.Querystring("SORT") %> <% ACTION = Request.Querystring("ACTION") %> <% PAGE = CInt(Request.Querystring("PAGE")) %> <% RCOUNT = CInt(Request.Querystring("RCOUNT")) %> <% If RCOUNT = "" Then %> <% RCOUNT = "0" %> <% End If %> <% if action="Search" then Session("sort2")=Request.Querystring("SORT2") Sort2= Session("sort2") Dim CmdShowEntries Dim MySQL if sort2="" or sort2="Datum" then sort2="Datum DESC" Set CmdShowEntries = Server.CreateObject("ADODB.Recordset") if Session("Current_user") = "ABACUS" then if SORT="" then MySQL = "SELECT BOOK.* FROM BOOK ORDER BY " & sort2 elseif sort2="Vorlage" then MySQL = "SELECT BOOK.* FROM BOOK where vorlage like '%" & SORT & "%' ORDER BY " & sort2 elseif sort2="Ort" then MySQL = "SELECT BOOK.* FROM BOOK where ort like '" & SORT & "%' ORDER BY " & sort2 else MySQL = "SELECT BOOK.* FROM BOOK where Message like '%" & SORT & "%' or name like '%" &_ SORT & "%' or Firma like '%" & SORT & "%' or Wie like '%" & SORT & "%' or ort like '%" & SORT & "%' or tel like '%" &_ SORT & "%' ORDER BY " & sort2 end if else if SORT="" then MySQL = "SELECT BOOK.* FROM BOOK where IP_ADDRESS='H' and (ort like '" & Session("H_Sort") & "%') ORDER BY " & sort2 elseif sort2="Vorlage" then MySQL = "SELECT BOOK.* FROM BOOK where IP_ADDRESS='H' and (vorlage like '%" & SORT & "%') and (ort like '" & Session("H_Sort") & "%') ORDER BY " & sort2 elseif sort2="Ort" then MySQL = "SELECT BOOK.* FROM BOOK where IP_ADDRESS='H' and (ort like '" & SORT & "%') and (ort like '" & Session("H_Sort") & "%') ORDER BY " & sort2 else MySQL = "SELECT BOOK.* FROM BOOK where IP_ADDRESS='H' and (Message like '%" & SORT & "%' or name like '%" &_ SORT & "%' or Firma like '%" & SORT & "%' or Wie like '%" & SORT & "%' or ort like '%" & SORT & "%' or tel like '%" &_ SORT & "%') and (ort like '" & Session("H_Sort") & "%') ORDER BY " & sort2 end if end if CmdShowEntries.Open MySQL,Session("ConnGuestBook_ConnectionString4"), 3 %> <% HOWMANY = 10 %> <% '** Determine Page Size CmdShowEntries.PageSize = HOWMANY %> <% If ACTION = "VOR" Then %> <% PAGE = PAGE + 1 %> <% RCOUNT = RCOUNT + HOWMANY %> <% For DACOUNT = 1 To RCOUNT %> <% CmdShowEntries.MoveNext %> <% Next %> <% End If %> <% If ACTION = "ZURUCK" Then %> <% PAGE = PAGE - 1 %> <% RCOUNT = RCOUNT - HOWMANY %> <% If RCOUNT <> 0 Then %> <% For DACOUNT = 1 To RCOUNT %> <% CmdShowEntries.MoveNext %> <% Next %> <% End If %> <% End If %> <% If ACTION = "" and RCOUNT>0 Then %> <% For DACOUNT = 1 To RCOUNT %> <% CmdShowEntries.MoveNext %> <% Next %> <% End If %> <% PAGE = 1 %> <% If CmdShowEntries.RecordCount > 1 or CmdShowEntries.RecordCount = 0 Then %> <% =CmdShowEntries.RecordCount %> Adresse(n) sortiert nach <%= sort2 %> <% Else %> <% =CmdShowEntries.RecordCount %> Adresse(n) <% End If %>
<% If CmdShowEntries.RecordCount <> 0 And HOWMANY < CmdShowEntries.RecordCount Then %> <% = RCOUNT+1 %> - <% = RCOUNT+HOWMANY %> <% End If %> <% if Session("Current_user") = "ABACUS" then %> Vertriebsforum
Click-Übersicht <% End if %> <% If CmdShowEntries.RecordCount = 0 Then %>

<% Response.End %> <% End If %>

<% y = 0 %> <% while NOT CmdShowEntries.EOF %> "> "> "> "> <% if Session("Current_user") = "ABACUS" then url="save.asp?ID=" & CmdShowEntries("ID") & "&ART=0&RCOUNT=" & RCOUNT & "&SORT=" & request.querystring("SORT") %> <% if Session("Current_user")="ABACUS" then %> <% end if %> <% if Session("Current_user")="ABACUS" then %> <% end if %> <% else %> <% end if %> <% if CmdShowEntries("Apartner")="" and cmdShowEntries("Name")<>"" then %> <% else %> <% end if %> <% CmdShowEntries.MoveNext %> <% y = y + 1 %> <% if y = HOWMANY then %> <% while NOT CmdShowEntries.EOF %> <% CmdShowEntries.MoveNext %> <% wend %> <% end if %> <% wend%>



In das Abacus-Buch übernehmen	&ART=1&RCOUNT=<%=RCOUNT%>&SORT=<%=request.querystring("SORT")%>">Editieren
<%= CmdShowEntries("FIRMA") %>	<%= CmdShowEntries("Name") %>	<%= CmdShowEntries("Apartner") %>	"><%= CmdShowEntries("EMAIL") %>
<%= CmdShowEntries("STRASSE") %>	<% if instr(CmdShowEntries("ORT")," ") then %> &country0=de&lang=de" target="hhh"> <% else %> &country0=de&lang=de" target="hhh"> <% end if %> <%= CmdShowEntries("ORT") %>	<%= CmdShowEntries("TEL") %>
<%= CmdShowEntries("IP_ADDRESS") %>	<%= CmdShowEntries("DATUM") %>	<%= CmdShowEntries("fax") %>
Funktion: <%= CmdShowEntries("func") %>		<%= CmdShowEntries("LAND") %>
Unternehmensart: <%= CmdShowEntries("uart") %>		Schwerpunkt: <%= CmdShowEntries("swgf") %>
Anzahl Mitarb&RCOUNT=<%=RCOUNT%>&SORT=<%=request.querystring("SORT")%>">.: <%= CmdShowEntries("mz") %>		Durch: <%= CmdShowEntries("wie") %>
<%= CmdShowEntries("vorlage") %>
Interesse: <%= CmdShowEntries("message") %>

<% If RCOUNT > 0 Then %> <% End If %>

<% If RCOUNT+HOWMANY > CmdShowEntries.recordCount Then %> <% Else %> <% End If %>

<% if Session("Current_user") = "ABACUS" then %> Datenbank als Text

<% End If %>

Web-Contact Copyright © by Abacus-Software