Logo VinylMusikk.no med link til hovedsiden

Her finner du samleobjektene du har lett etter!
LP-plater og singleplater
nye og brukte
Alle platene er i utmerket stand og fullt spillbar.
Finn musikk her!



 

<% language="vbscript"%> <% On Error Resume Next %> <% securityon = "" displaystats = "on" sendemail = "" emailaddy = "" bgcolour = "#ccccff" showhits = "" textcolour = "black" useanotherpage = "on" pagename = "default.asp" %> <% ' EasyPollAsp - the easiest poll script to set up in the world! ' Hand written by SamHS, for dotdragnet.co.uk - who retains the copyright on the original script ' However, you may alter and distribute this script - so long as you retain the copyright notices ' For support or help, visit the forums at http://www.dotdragnet.co.uk ' DO NOT ALTER BELOW THIS LINE ' **************************** errormsg="" If useanotherpage="on" And pagename<>"" Then ' do nothing Else Response.Write "Poll! - created using EasyAspPoll" End If If pagename="" Then pagename="poll.asp" bgcolor=bgcolour file = Server.MapPath("poll.txt") ip = Server.MapPath("ip.txt") Set objFSO = Server.CreateObject("Scripting.FileSystemObject") If objFSO.FileExists(file) And objFSO.FileExists(ip) Then If Request.Form("doview")="view" And displaystats="on" Then display() Else checkip() End If Else Response.Write "

Sorry - no poll is available at this time!

" End If If useanotherpage="on" And pagename<>"" Then ' do nothing Else Response.Write "" End If function checkip() If securityon="on" Then Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objCountFile = objFSO.OpenTextFile(ip, 1, True) news = objCountFile.ReadAll objCountFile.Close Set objCountFile = Nothing Set objFSO = Nothing temp = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If temp<>"" Then tempip = temp Else tempip = Request.ServerVariables("REMOTE_ADDR") End If If Instr(news, tempip)<>"0" And Request.Form("Vote")<>"" Then Sorry() Else checkcookie() End If Else addvote() End If End Function Function Sorry() errormsg = "Sorry - you've already voted
Your vote has not been added" display() End Function function logip() Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objCountFile = objFSO.OpenTextFile(ip, 8, True) temp = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If temp<>"" Then tempip = temp Else tempip = Request.ServerVariables("REMOTE_ADDR") End If objCountFile.WriteLine tempip objCountFile.Close Set objCountFile = Nothing Set objFSO = Nothing End Function Function addcookie() Response.Cookies("Voted") = "yes" Response.Cookies("voted").Expires = DateAdd("d", 5, Date) End Function Function checkcookie() strcookie=Request.Cookies("voted") If strcookie="yes" Then Sorry() Else addvote() End If End Function function poll() Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objCountFile = objFSO.OpenTextFile(file, 1, True) news = objCountFile.ReadAll objCountFile.Close Set objCountFile = Nothing Set objFSO = Nothing title=Split(news, "**") response.write "" Response.Write "" Response.Write "" answer=Split(news, "%%") counter=0 For i=1 to Ubound(answer) bits=split(answer(i), "|") Response.Write "" Next Response.Write "" Response.Write "" If displaystats="on" Then Response.Write "" Else Response.Write "" End If If bgcolour="black" Or bgcolour="blue" Then Response.Write "
" & title(1) & "
" & bits(0) & "
 
dotdragnet
" Else Response.Write "
" End If End Function function display() If displaystats="on" Then Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objCountFile = objFSO.OpenTextFile(file, 1, True) news = objCountFile.ReadAll objCountFile.Close Set objCountFile = Nothing Set objFSO = Nothing title=Split(news, "**") answer=Split(news, "%%") counter=0 For i=1 to Ubound(answer) bits=split(answer(i), "|") counter=counter+Cint(bits(2)) Next response.write "" Response.Write "" If errormsg<>"" Then Response.Write "" If showhits="on" Then Response.Write "" For i=1 to Ubound(answer) bits=split(answer(i), "|") If counter>0 Then percent=cint((bits(2)/counter)*100) Else percent=0 End If If percent=0 Then percent=1 If counter>0 Then actualpercent=Round(((bits(2)/counter)*100), 1) Else actualpercent=0 End If Response.Write("") Next If bgcolour="black" Or bgcolour="blue" Then Response.Write "
" & title(1) & "
" & errormsg & "
" & counter & " avgitte stemmer
" & bits(0) & "
 " & actualpercent & "%
