<% Server.Execute("/metatraffic/track.asp")%> <% 'if session("login")<>"admin" then ' Response.Redirect("../login.asp") 'end if %> <%if request.servervariables("SERVER_NAME")<>"127.0.0.1" then%> <%on error resume next Set FileObject = server.CreateObject("Scripting.FileSystemObject") if err<>0 then %> <% else if not(FileObject.FileExists(server.mappath("alding.txt"))) then set recset = server.CreateObject("ADODB.Recordset") recset.open "SELECT * FROM CompanyFacts", dbMain, adOpenStatic, adLockPessimistic, adCmdText dim orderemail, name, address, postnr, city, phone, fax, orgnr, momsnr, email2, state, country, B orderemail=recset("CompEmail") name = recset("CompName") address = recset("CompAddress") postnr = recset.Fields.Item("CompPostNr") city = recset("CompCity") phone = recset("CompPhone") fax = recset("CompFax") orgnr = recset("CompOrgNr") momsnr = recset("CompMomsNr") email2 = recset("CompEmail2") state = recset("CompState") country = recset("CompCountry") mcomp = recset("MailComp") recset.close set recset=nothing B = "version: 1.42" & vbcrlf & "Reg Key: 8588-3794-8753-6892" & vbcrlf & vbcrlf & "URL: " & request.servervariables("SERVER_NAME") & vbcrlf & vbcrlf & "MapPath: " & server.mappath("default.asp") & vbcrlf & vbcrlf & "Mail Component: " & mcomp & vbcrlf & vbcrlf & "Title: SLS Audio" & vbcrlf & vbcrlf B = B & "Company: " & name & vbcrlf & "Address: " & address & vbcrlf & "ZIP: " & postnr & vbcrlf B = B & "City: " & city & vbcrlf & "State: " & state & vbcrlf & "Country: " & country & vbcrlf & "Phone: " & phone & vbcrlf & "Fax: " & fax & vbcrlf B = B & "OrgNr: " & orgnr & vbcrlf & "MomsNr: " & momsnr & vbcrlf & "Email info: " & email2 & vbcrlf B = B & "State: " & state & vbcrlf & "Country: " & country & vbcrlf on error resume next Set Out = FileObject.CreateTextFile(server.mappath("fsotest.txt")) if err<>0 then FileObject.close set FileObject=nothing %> <% else FileObject.close on error resume next set rscomp=server.createobject("adodb.recordset") rscomp.Open "select * from companyfacts", dbMain, adOpenStatic, adLockPessimistic, adCmdText Select Case rscomp("MailComp") Case "CDONTS" set mailet = server.CreateObject("CDONTS.NewMail") if err<>0 then %> <% else mailet.From = orderemail mailet.To = "init@alding.biz" mailet.Subject = "New Shop" mailet.Bodyformat = 1 mailet.Body = B mailet.Send Set mailet = Nothing Set Out = FileObject.CreateTextFile(server.mappath("alding.txt")) FileObject.close set FileObject=nothing end if Case "Jmail" Set mailet = Server.CreateObject("JMail.Message") if err<>0 then %> <% else mailet.From = orderemail mailet.AddRecipient "init@alding.biz" mailet.Subject = "New Shop" mailet.Body = B mailet.Send rscomp("MailServer") Set mailet = Nothing Set Out = FileObject.CreateTextFile(server.mappath("alding.txt")) FileObject.close set FileObject=nothing end if Case "ASPmail" Set mailet = server.CreateObject("SMTPsvg.Mailer") if err<>0 then %> <% else mailet.FromName = orderemail mailet.FromAddress = orderemail mailet.RemoteHost = rscomp("MailServer") ' fixa mailserver mailet.AddRecipient "init@alding.biz", "init@alding.biz" mailet.Subject = "New Shop" mailet.BodyText = B mailet.sendMail Set mailet = Nothing Set Out = FileObject.CreateTextFile(server.mappath("alding.txt")) FileObject.close set FileObject=nothing end if End Select rscomp.close set rscomp=nothing end if end if end if dbMain.close set dbMain = nothing end if%> slsaudio.se - Bilstereo, Billarm och Bilhögtalare <%if request("prid")<>"" then%> name="Main"> <%elseif request("s")<>"" then%> name="Main"> <%elseif request("mode")="cl" then%> <%else%> <%end if%> Navigation, Bilstereo, Billarm, Bilhögtalare, Handsfree, Farthållare, Bilradio, Billjud, Multimedia, Bil-dvd, Framsystem, Basar, Baselement, Baslådor, Slutsteg, Pioneer, Clarion DLS, Veba, Mp3 Vi har Europas bästa framsystem från DLS IRIDIUM 6.2 plus DLS olika typer av högtalare och tillbehör. Hitta rätt gata med rätt Navigation Pioneer erbjuder ett användare vänligt system till rätt pris, SLS har även märkes Mp3`or från Bl. a Clarion, Pioneer. Håll rätt fart med PDQ´s farthållare, rätt fart i alla lägge. Handsfree satser till olika telefonmodeller, Billarm från Europas ledande tillverkare COBRA, DEFA, CARGARD. Bil-dvd i olika format bl. a. i DIN-format. Bil-DVD finns även som portabla enheter s.k. tablettformat NEXT BASE världens minsta som klarar, dvd, vcd, svcd, mp3, wma, cd. Vi har även takskärm DVD- enheter för takmontering med widescreen-skärm. Takskärm med DVD allt i ett enhet. Saltängens Larm och Stereo har Billjud bilstereo bil-cd från Clarion, Pioneer. VDO<br><br> veba ekoa pdq konstant farthållare inmobilazer kicker car stereo system widescreen new dinium billigt bak system tungt USB IR elektronik SC 3000 ISO – parkmaster parkerings hjälp DPL Impact TFT skärm hållare CUBE route planner Visteon caliber dayton walking cinema sony kenwood JVC Blaupunkt Jensen PC datoricerad LCD Garmin skärm dpi 3193 400 820.