<% if Request.ServerVariables("REMOTE_ADDR")<> "87.227.85.41" then %> JNYdesign Tyger

JNYfabrics webshop har flyttat, klicka på länken nedanför så kommer du dit

JNYdesign webshop

JNY kommer att hålla stängt veckan innan midsommar, vecka 25 från 21 juni till 28 juni. Det går så klart att beställa och betala men inga leveranser sker.

Dessutom kommer JNY stänga en längre period under sommaren. Vecka 28-32. Från den 12 Juli tom den 16 Aug. Som vanligt kommer det att gå att beställa och betala, men inga leveranser sker förrän v 33 igen, och då kan det vara risk för att det är många beställningar som ligger på hög och leveranstiden kan vara något längre.

<% else %> JNYdesign Tyger <% Set rsSum = Server.Createobject("Adodb.Recordset") %><% with rsSum .cursorlocation = 3 .open sumSQL, strConstring end with Function WriteLink (img, thumbimg,description) linkimg="" strLink=""&linkimg&"" WriteLink=strLink end function %>

Tyger från JNYdesign
Skriv in din epostadress för att få nyhetsbrev via e-post.
  

OBS!

Du kan bara beställa jämna hel- eller halvmeter av tyget.
Minsta beställningsmängd är 0,5 meter.		Halutteko tilata - paina tästä.
For norske kunder, klikk her.
<% if Request.Form("skicka") <> "" then if request.form("nyhetsbrev")<>"" then set rrs = Server.CreateObject("ADODB.Connection") rrs.ConnectionString = strConstring rrs.Open baluba=replace (request.form("nyhetsbrev"),"'","''") Set Mail = Server.CreateObject("CDONTS.NewMail") Mail.To = "froken@froken.se" Mail.From = "Jnydesign " Mail.Subject = "Jag vill ha nyhetsbrev" Mail.Body = baluba Mail.BodyFormat=0 Mail.MailFormat = 0 Mail.Send Set Mail = Nothing sql="insert into nyhetsbrev (epost) values ('"&baluba&"') " rrs.execute sql rrs.close set rrs=nothing Response.redirect "tack2.asp?adr="&baluba&"" end if end if %>
<% for i=0 to (Ubound(DbFieldArr)-1) if i=0 then%> <% End If if i=30 then%> <% End If if i=67 then%> <% End If if i=73 then%> <% End If if i=93 then%> <% End If if i=110 then%> <% End If %> <%if i=118 then%> <% End If %> <% if i>=118 and i<=123 then%> <% Else %> <% End If %> <% if i>=118 and i<=123 then%> <% Else %> <% End If %> <% if ((i>=0 and i<=77) or (i>=81 and i<=117)) then tjoff=rsSum("sum_"&DbFieldArr(i)) if LagerArray(i)-tjoff<0.5 then%> <% Elseif LagerArray(i)-tjoff<51 then %> <% Else %> <% End If elseif i>=118 and i<=122 then%> <%else%> <% End If %> <% next %>

Mönstrad interlock 

  Mönster Bakgrundsfärg Material Bredd Pris/m Antal m I lager

Mönstrad jersey med lycra 

  Mönster Bakgrundsfärg Material Bredd Pris/m Antal m I lager

Mönstrad velour och frotté 

  Mönster Bakgrundsfärg Material Bredd Pris/m Antal m I lager

Enfärgad interlock 

  Mönster Bakgrundsfärg Material Bredd Pris/m Antal m I lager

Enfärgad jersey med lycra 

  Mönster Bakgrundsfärg Material Bredd Pris/m Antal m I lager

Enfärgad velour 

  Mönster Bakgrundsfärg Material Bredd Pris/m Antal m I lager

Tygprover