powered by EasyPollAsp - from dotdragnet
" Else Response.Write "powered by EasyPollAsp - from dotdragnet" End If Else Response.Write "Resultatet er enda ikke klart!" End If End Function function addvote() If Request.Form("vote") = "" Then poll() Else Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objCountFile = objFSO.OpenTextFile(file, 1, True) news = objCountFile.ReadAll objCountFile.Close Set objCountFile = Nothing strnew="**" title=Split(news, "**") strnew=strnew & title(1) & "**" answer=Split(news, "%%") For i=1 to Ubound(answer) bits=split(answer(i), "|") If i=Cint(Request.Form("vote")) Then newnum=Cint(bits(2)) + 1 strnew=strnew & "%%" & bits(0) & "|" & bits(1) & "|" & CStr(newnum) Else strnew=strnew & "%%" & bits(0) & "|" & bits(1) & "|" & bits(2) End If Next Set objTextFile = objFSO.CreateTextFile(file) objTextFile.WriteLine strnew objTextFile.Close Set objTextFile = Nothing Set objFSO = Nothing If securityon="on" Then logip() addcookie End If display() If sendemail="on" and IsValidEmail(emailaddy) Then Dim objCDOMail Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = emailaddy objCDOMail.To = emailaddy objCDOMail.Subject = "EasyPollAsp provided by dotdragnet.co.uk - somone just voted!" objCDOMail.Body = "Someone just voted in your poll, check it out!" objCDOMail.Send Set objCDOMail = Nothing End If End If End function Function IsValidEmail(strEmail) Dim bIsValid bIsValid = True If Len(strEmail) < 5 Then bIsValid = False Else If Instr(1, strEmail, " ") <> 0 Then bIsValid = False Else If InStr(1, strEmail, "@", 1) < 2 Then bIsValid = False Else If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then bIsValid = False End If End If End If End If IsValidEmail = bIsValid End Function %>

Til
bestillingsskjema
__________
Kontakt
VinylMusikk.no
__________
Siden ble sist
oppdatert

16.05.2002
Treffteller

Disse sidene er et elevarbeid i regi av nettstudiet Videregående Webdesign fra Høgskolen i Bergen. Det er en "bogus" webside som ikke må forveksles med kommersielle sider. - This site is for training only - no music can be baught here!

tre platecover.jpg

Lorem ipsum dolor sit amet, consectetuer adipiscing elit, sed diem nonummy nibh euismod tincidunt ut lacreet dolore magna aliguam erat volutpat. Ut wisis enim ad minim veniam, quis nostrud exerci tution ullamcorper suscipit lobortis nisl ut aliquip ex ea commodo consequat.

Duis te feugifacilisi. Duis autem dolor in hendrerit in vulputate velit esse molestie consequat, vel illum dolore eu feugiat nulla facilisis at vero eros et accumsan et iusto odio dignissim qui blandit praesent luptatum zzril delenit au gue duis dolore te feugat nulla facilisi.

plate1.jpgUt wisi enim ad minim veniam, quis nostrud exerci taion ullamcorper suscipit lobortis nisl ut aliquip ex en commodo consequat. Duis te feugifacilisi per suscipit lobortis nisl ut aliquip ex en commodo consequat.Lorem ipsum dolor sit amet, consectetuer adipiscing elit, sed diem nonummy nibh euismod tincidunt ut lacreet dolore magna aliguam erat volutpat.

Lorem ipsum dolor sit amet, consectetuer adipiscing elit, sed diem nonummy nibh euismod tincidunt ut lacreet dolore magna aliguam erat volutpat.

Musikknyheter

2002-04-12
phantomplanet.jpgPlate: Phantom Planet - The Guest
En ny gruppe for mitt vedkommende, men gutta kommer fra Los Angeles, består av fem unge menn, hvorav en er nevøen til filmmannen Francis Ford Coppla og en annen er sønnen til mannen som skrev "Grease" slagerne "You're the One That I Want" og "Hopelessly Devoted to You".
Les hele saken


2002-04-12
manuela hofer.jpgPlate: Manuela Hofer - demo
Musikkavisen mottok en henvendelse fra Manuela Hofer om å omtale musikk hun hadde lagt ut på nettet. Her kommer en liten vurdering av en lovende norsk artist.
Les hele saken

2002-04-12
offbeats.jpgKommer: OffBeaT - Cordial Scene, Oslo
OffBeaT spiller egenkomponert materiale, skrevet av saxofonist Frøy Aagre. Bandets musikalske uttrykk er inspirert av Wayne Shorter, Dave Holland Quintet og Django Bates.
Les hele saken