<% Dim WWhen, Where, IP, From, Browser, Client, Resolution, OS, Referer Referer = Session.sessionID Where = Request.ServerVariables("url") IP = Request.ServerVariables("REMOTE_ADDR") strUserAgent = LCase(Request.ServerVariables("HTTP_USER_AGENT")) If InStr(1,strUserAgent,"windows nt 5.1") <> 0 Then OS = "Windows XP" ElseIf InStr(1,strUserAgent,"windows nt 5.0") <> 0 Then OS = "Windows 2000" ElseIf InStr(1,strUserAgent,"win 9x 4.90") <> 0 Then OS = "Windows ME" ElseIf InStr(1,strUserAgent,"win98") <> 0 Or InStr(1,strUserAgent,"windows 98") <> 0 Then OS = "Windows 98" ElseIf InStr(1,strUserAgent,"win95") <> 0 Or InStr(1,strUserAgent,"windows 95") <> 0 Then OS = "Windows 95" ElseIf InStr(1,strUserAgent,"windows 3.1") <> 0 Or InStr(1,strUserAgent,"win16") <> 0 Or InStr(1,strUserAgent,"16bit") <> 0 Or InStr(1,strUserAgent,"windows 16-bit") <> 0 Then OS = "Windows 3.1" ElseIf InStr(1,strUserAgent,"os/2") <> 0 Then OS = "OS/2" ElseIf InStr(1,strUserAgent,"mac") <> 0 Then If InStr(1,strUserAgent,"68k") <> 0 Or InStr(1,strUserAgent,"68000") <> 0 Then OS = "Mac 68k" ElseIf InStr(1,strUserAgent,"ppc") <> 0 Or InStr(1,strUserAgent,"power-pc") <> 0 Or InStr(1,strUserAgent,"powerpc") <> 0 Then OS = "Mac PowerPC" ElseIf InStr(1,strUserAgent,"macos") <> 0 Or InStr(1,strUserAgent,"mac os") <> 0 Then OS = "Mac OS" ElseIf InStr(1,strUserAgent,"os8") <> 0 Or InStr(1,strUserAgent,"os 8") <> 0 Then OS = "Mac OS8" ElseIf InStr(1,strUserAgent,"os9") <> 0 Or InStr(1,strUserAgent,"os 9") <> 0 Then OS = "Mac OS9" ElseIf InStr(1,strUserAgent,"osx") <> 0 Or InStr(1,strUserAgent,"os x") <> 0 Then OS = "Mac OSx" Else OS = "Mac Unknown" End If ElseIf InStr(1,strUserAgent,"sunos 5") <> 0 Then OS = "Sun 5" ElseIf InStr(1,strUserAgent,"sunos 4") <> 0 Then OS = "Sun 4" ElseIf InStr(1,strUserAgent,"sunos") <> 0 Then OS = "Sun" ElseIf InStr(1,strUserAgent,"irix6") <> 0 Or Instr(1,strUserAgent,"irix 6") <> 0 Then OS = "IRIX 6" ElseIf InStr(1,strUserAgent,"irix 5") <> 0 Then Operating System = "IRIX 5" ElseIf InStr(1,strUserAgent,"irix") <> 0 Then OS = "IRIX" ElseIf InStr(1,strUserAgent,"freebsd") <> 0 Then OS = "FreeBSD" ElseIf InStr(1,strUserAgent,"bsd") <> 0 Then OS = "BSD" ElseIf InStr(1,strUserAgent,"aix") <> 0 Then OS = "AIX" ElseIf InStr(1,strUserAgent,"linux") <> 0 Then OS = "Linux" ElseIf InStr(1,strUserAgent,"unix") <> 0 Then OS = "Unix" ElseIf InStr(1,strUserAgent,"windows nt") <> 0 Then OS = "Windows NT" ElseIf InStr(1,strUserAgent,"windows") <> 0 Then OS = "Windows Unknown" Else OS = "Unknown" End If If InStr(1,strUserAgent,"opera") <> 0 Then Browser = "Opera" ElseIf InStr(1,strUserAgent,"msn") <> 0 Then Browser = "MSN" ElseIf InStr(1,strUserAgent,"aol") <> 0 Then Browser = "AOL" ElseIf InStr(1,strUserAgent,"webtv") <> 0 Then Browser = "WebTV" ElseIf InStr(1,strUserAgent,"navio") <> 0 Or InStr(1,strUserAgent,"navio_aoltv") <> 0 Then Browser = "TVNavigator" ElseIf InStr(1,strUserAgent,"netscape") <> 0 Then Browser = "Netscape" ElseIf InStr(1,strUserAgent,"msie") <> 0 Then Browser = "Microsoft Internet Explorer" ElseIf InStr(1,strUserAgent,"mozilla") <> 0 Then Browser = "Mozilla" Else Browser = "Unknown" End If If Instr(1,strUserAgent,"msie 6") <> 0 Or Instr(1,strUserAgent,"netscape6/6") Or Instr(1,strUserAgent,"opera/6") <> 0 Or Instr(1,strUserAgent,"opera 6") <> 0 Then BrowserVersion = 6 ElseIf Instr(1,strUserAgent,"aol/7") <> 0 Or Instr(1,strUserAgent,"aol 7") <> 0 Or Instr(1,strUserAgent,"netscape/7") Or Instr(1,strUserAgent,"opera/7") <> 0 Or Instr(1,strUserAgent,"opera 7") <> 0 Then BrowserVersion = 7 ElseIf Instr(1,strUserAgent,"msie 5.5") <> 0 Then BrowserVersion = 5.5 ElseIf Instr(1,strUserAgent,"msie 5") <> 0 Then BrowserVersion = 5 Else FirstNumberPos = 0 For i = 1 To Len(strUserAgent) If Instr(1,"1234567890",Mid(strUserAgent,i,1))<> 0 Then FirstNumberPos = i i = Len(strUserAgent) End If Next If FirstNumberPos <> 0 Then While Instr(1,"1234567890.",Mid(strUserAgent,FirstNumberPos,1)) <> 0 And FirstNumberPos<=Len(strUserAgent) BrowserVersion = BrowserVersion & Mid(strUserAgent,FirstNumberPos,1) FirstNumberPos = FirstNumberPos + 1 Wend Else BrowserVersion = "" End If End If Page = Request.ServerVariables("PATH_INFO") Prew = Request.ServerVariables("HTTP_REFERER") If Prew = "" Then Prew = "Direct Hit" end if Change = "SELECT * FROM tblHit WHERE Referer Like '" & Referer & "';" RecSet.Open Change, Connect, adOpenStatic, adLockOptimistic if RecSet.eof then Set objConn = Server.CreateObject("ADODB.Connection") strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/org.mdb") objConn.Open strConn strSQL = "INSERT INTO tblHit(IP, Browser, Prew, OS, BrowserVersion, Page, Referer) values('" & IP & "','" & Browser & "','" & Prew & "','" & OS & "','" & BrowserVersion & "','" & Page & "','" & Referer & "')" objConn.Execute(strSQL),,128 objConn.Close Set objConn = Nothing end if RecSet.Close %> Smaragd SWE79 till Salu

