<%@LANGUAGE = VBSCRIPT%> Kulturjern AB <% If Request.Form("b1")="" Then %>

  Välkommen till Kulturjerns Internetbutik,
  här kan du göra din beställning!

 Viktig information!

 Observera att ett nytt fönster har öppnats.

 
<% Response.Write( "Datum & Tid: " & (Now) )%>
  <% Response.Write( "Sessions ID: " & Session.SessionID )%>

 
Betalning sker mot faktura, med följande villkor:
 
Betalningsvillkor: 10 dagar från faktura datum.
  Minsta order: 500kr

  Att tänka på:

  • Vid beställning av belysning, hitta först rätt stolpe eller väggfäste
    och välj till sist rätt lykthus.
  • Sollerö och Solvik (endast dessa två) finns både med hängande 
    och stående lykthus.
 

  Ev. företagsnamn:
 

  Namn / Kontaktperson:
 

  Kund / Org
. / Pers.- nummer: 
 

   Telefonnummer:
   (Avisering sker alltid för privatpersoner)
  


   Faxnummer:
 

  E-mail: 
  (Bekräftelse på beställning skickas hit)
 


Kryssa i rutan för att ge ditt godkännande till Kulturjern AB med hantering av alla Era delgivna uppgifter.

Om ingen faktureringsadress anges så skickas fakturan
till leveransadressen.

 Leveransadress  Faktureringsadress: 

 Gata:
 

 Postnr och  Postort:
      


 Ev. Leveransanvisning:
 

 Gata / Box:  
 

 Postnr och  Postort:
      

 Önskar följande varor:

Antal: Pris / st:
(inkl. moms)
Artikel: Artikelnummer:
(Ej obligatoriskt)

 Frakt & emballage tillkommer.

 Upp till 25kg, fast pris 200kr. 
 Över 25kg beror priset på avstånd från
 Stockholm och vikten.
 Order över 15000kr levereras fraktfritt.

 