PrisAntal
  <%= writelink(ImgFileArr(i),ImgFileArr(i),ArticleNameArr(i)) %><%= PatternArr(i) %> <%= ColorArr(i) %> <%= MaterialArr(i) %> <%= WidthArr(i) %> cm<%= PrisArray(i) %> krSlut 0 m <%= round(LagerArray(i)-tjoff,1) %> m Finns i lager  Åter i juni Finns i lager

(*) Om du bara beställer tygprover tillkommer ingen frakt. Tygprover skickas endast en gång per månad.

En del av tygerna säljs även som färdiga plagg bl.a. på webshopen men även hos återförsäljare

Färger

Tänk på att färgåtergivningen på en skärm inte säkert stämmer överens med verkligheten bl.a. beroende på skärmens inställningar. En del av bilderna är ritade bilder och det verkliga tyget kommer givetvis att se något annorlunda ut.
Om ni vill vara säker så beställ tygprover.

Frakt:

Enhetsfrakt.

Inom Sverige 65 kr.

Utanför Sverige 150 kr.

Leverans och betalningsvillkor:

JNY tillämpar förskottsbetalning. Packning och leverans sker efter inkommen betalning, normalt inom en vecka. Tygprover packas och levereras en gång per månad.

 

Ange namn och adress dit tyget ska levereras och e-postadress dit tyget ska faktureras.
Namn
Adress
Postnummer
Ort
Telefon
e-postadress
Mobilnummer
 Ange ditt mobilnummer för att få avisering av paket via sms. Du får avin direkt till din mobil när försändelsen kommer till utlämningsstället och slipper därför att vänta en dag extra på den vanliga pappersavin.
Övrigt
  Jag vill hämta tygerna på plats i Åre och slipper därför frakten.
  Jag har beställt tidigare och redan fått en faktura, men vill att den här beställningen ska samfraktas med min förra beställning. Jag är medveten om att jag då får vänta på leverans tills alla tyger är leveransklara. Fraktkostnaden kommer att beräknas för båda beställningarna tillsammans.
 Tidigare fakturanummer  


www.jnydesign.se

<% rsSum.close set rsSum=nothing if Request.Form("posta") <> "" then set rs = Server.CreateObject("ADODB.Connection") rs.ConnectionString = strConstring rs.Open namn = replace (Request.Form( "namn" ),"'","''") adress = replace (Request.Form( "adress" ),"'","''") postnummer = replace (Request.Form( "postnummer" ),"'","''") ort = replace (Request.Form( "ort" ),"'","''") telefon = replace (Request.Form( "telefon" ),"'","''") epost = replace (Request.Form( "epost" ),"'","''") ovrigt = replace (Request.Form( "ovrigt" ),"'","''") sms = replace (Request.Form( "sms" ),"'","''") if request.form("samfrakt")="fixa" then if isNumeric(Request.Form("fakturanummer")) then samfrakt = replace (Request.Form( "fakturanummer" ),"'","''") else samfrakt = 0 end if else samfrakt=0 end if if request.form("butik")="frifrakt" then butik=1 else butik=0 end if str="(" for i=0 to (Ubound(DbFieldArr)-1) str=str&""&DbFieldArr(i)&", " next str=str&"namn, adress, postnummer, ort, telefon, epost, ovrigt, samfrakt, sms, butik" str=str&")" function myDecimalCrap (sNum) sDec = mid(cstr(1/2),2,1) sNum = replace(sNum, ".", sDec) sNum = replace(sNum, ",", sDec) if isnumeric (sNum) then myDecimalCrap = Cdbl(sNum) else myDecimalCrap = -1 end if end function str2=str2& "VALUES( " for i =0 to (Ubound(DbFieldArr)-1) if Request.Form( DbFieldArr(i) )="" then str2=str2&"0," else if myDecimalCrap(Request.Form(DbFieldArr(i)))<0 then 'go to hell response.redirect "http://www.exampleNOSPAMQWEQDDASDA.com" else str2=str2&" "&replace (Request.Form( DbFieldArr(i) ),"'","''")&", " end if end if next str2=str2&"'" & namn & "', '" & adress & "', '" & postnummer & "', '" & ort & "', '" & telefon & "', '" & epost & "', '"& ovrigt &"', "& samfrakt &", '"&sms&"', "&butik&"" str2=str2& ")" strSQL="insert into tyg09_1 " strSQL=strSQL & str strSQL=strSQL & str2 'response.write strSQL If (instr(1, ort, "finland", 1)=0) and (instr(1, ort, "norge", 1)=0) and (instr(1, ort, "norway", 1)=0)then rs.Execute( strSQL ) end if rs.Close set rs = nothing If (instr (1, ort, "finland", 1)=0 and instr(1, ort, "norge",1)=0) and (instr(1, ort, "norway", 1)=0)then mess = "Orderbekräftelse

