%
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
<%
Meny = "SELECT SortOrder, UrlText, Url, expl, target FROM tblMeny ORDER BY SortOrder;"
RecSet.Open Meny, Connect, adOpenStatic, adLockOptimistic
Response.Write("
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.