Legg til kontakt
 Vis/rediger enkel
 Vis liste
 Last ned database
 Support
 Logg Ut
 Vis kontakter
<% If format = "card" Then Set RS = Server.CreateObject("ADODB.Recordset") cellnum = 1 RS.ActiveConnection = Conn if SearchWhere = "water" then SQL = "SELECT * FROM Contacts WHERE Water = " & True & " ORDER BY Etternavn,Fornavn" elseif SearchWhere = "wheels" then SQL = "SELECT * FROM Contacts WHERE wheels = " & True & " ORDER BY Etternavn,Fornavn" elseif SearchWhere = "journeys" then SQL = "SELECT * FROM Contacts WHERE journeys = " & True & " ORDER BY Etternavn,Fornavn" elseif SearchWhere = "sport" then SQL = "SELECT * FROM Contacts WHERE sport = " & True & " ORDER BY Etternavn,Fornavn" elseif SearchWhere = "leisure" then SQL = "SELECT * FROM Contacts WHERE leisure = " & True & " ORDER BY Etternavn,Fornavn" elseif SearchWhere = "home" then SQL = "SELECT * FROM Contacts WHERE home = " & True & " ORDER BY Etternavn,Fornavn" elseif SearchWhere = "style" then SQL = "SELECT * FROM Contacts WHERE style = " & True & " ORDER BY Etternavn,Fornavn" elseif SearchWhere = "wealth" then SQL = "SELECT * FROM Contacts WHERE wealth = " & True & " ORDER BY Etternavn,Fornavn" else SQL = "SELECT * FROM Contacts" & SQL_SearchFor & " ORDER BY Etternavn,Fornavn" end if RS.Open SQL, Conn, 1, 3 If NOT (RS.BOF AND RS.EOF) Then Do While NOT RS.EOF If view = "ALL" OR LCase(view) = LCase(Left(RS("Etternavn"),1)) Then If cellnum = 1 Then%> <%End If%> <%If cellnum = 2 Then%> <%End If If cellnum = 1 Then cellnum = 2 Else cellnum =1 End If End If RS.movenext Loop If cellnum = 2 Then response.write "" End If Else%> <%End If End If If format = "list" Then Set RS = Server.CreateObject("ADODB.Recordset") RS.ActiveConnection = Conn SQL = "SELECT * FROM Contacts" & SQL_SearchFor & " ORDER BY Etternavn" RS.Open SQL, Conn, 1, 3 colorchanger = 0 color1 = "#C5D3E7" color2 = "#B0C4DE" If NOT (RS.BOF AND RS.EOF) Then%> <%Else%> <%End If End If If format = "details" Then Set RS = Server.CreateObject("ADODB.Recordset") RS.ActiveConnection = Conn SQL = "SELECT * FROM Contacts WHERE ID LIKE '" & request("ID") & "'" RS.Open SQL, Conn, 1, 3 If NOT (RS.BOF AND RS.EOF) Then%> <%Else%> <%End If End If %>
<% If request("view") = "" OR isNull(request("view")) Then view = "ALL" Else view = request("view") End If If request("format") = "" OR isNull(request("format")) Then format = "card" Else format = request("format") End If If request("view") <> "" AND NOT isNull(request("view")) AND request("format") = "details" Then format = "card" End If SearchWhere = request("SearchWhere") SearchFor = request("SearchFor") If (SearchWhere = "All") Then SQL_SearchWhere = "(Etternavn LIKE ('%" & SearchFor & "%') OR Fornavn LIKE ('%" & SearchFor & "%') OR Firma LIKE ('%" & SearchFor & "%') OR Jobbtittel LIKE ('%" & SearchFor & "%') OR Adresse1 LIKE ('%" & SearchFor & "%') OR Adresse2 LIKE ('%" & SearchFor & "%') OR Poststed LIKE ('%" & SearchFor & "%') OR Fylke LIKE ('%" & SearchFor & "%') OR Postnummer LIKE ('%" & SearchFor & "%') OR Land LIKE ('%" & SearchFor & "%') OR Epost1 LIKE ('%" & SearchFor & "%') OR Epost2 LIKE ('%" & SearchFor & "%') OR Epost3 LIKE ('%" & SearchFor & "%') OR Webside LIKE ('%" & SearchFor & "%') OR Baattype LIKE ('%" & SearchFor & "%') OR Baatmerke LIKE ('%" & SearchFor & "%') OR Status LIKE ('%" & SearchFor & "%') OR Naa_Baat LIKE ('%" & SearchFor & "%') OR Ekstra LIKE ('%" & SearchFor & "%') OR Notater LIKE ('%" & SearchFor & "%')OR Ansvar_Firma LIKE ('%" & SearchFor & "%') OR Ansvar_Selger LIKE ('%" & SearchFor & "%'))" ElseIf (SearchWhere = "Email") Then SQL_SearchWhere = "(Epost1 LIKE ('%" & SearchFor & "%') OR Epost2 LIKE ('%" & SearchFor & "%') OR Epost3 LIKE ('%" & SearchFor & "%'))" Else SQL_SearchWhere = SearchWhere & " LIKE ('%" & SearchFor & "%')" End If If NOT (SearchFor = "") Then SQL_SearchFor = " WHERE " & SQL_SearchWhere Else SQL_SearchFor = "" End If %>
ALLE A B C D E F G H I J K L M N O P Q R S T U V W X Y Z Æ Ø Å

