<% If Session("smtp_server") = "" then %> <% End If %> SOA medlemmer <% ' %> <% '~~~ Main Menu ~~~ %> <% '~~~ Tooltips ~~~ %> <% '~~~ Alle Modal Windiows i fra denne dwt ~~~ %> <% '~~~ Nettstudie - gartner ~~~ %> <% '~~~ Nettstudie - idrett ~~~ %> <% ' !!!!!!!!!! OPPDATER onload i BODY i KART.ASP ETTER DWT FIL ER LAGRET! !!!!!!!!! %>
<% ID = Request.QueryString("ID") Set RS = Server.CreateObject("ADODB.Recordset") SQL = "SELECT * FROM medlemmer WHERE ((medlemmer.ID) = " & ID & ")" RS.Open SQL, cStrMedlem, 3, 3 PAdresse = RS("PostAdresse") PPostnr = RS("PPostNr") PPoststed = RS("PPostSted") BAdresse = RS("BesoksAdresse") BPostnr = RS("BPostNr") BPoststed = RS("BPostSted") If Trim(BAdresse) ="" or ucase(BAdresse)= "SAMME" then BAdresse = PAdresse If Trim(BPostnr) ="" then BPostnr = PPostnr If Trim(BPoststed) ="" then BPoststed = PPoststed BBesok = BAdresse & "
" & BPostnr & " " & BPoststed PPost = PAdresse & "
" & PPostnr & " " & PPoststed KAdresse= BAdresse & ", " & BPostnr & " " & BPoststed %>

<%=RS("BedriftsNavn")%>
Post Adresse: <%=PPost%>
Gate Adresse: <%=BBesok%>
Fylke: <%=RS("Fylke")%>
Kontaktperson: <%=RS("Kontakt1")%>
Telefon: <%=RS("Telefon1")%>
Mobil: <%=RS("Mobil1")%>
Telefaks: <%=RS("Telefaks1")%>
E-post: <%=RS("EPost1")%>
Hjemmeside: " target="_blank"><%=RS("Hjemmeside")%>
Kart:   "> Klikk her for kart

 

 

Tilbake til Medlemmer

 

<% RS.Close Set RS = Nothing %>
Tilbake til toppen av siden  Tilbake til toppen av siden.  Tilbake til toppen av siden