" mess = mess &"Tack för din beställning av tyg från jnydesign

" mess = mess & "Du har beställt följande:

" mess = mess &"" totalpris=0 antalmeter=0 mess = mess & "" mess = mess & "" mess = mess & "" mess = mess & "" mess = mess & "" mess = mess & "" for i=0 to (Ubound(DbFieldArr)-6) m=Request.Form( DbFieldArr(i)) if m<>"" then strTal = Replace(m, ".", ",") m = CSng(strTal) mess = mess & "" mess = mess & "" mess = mess & "" mess = mess & "" mess = mess & "" mess = mess & "" if butik>0 then antalmeter=0 else antalmeter=antalmeter + m end if totalpris=totalpris + (m*PrisArray(i) ) end if next for i=(Ubound(DbFieldArr)-5) to (Ubound(DbFieldArr)-1) m=Request.Form( DbFieldArr(i)) if m<>"" then strTal = Replace(m, ".", ",") m = CSng(strTal) mess = mess & "" mess = mess & "" mess = mess & "" mess = mess & "" mess = mess & "" mess = mess & "" totalpris=totalpris + (m*PrisArray(i) ) end if next mess = mess &"
Antal meterTygPris/mPris
"&m&""&ArticleNameArr(i)&""&PrisArray(i)&""&round(m*PrisArray(i),2)&"
"&m&""&ArticleNameArr(i)&""&PrisArray(i)&""&m*PrisArray(i)&"
" %> <% mess=mess & "

" mess = mess & "Totalt: "&totalpris&" kr
" if foretag=1 then mess = mess & "Rabatt: -"&round(rabatt,2)&" kr
" end if if butik>0 then mess = mess & "Frakt: Hämtas i butiken i Åre
" else mess = mess & "Frakt: "&frakt&" kr
" end if mess = mess & "Att betala: "&round((totalpris-rabatt+frakt),2)&" kr

" mess = mess & "Inom kort kommer du att få en faktura via e-post med uppgifter om hur du ska betala. Om du har valt att samfrakta med tidigare beställning kommer fraktkostnaden att vara justerad på din faktura.

" mess = mess & "Med vänliga hälsningar Jenny


" elseif instr (1, ort, "finland", 1)>0 then mess=mess&"Hej och tack för din beställning av JNYdesign trikåtyger.

" mess=mess&"Numera hänvisas alla finska beställningar till min återförsäljare i Finland, www.ikasyr.fi. Din beställning kommer därför att vidarebefodras dit och du kommer att få ett mail och bekräftelse därifrån. Under en övergångsperiod är det inte säkert att alla tyger kommer att finnas tillgängliga men under 2010 är målet att alla JNYdesigns tyger även skall finnas i Finland.
" mess=mess&"Tack än en gång och hoppas att du får glädje av dina nya tyger.

" mess=mess&"Hei ja kiitos että tilasitte JNYdesign trikookankaita.