Smaragd swe79 - 1981 säljes.

Smaragden är en cruiser/racer av entyp och kappseglar med SM-status. Man kan samtidigt ana hennes goda egenskaper och prestanda. Hon har ett långt, lågt och smalt skrov med effektiv undervattenskropp som ger ett bra driv genom sjö. Däcket är flushat för bästa sikt och arbetsförhållande, samt bidrar också till ett vackert, men samtidigt “racigt” utseende.

Den kraftigt bakåtlutade 7/8-riggen har raka spridare med backstag. Segelplanen är av modernt snitt med stort storsegel och självslående fock. Storseglet har en maximalt utbygg akterrunda innan häckstaget tar i. Focken är självslående. En stor genua, som ej ingår i entypsregeln, gör båten till ett monster i höjdtagning och ger en unik och aggressiv förmåga att ta sig igenom grov sjö.

Inuti är det gott om sovplats. Fyra vuxna får lätt plats. Ståhöjden är dock begränsad till köket.

Det roligaste med Smaragden är att man även vid semestersegling, sk. smörgåssegling, sällan blir omseglad. Allt som oftast är man istället upphinnande båt. Summa sumarum, så är Smaragden en perfekt kombination av semesterbåt med möjlighet till entypskappsegling.

Vår är välskött med 2 tidigare ägare.
Kontinuerligt uppgraderad under de år vi har haft henne.
Har inte tyvärr inte seglats under 2011.
Optimerad för kappsegling samt short- och singelhanded segling.

Kölen i ordning gjord för att stämma överens med naca profilen.
Slät botten med VC17

Fock North 2004.
Genua på maxmått (UK) sparsamt seglad.
Spinnaker (Quantum, design Henrik Ottoson) 2009.
Spinnaker liten välanvänd, med prassel kvar.
Storsegel Elvström/Sobstad.
+ en del gamla dacronsegel.

Ny mast 2006, Benns M1 med ny löpande och stående rigg.
Backstag i dynema med Karver block.
Storskot med fintrim (Harken) 2010.
Fockskot med kaskadutväxling (Harken) 2010.
Spinnaker bom, Benns superlätt 2009.
Alla skot och gajjar i dyneema eller liknande.

Nexus NX2 Server med logg, lod, kompass, trådlös vind på 3 st instrument.
Stor Suunto analog kompass.

Utombordare Evinrude Yachmaster 6hk med lång rigg, med få gångtimmar.
Nytt sittbrunns skydd och bomkapell 2010.
Origo 3000 kök, Värmare, Autopilot, solcell, 2 st brandsläckare, fendrar, förtöjningsmatr, ankare, Vagga för vinteruppställning, a-ställning.
Bilder här på www.nyppon.se/pict.asp och www.smaragdforbundet.com
tom@nyppon.se
tomas 0707387960
Pris 160000 kr sjösatt

 

Having the most chanel replica wedding information at your fingertips is essential. Long gone are the days when you had to drive all over town searching for a list of items. You will chanel replica use the Internet to obtain wedding information quickly. While there are many websites that offer wedding information, the chanel replica is one of the more trusted sources for information. What makes the Wedding Channel such a good source? Let's take a look.