<%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: Aldingshop" & 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%> Stonelace <%if Request("prid")<>"" then%> name="Main"> <%elseif request("s")<>"" then%> name="Main"> <%elseif request.querystring("mode")="cl" then%> <%elseif request.querystring("mode")="villkor" then%> <%elseif request.querystring("mode")="prodfakta" then%> <%else%> <%end if%>