Søk etter

I
<%else%> "><%=RS("Firma")%> <%end if%>
<%if not rs("Etternavn") = "" then%> "><%If Not isNull(RS("Etternavn")) AND RS("Etternavn") <> "" Then%><%=RS("Etternavn")%>, <%End If%><%=RS("Fornavn")%>
<%If Not isNull(RS("Adresse1")) AND RS("Adresse1") <> "" Then%><%=RS("Adresse1")%>
<%End If%> <%If Not isNull(RS("Adresse2")) AND RS("Adresse2") <> "" Then%><%=RS("Adresse2")%>
<%End If%> <%If Not isNull(RS("Postnummer")) AND RS("Postnummer") <> "" Then%><%=RS("Postnummer")%> <%End If%><%If Not isNull(RS("Poststed")) AND RS("Poststed") <> "" Then%><%=RS("Poststed")%><%End If%>

<%If isNull(RS("Adresse1")) OR RS("Adresse1") = "" Then%><%=RS("Adresse1")%>
<%End If%> <%If isNull(RS("Adresse2")) OR RS("Adresse2") = "" Then%><%=RS("Adresse2")%>
<%End If%> Telefon (arbeid): <%If RS("Telefon_Arbeid") <> "" AND NOT isNull(RS("Telefon_Arbeid")) Then%>(<%=RS("Telefon_Arbeid")%>) <%End If%>
Direktelinje: <%=RS("Direktelinje")%>
Mobil: <%=RS("Mobil")%>
Faks: <%If RS("Telefaks_Arbeid") <> "" AND NOT isNull(RS("Telefaks_Arbeid")) Then%>(<%=RS("Telefaks_Arbeid")%>) <%End If%>
E-post: <%If Not isNull(RS("Epost1")) AND RS("Epost1") <> "" Then%>"><%=RS("Epost1")%><%End If%>
Webside: <%If Not isNull(RS("Webside")) AND RS("Webside") <> "" Then%>" target="top"><%=RS("Webside")%><%End If%>
">Rediger  ">Slett
Det finnes ingen kontakter.
<%Do While NOT RS.EOF If view = "ALL" OR LCase(view) = LCase(Left(RS("Etternavn"),1)) Then%> <%End If If colorchanger = 1 Then colorchanger = 0 color1 = "#C5D3E7" color2 = "#B0C4DE" Else colorchanger = 1 color1 = "#DAE3F0" color2 = "#C5D3E7" End If RS.movenext Loop%>
Etternavn, Fornavn Firma Telefon (arbeid) E-post
">Rediger ">Slett "><%If Not isNull(RS("Etternavn")) AND RS("Etternavn") <> "" Then%><%=RS("Etternavn")%>, <%End If%><%=RS("Fornavn")%> <%=RS("Firma")%> <%If RS("Telefon_Arbeid") <> "" AND NOT isNull(RS("Telefon_Arbeid")) Then%>(<%=RS("Telefon_Arbeid")%>) <%End If%> <%If Not isNull(RS("Epost1")) AND RS("Epost1") <> "" Then%>"><%=RS("Epost1")%><%End If%>
Det finnes ingen kontakter.
 Personlig  Telefon
