%@ 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 %>
ABACUS RSS FEED
| <%= CmdShowEntries("FIRMA") %> | <% if CmdShowEntries("Apartner")="" and cmdShowEntries("Name")<>"" then %><%= CmdShowEntries("Name") %> | <% else %><%= CmdShowEntries("Apartner") %> | <% end if %>"><%= 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") %> | ||
| 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