<% Else ' Plocka värden från de olika fälten ' name =Request.Form("name") ' company =Request.Form("companyname") ' saddress =Request.Form("streetaddress") ' paddress =Request.Form("postaddress") ' country =Request.Form("country") ' text =Request.Form("comments") ' Initiera Jmailobjektet Set jmail = Server.CreateObject("JMail.Message") Set cmail = Server.CreateObject("JMail.Message") ' Mailadressen som formuläret ska skickas till. jmail.AddRecipient( "thomas.westin@vinalia.com" ) , "scripts/mail.asp" ', "Kopia säljare" cmail.AddRecipient Request.Form("e_mail") , "scripts/mail.asp" ' Avsändaradress. Denna MÅSTE vara en giltig epostadress, annars kommer det inte fungera jmail.From = "webmaster@kulturjern.se" cmail.From = "webmaster@kulturjern.se" ' Ärende/subject ' jmail.Name = name ' jmail.Compa = company jmail.Subject = "Order" cmail.Subject = "Din Beställning" ' Bodyn på epostmeddelandet jmail.appendtext("Följande är beställt:" & vbcrlf & vbcrlf) cmail.appendtext("Här kommer bekräftelsen på beställningen:" & vbcrlf & vbcrlf) If Not Request.Form("companyname") = "" Then jmail.appendtext("Företagsnamn: " & Request.Form("companyname") & vbcrlf) jmail.appendtext("Att: " & Request.Form("name") & vbcrlf) cmail.appendtext("Företagsnamn: " & Request.Form("companyname") & vbcrlf) cmail.appendtext("Att: " & Request.Form("name") & vbcrlf) Else jmail.appendtext("Namn: " & Request.Form("name") & vbcrlf) cmail.appendtext("Namn: " & Request.Form("name") & vbcrlf) End If jmail.appendtext("Org / Pers / Kund -nummer: " & Request.Form("id_num") & vbcrlf) jmail.appendtext("Telefonnummer: " & Request.Form("tel_num") & vbcrlf) cmail.appendtext("Org / Pers / Kund -nummer: " & Request.Form("id_num") & vbcrlf) cmail.appendtext("Telefonnummer: " & Request.Form("tel_num") & vbcrlf) If Not Request.Form("fax_num") = "" Then jmail.appendtext("Faxnummer: " & Request.Form("fax_num") & vbcrlf ) cmail.appendtext("Faxnummer: " & Request.Form("fax_num") & vbcrlf ) End If jmail.appendtext(vbcrlf & "Leveransadress:" & vbcrlf) jmail.appendtext(Request.Form("del_sadd") & vbcrlf ) jmail.appendtext(Request.Form("del_pnum") & " " & Request.Form("del_padd") & vbcrlf & vbcrlf) jmail.appendtext("Leveransaanvisning:" & vbcrlf) jmail.appendtext(Request.Form("S1") & vbcrlf & vbcrlf) cmail.appendtext(vbcrlf & "Leveransadress:" & vbcrlf) cmail.appendtext(Request.Form("del_sadd") & vbcrlf ) cmail.appendtext(Request.Form("del_pnum") & " " & Request.Form("del_padd") & vbcrlf & vbcrlf) cmail.appendtext("Leveransanvisning:" & vbcrlf) cmail.appendtext(Request.Form("S1") & vbcrlf & vbcrlf) If Not Request.Form("Pay_add") = "" Or Not Request.Form("Pay_Padd") = "" Or Not Request.Form("Pay_Padd") = "" Then jmail.appendtext("Faktureringsadress:" & vbcrlf) jmail.appendtext(Request.Form("Pay_add") & vbcrlf ) jmail.appendtext(Request.Form("Pay_Pnum") & " ") jmail.appendtext(Request.Form("Pay_Padd") & vbcrlf & vbcrlf) cmail.appendtext("Faktureringsadress:" & vbcrlf) cmail.appendtext(Request.Form("Pay_add") & vbcrlf ) cmail.appendtext(Request.Form("Pay_Pnum") & " ") cmail.appendtext(Request.Form("Pay_Padd") & vbcrlf & vbcrlf) Else jmail.appendtext("Faktureringsadress är den samma som Leveransadress" & vbcrlf & vbcrlf) cmail.appendtext("Faktureringsadress är den samma som Leveransadress" & vbcrlf & vbcrlf) End If jmail.appendtext("Följande är beställt:" & vbcrlf) cmail.appendtext("Följande är beställt:" & vbcrlf) Dim iCount For iCount = 1 TO 8 If Not Request.Form("Amount_"&[iCount]) = "" Then jmail.appendtext(Request.Form("Amount_"&[iCount]) & "st " & Request.Form("Name_"&[iCount]) & " med Artikelnummer " & Request.Form("ArtNum_"&[iCount]) & " samt pris " & Request.Form("Price_"&[iCount]) & " kr/st " & vbcrlf) cmail.appendtext(Request.Form("Amount_"&[iCount]) & "st " & Request.Form("Name_"&[iCount]) & " med Artikelnummer " & Request.Form("ArtNum_"&[iCount]) & " samt pris " & Request.Form("Price_"&[iCount]) & " kr/st " & vbcrlf) End If Next cmail.appendtext(vbcrlf & "Frakt och emballage tillkommer." & vbcrlf) jmail.appendtext(vbcrlf & Request.Form("name") & " har " & Request.Form("approve") & " Kulturjerns användande av lämnade uppgifter " & vbcrlf & vbcrlf) cmail.appendtext(vbcrlf & Request.Form("name") & " har " & Request.Form("approve") & " Kulturjerns användande av lämnade uppgifter " & vbcrlf) jmail.appendtext("IP-adress, REMOTE_ADDR: " & Request.ServerVariables("REMOTE_ADDR") & vbcrlf) jmail.appendtext("IP-adress, REMOTE_HOST: " & Request.ServerVariables("REMOTE_HOST") & vbcrlf) jmail.appendtext(vbcrlf & "E-mail: " & Request.Form("e_mail") & vbcrlf) jmail.appendtext("Datum: " & Now() & vbcrlf) jmail.appendtext("Session: " & Session.SessionID & vbcrlf) cmail.appendtext("Datum: " & Now() & vbcrlf) cmail.appendtext("Session: " & Session.SessionID & vbcrlf) ' Här sätter man vilken smtpserver som ska ta hand om mailet. Använd 80.71.6.136 'JMail.ServerAddress = "10.0.0.136" jmail.Send( "10.0.0.136" ) cmail.Send( "10.0.0.136" ) ' Ändra till vilken sida som ska visas efter de fyllt i formuläret. Response.Redirect "tack.htm" %><% End If %>