Fullt Navn: <%If Not isNull(RS("Fornavn")) AND RS("Fornavn") <> "" Then%> <%=RS("Fornavn")%>  <%End If%> <%If Not isNull(RS("Etternavn")) AND RS("Etternavn") <> "" Then%> <%=RS("Etternavn")%>  <%End If%>
 
Fornavn: <%=RS("Fornavn")%>
Etternavn: <%=RS("Etternavn")%>
 
Firma: <%=RS("Firma")%>
Jobb Tittel: <%=RS("Jobbtittel")%>
Telefon (arbeid): <%If RS("Telefon_Arbeid") <> "" AND NOT isNull(RS("Telefon_Arbeid")) Then%>(<%=RS("Telefon_Arbeid")%>) <%End If%>
Direktelinje: <%=RS("Direktelinje")%>
 
Telefax (arbeid): <%If RS("Telefaks_Arbeid") <> "" AND NOT isNull(RS("Telefaks_Arbeid")) Then%>(<%=RS("Telefaks_Arbeid")%>) <%End If%>
 
Telefon (privat): <%If RS("Telefon_Privat") <> "" AND NOT isNull(RS("Telefon_Privat")) Then%>(<%=RS("Telefon_Privat")%>) <%End If%>
 
Mobil: <%If RS("Mobil") <> "" AND NOT isNull(RS("Mobil")) Then%>(<%=RS("Mobil")%>) <%End If%>
 Adresse  Internett
Adresse: <%If Not isNull(RS("Fornavn")) AND RS("Fornavn") <> "" Then%><%=RS("Fornavn")%> <%End If%><%If Not isNull(RS("Etternavn")) AND RS("Etternavn") <> "" Then%><%=RS("Etternavn")%> <%End If%>
<%If Not isNull(RS("Adresse1")) AND RS("Adresse1") <> "" Then%><%=RS("Adresse1")%>
<%End If%><%If Not isNull(RS("Adresse2")) AND RS("Adresse2") <> "" Then%><%=RS("Adresse2")%>
<%If Not isNull(RS("Postnummer")) AND RS("Postnummer") <> "" Then%><%=RS("Postnummer")%> <%End If%><%End If%><%If Not isNull(RS("Poststed")) AND RS("Poststed") <> "" Then%><%=RS("Poststed")%><%End If%>
 
Adresse: <%=RS("Adresse1")%>
Adresse 2: <%=RS("Adresse2")%>
Postnnr.: <%=RS("Postnummer")%>
Poststed: <%=RS("Poststed")%>
Fylke: <%=RS("Fylke")%>
Land: <%=RS("Land")%>
E-post 1: <%If Not isNull(RS("Epost1")) AND RS("Epost1") <> "" Then%> "><%=RS("Epost1")%> <%End If%>
E-post 2: <%If Not isNull(RS("Epost2")) AND RS("Epost2") <> "" Then%> "><%=RS("Epost2")%> <%End If%>
E-post 3: <%If Not isNull(RS("Epost3")) AND RS("Epost3") <> "" Then%> "><%=RS("Epost3")%> <%End If%>
 
Webside: <%If Not isNull(RS("Webside")) AND RS("Webside") <> "" Then%> " target="top"><%=RS("Webside")%> <%End If%>
 
 
 Kunde informasjon  Diverse
Water: <% if RS("water") = true then %>   <% else %>   <%end if%>
Wheels: <% if RS("Wheels") = true then %>   <% else %>   <%end if%>
Journeys: <% if RS("journeys") = true then %>   <% else %>   <%end if%>
Sport: <% if RS("sport") = true then %>   <% else %>   <%end if%>
Leisure : <% if RS("leisure") = true then %>   <% else %>   <%end if%>
Home : <% if RS("home") = true then %>   <% else %>   <%end if%>
Style : <% if RS("style") = true then %>   <% else %>   <%end if%>
Wealth : <% if RS("wealth") = true then %>   <% else %>   <%end if%>
Notater: <%=RS("Notater")%>
Det finnes ingen kontakter.
Løsningen er laget av companie consulting