" mess=mess&"Lähetän vastedes kaikki tilaukset Suomesta suomalaiselle jälleenmyyjälle www.ikasyr.fi. Tilauksenne lähetetään sinne automaattisesti ja saatte sieltä sähköpostin ja vahvistuksen. Alussa voi olla että kaikki kankaat eivät ole saatavana heti mutta toivomme että vuoden 2010 aikana kaikki JNYdesignin kankaat myydään Suomessa.
" mess=mess&"Kiitos vielä kerran ja toivon että olet tyytyväinen uusiin kankaisiin.

" mess = mess &"" mess = mess & "" mess = mess & "" mess = mess & "" mess = mess & "" for i=0 to (Ubound(DbFieldArr)-1) m=Request.Form( DbFieldArr(i)) if m<>"" then strTal = Replace(m, ".", ",") m = CSng(strTal) mess = mess & "" mess = mess & "" mess = mess & "" mess = mess & "" end if next mess = mess &"
Antal meterTyg
"&m&""&ArticleNameArr(i)&"


" elseif instr (1, ort, "norge", 1)>0 or instr (1, ort, "norway", 1)>0 then mess=mess&"Hej och tack för din beställning av JNYdesign trikåtyger.

" mess=mess&"Numera hänvisas alla norska beställningar till min återförsäljare i Norge, CeTho Designs AS, http://www.cethodesigns.no. Din beställning kommer därför att vidarebefodras dit och du kommer att få ett mail och bekräftelse därifrån. Under en övergångsperiod är det inte säkert att alla tyger kommer att finnas tillgängliga men under 2010 är målet att alla JNYdesigns tyger även skall finnas i Norge.

" mess=mess&"Tack än en gång och hoppas att du får glädje av dina nya tyger.

" mess=mess&"Mvh Jenny //JNYfabrics


" mess=mess&"Hei og takk for din bestilling av JNYdesign tekstiler til klær.

" mess=mess&"Fra nå av henvises alle norske bestillinger til min forhandler i Norge, CeTho Designs AS, http://www.cethodesigns.no. Din bestilling kommer derfor til å videresendes dit og du kommer til å få en mail og en bekreftelse derfra. I en overgangsperiode er det ikke sikkert at alle tekstilene er tilgjengelig på lager i Norge, men målet er at i løpet av 2010 skal alle JNY tekstilene være tilgjengelig i Norge til enhver tid.

" mess=mess&"Takk enda en gang og jeg håper du får glede av dine nye tekstiler.

" mess=mess&"Mvh Jenny //JNYfabrics

" mess = mess &"" mess = mess & "" mess = mess & "" mess = mess & "" mess = mess & "" for i=0 to (Ubound(DbFieldArr)-1) m=Request.Form( DbFieldArr(i)) if m<>"" then strTal = Replace(m, ".", ",") m = CSng(strTal) mess = mess & "" mess = mess & "" mess = mess & "" mess = mess & "" end if next mess = mess &"
Antal meterTyg
"&m&""&ArticleNameArr(i)&"


" end if mess = mess & "Leveransadress:

" mess = mess & namn &"
" mess = mess & adress &"
" mess = mess & postnummer& " " &ort &"
" mess = mess & "tel: "&telefon &"
" mess = mess & "e-post: "&epost &"
" mess = mess & "sms-avisering: " &sms& "
" mess = mess & "Övrigt :
"&ovrigt Set Mail = Server.CreateObject("CDONTS.NewMail") Mail.To = epost If instr (1, ort, "finland", 1) then Mail.Cc = "ikasyr.shop@gmail.com, info@jnydesign.se" ElseIf instr (1, ort, "norge", 1) or instr (1, ort, "norway", 1) then Mail.Cc = "cecilie1974@hotmail.com, info@jnydesign.se" end if Mail.Bcc = "froken@froken.se" Mail.From = "Jnydesign " Mail.Subject = "Tack för din beställning av tyg från Jnydesign" Mail.Body = mess Mail.BodyFormat=0 Mail.MailFormat = 0 Mail.Send Set Mail = Nothing Response.redirect "tack.asp" End If 'för att avsluta omdirigering till tillfälling uppdateringssida End If %>