Order_configutation:
<%
' -> DETTE ANGIVER TEKSTEN PÅ VELKOMSTMEDDELELSEN.
OrderIntroduction = "<h3>e-shop'en</h3><p>e-shop'en tilbyder et udvalg af produkter i kategorierne vist her til venstre.</p><p>Foretag venligst dit valg og afgiv din ordre.</p><p>Vi siger på forhånd tak, fordi du har valgt at handle hos e-shop'en!</p>"
' -> DETTE ANGIVER TEKSTEN PÅ BEKRÆFTELSESMEDDELELSEN.
OrderSubmitted = "<h3>Din ordre er blevet modtaget!</h3><p>Du vil modtage en kopi af ordren til dit eget regnskab, sendt til den opgivne e-mail adresse. Vi vil vende tilbage indenfor to arbejdsdage.</p><p>Tak for ordren!</p>"
' -> DETTE ANGIVER TEKSTEN PÅ FEJLMEDDELELSEN.
OrderFailed = "<h3>Din ordre blev ikke sendt!</h3><p>Der opstod en fejl under afsendelsen af ordren. Gå venligst tilbage til forrige side og udfyld alle felter.</p>"
' -> DETTE ANGIVER TEKSTEN I E-MAIL'EN, DER INDEHOLDER ORDREN.
OrderMailText = "Den følgende ordre er blevet afgivet:"
' -> DETTE ANGIVER ORDRENS STATUS.
OrderStatus_ProductsAdded = "Produkter tilføjet:"
OrderStatus_NoProductsAdded = "Ingen produkter tilføjet"
' -> DETTE ANGIVER KATEGORIERNES/PRODUKTERNES STATUS.
CategoryStatus_ProductsAdded = "BESTIL"
CategoryStatus_NoProducts = "<h3>Denne kategori er tom!</h3><p>Vi beklager, at denne kategori på nuværende tidspunkt er tom.</p><p>Vi håber, der er produkter i andre karegorier, der har interesse.</p>"
' -> DETTE ANGIVER OVERSKRIFTEN PÅ DE FORSKELLIGE VARIABLER FRA FORMULAREN.
ListCurrency = "Kr. "
ListNumber = "#"
ListPrice = "Pris/stk."
ListProduct = "Produkt"
ListQuantity = "Antal"
ListShipping = "Fragt"
ListSubTotal = "I alt ekskl. Fragt & Moms"
ListSubTotalShipping = "I alt inkl. Fragt"
ListTax = "Moms (25%)"
ListTotal = "I alt"
ListTotal_AllTogether = "I alt inkl. Fragt & Moms"
' -> LÆS VENLIGST 'ReadMe.txt' VEDR. SKRIVNING AF TAL PÅ HHV. DANSK OG ENGELSK.
' -> DETTE ANGIVER VÆRDIEN, SOM ANVENDES TIL BEREGNINGEN AF FRAGT.
' -> EN VÆRDI PÅ '35,00' SKRIVES SOM '35,00' TIL BEREGNINGEN.
ListShipping_Value = "35,00"
' -> DETTE ANGIVER VÆRDIEN, SOM ANVENDES TIL BEREGNINGEN AF MOMS.
' -> EN VÆRDI PÅ '25%' SKRIVES SOM '0,250' TIL BEREGNINGEN.
ListTax_Value = "0,250"
' -> DETTE BEREGNER 'I alt inkl. Fragt & Moms'
' -> PRODUKTETS PRIS GANGES MED 1,000
ListZero_Value = "1,000"
' -> DERTIL LÆGGES MOMS 0,250
' -> DEN ENDELIGE PRIS GANGES MED 1,250
ListTotal_AllTogether_Value = "1,250"
' -> DETTE ANGIVER NAVNENE PÅ FELTERNE FOR KUNDE INFORMATION (VALIDERING).
OrderForm_Company = true
OrderForm_Name = true
OrderForm_Street = true
OrderForm_PostalCode = true
OrderForm_City = true
OrderForm_Phone = true
OrderForm_Email = true
OrderForm_Message = true
' -> DETTE ANGIVER NAVNENE PÅ FELTERNE FOR KUNDE INFORMATION.
OrderEmail_Company = "Firma"
OrderEmail_Name = "Navn"
OrderEmail_Street = "Gade/vej"
OrderEmail_PostalCode = "Postnummer"
OrderEmail_City = "By"
OrderEmail_Phone = "Telefon"
OrderEmail_Email = "E-mail"
OrderEmail_Message = "Besked"
%>
Order_review:
<!-- #include file="order_configuration.asp" -->
<%
Dim Kategorier(100,4)
Set db = Server.CreateObject("ADODB.Connection")
Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("e-shop.mdb")
db.Open Connect
SQL = "SELECT KategoriNavn, KategoriParent, KategoriID, KategoriRank FROM Kategorier ORDER BY KategoriRank"
Set rs = db.Execute(SQL)
While Not rs.EOF
If i<100 Then
Kategorier(i,0) = rs("KategoriNavn")
Kategorier(i,1) = rs("KategoriParent")
Kategorier(i,2) = rs("KategoriID")
Kategorier(i,3) = rs("KategoriRank")
End If
i = i+1
rs.MoveNext
Wend
arrayLength = i-1
Function show_search(parent1, CategoryLayer)
If parent1 <> vbNullString Then
For t = 0 To arrayLength
If Kategorier(t,1) = parent1 Then
EmptySpace = ""
For x = 0 To CategoryLayer
EmptySpace = EmptySpace & ""
Next
' -> VED AT ÆNDRE 'EmptySpace & ""' TIL 'EmptySpace & " "' LAVES EN INDRYKNING FOR HVER KATEGORI.
If CategoryLayer = 0 Then
AddOn = ""
AddOn1 = ""
End If
Response.Write(EmptySpace & "<a href='order_product.asp?r="&Kategorier(t,2)&"'>" & AddOn & Kategorier(t,0) & AddOn1 & "</a><br clear='all'>" & vbCrLf)
parent2 = Kategorier(t,2)
CategoryLayer1 = CategoryLayer +1
show_search parent2, CategoryLayer1
End If
Next
End If
End Function
%>
<%
Response.AddHeader "cache-control","private"
Response.AddHeader "pragma","no-cache"
Response.CacheControl = "no-cache"
Response.CacheControl = "private"
Response.Expires = -1
Response.ExpiresAbsolute = Now() -1
%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "
http://www.w3.org/TR/html4/loose.dtd"><html>
<head>
<title>e-shop'en</title>
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1">
<meta http-equiv="expires" content="-1">
<meta http-equiv="pragma" content="no-cache">
<meta name="author" content="e-shop'en">
<meta name="description" content="e-shop'en">
<meta name="keywords" content="e-shop'en">
<link rel="stylesheet" type="text/css" href="e-shop.css">
</head>
<body onLoad="if ('Navigator' == navigator.appName) document.forms[0].reset();">
<!-- TITEL START -->
<table align="center" border="0" cellpadding="0" cellspacing="0" width="600">
<tr>
<td align="left" valign="top" width="100%">
<h1>e - s h o p ' e n</h1>
</td>
</tr>
</table>
<!-- TITEL SLUT -->
<!-- TOM TABEL FOR AT GIVE MERE PLADS -->
<table align="center" border="0" cellpadding="0" cellspacing="0" width="600">
<tr>
<td align="center" valign="top" width="100%">
<p> </p>
</td>
</tr>
</table>
<!-- INDHOLD START -->
<table align="center" border="0" cellpadding="0" cellspacing="0" width="600">
<tr>
<td align="left" valign="top" width="140">
<h3>Produkter</h3>
<p><span class="small"><%show_search 0,0%></span></p>
<h3>Ordre Status</h3>
<p><span class="small"><%If (Session("Items"))>-1 Then%><a href="order_review.asp"><%=OrderStatus_ProductsAdded%> <%=Session("Items")+1%></a><%Else%><%=OrderStatus_NoProductsAdded%><%End If%>
<br clear="all">(Klik for beregning)</span></p>
</td>
<td align="left" valign="top" width="460">
<h3>Din Ordre</h3>
<table align="center" border="1" cellpadding="0" cellspacing="0" width="440">
<tr>
<th width="40"><%=ListQuantity%></th>
<th width="40"><%=ListNumber%></th>
<th width="200"><%=ListProduct%></th>
<th width="60"><%=ListPrice%></th>
<th width="60"><%=ListTotal%></th>
<th width="40">Slet</th>
</tr>
<%
OnlineOrder = Session("OnlineOrder")
If isArray(OnlineOrder) Then
i = Session("Items")
For t = o To i
If (OnlineOrder(t,0))<> "" Then
%>
<tr>
<td align="right" valign="middle" width="40"><span class="small"><%=OnlineOrder(t,0)%> </span></td>
<td align="center" valign="middle" width="40"><span class="small"><%=OnlineOrder(t,3)%></span></td>
<td align="left" valign="middle" width="200"><span class="small"> <%=OnlineOrder(t,4)%></span></td>
<td align="right" valign="middle" width="60"><span class="small"><%=formatNumber(OnlineOrder(t,2),2,,-2)%> </span></td>
<td align="right" valign="middle" width="60"><span class="small"><%
AllTogether_PerProduct = + OnlineOrder(t,0) * OnlineOrder(t,2)
AllTogether_AllProducts = formatNumber(AllTogether_AllProducts + AllTogether_PerProduct,2,,-2)
Response.Write(formatNumber(AllTogether_PerProduct,2,,-2) & "")
%> </span></td>
<td align="center" valign="middle" width="40"><span class="small"><a href="delete_product.asp?a_ID=<%=t%>" target="addFrame">X</a></span></td>
</tr>
<%
End If
Next
%>
<!-- HER FØLGER YDERLIGERE BEREGNINGER -->
<!-- TOM TABELRÆKKE FOR AT GIVE MERE PLADS -->
<tr>
<td colspan="6" align="left" valign="middle" width="440"><span class="empty">-</span></td>
</tr>
<tr>
<td align="left" colspan="4" valign="middle" width="340"><span class="small"> <%=ListSubTotal%></span></td>
<td align="right" valign="middle" width="60"><span class="small"><%=formatNumber(AllTogether_AllProducts,2,,-2)%> </span></td>
<td align="center" valign="middle" width="40"><span class="empty">-</span></td>
</tr>
<!-- DETTE VISER PRISEN PÅ FRAGT -->
<tr>
<td colspan="4" align="left" valign="middle" width="340"><span class="small"> <%=ListShipping%></span></td>
<td align="right" valign="middle" width="60"><span class="small"><%=ListShipping_Value%> </span></td>
<td align="center" valign="middle" width="40"><span class="empty">-</span></td>
</tr>
<!-- TOM TABELRÆKKE FOR AT GIVE MERE PLADS -->
<tr>
<td colspan="6" align="left" valign="middle" width="440"><span class="empty">-</span></td>
</tr>
<!-- DETTE VISER BEREGNINGEN AF 'I alt inkl. Fragt' -->
<tr>
<td colspan="4" align="left" valign="middle" width="340"><span class="small"><span class="bold"> <%=ListSubTotalShipping%></span></span></td>
<td align="right" valign="middle" width="60"><span class="small"><span class="bold"><%=formatNumber((AllTogether_AllProducts * ListZero_Value) + ListShipping_Value,2,,-2)%><input type="hidden" name="AddShipping" value="<%=formatNumber((AllTogether_AllProducts * ListZero_Value) + ListShipping_Value,2,,-2)%>"> </span></span></td>
<td align="center" valign="middle" width="40"><span class="empty">-</span></td>
</tr>
<!-- TOM TABELRÆKKE FOR AT GIVE MERE PLADS -->
<tr>
<td colspan="6" align="left" valign="middle" width="440"><span class="empty">-</span></td>
</tr>
<!-- DETTE VISER BEREGNINGEN AF MOMS -->
<tr>
<td colspan="4" align="left" valign="middle" width="340"><span class="small"> <%=ListTax%></span></td>
<td align="right" valign="middle" width="60"><span class="small"><%=formatNumber((AllTogether_AllProducts * ListTax_Value) + (ListShipping_Value * ListTax_Value),2,,-2)%><input type="hidden" name="AddTax" value="<%=formatNumber((AllTogether_AllProducts * ListTax_Value) + (ListShipping_Value * ListTax_Value),2,,-2)%>"> </span></td>
<td align="center" valign="middle" width="40"><span class="empty">-</span></td>
</tr>
<!-- TOM TABELRÆKKE FOR AT GIVE MERE PLADS -->
<tr>
<td colspan="6" align="left" valign="middle" width="440"><span class="empty">-</span></td>
</tr>
<!-- DETTE VISER BEREGNINGEN AF 'I alt inkl. Fragt & Moms' -->
<tr>
<td colspan="4" align="left" valign="middle" width="340"><span class="red"> <%=ListTotal_AllTogether%></span></td>
<td align="right" valign="middle" width="60"><span class="red"><%=formatNumber((AllTogether_AllProducts * ListTotal_AllTogether_Value) + (ListShipping_Value * ListTotal_AllTogether_Value),2,,-2)%><input type="hidden" name="Total_AllIncluded" value="<%=formatNumber((AllTogether_AllProducts * ListTotal_AllTogether_Value) + (ListShipping_Value * ListTotal_AllTogether_Value),2,,-2)%>"> </span></td>
<td align="center" valign="middle" width="40"><span class="empty">-</span></td>
</tr><%End If%>
</table>
<br clear="all">
<br clear="all">
<h3>Kunde Information</h3>
<table align="center" border="0" cellpadding="0" cellspacing="0" width="350">
<tr>
<td align="left" valign="top" width="100%">
<form action="order_send.asp" method="post" name="submit_order">
</form>
<form action="order_send.asp" method="post" name="submit_order">
<p><span class="bold"><%If OrderForm_Company = true Then%><%=OrderEmail_Company%></span>
<br clear="all"><input name="OrderForm_Company" size="40" type="text"></p><%End If%>
<p><span class="bold"><%If OrderForm_Name = true Then%><%=OrderEmail_Name%></span>
<br clear="all"><input name="OrderForm_Name" size="40" type="text"></p><%End If%>
<p><span class="bold"><%If OrderForm_Street = true Then%><%=OrderEmail_Street%></span>
<br clear="all"><input name="OrderForm_Street" size="40" type="text"></p><%End If%>
<p><span class="bold"><%If OrderForm_PostalCode = true Then%><%=OrderEmail_PostalCode%></span>
<br clear="all"><input name="OrderForm_PostalCode" size="40" type="text"></p><%End If%>
<p><span class="bold"><%If OrderForm_City = true Then%><%=OrderEmail_City%></span>
<br clear="all"><input name="OrderForm_City" size="40" type="text"></p><%End If%>
<p><span class="bold"><%If OrderForm_Phone = true Then%><%=OrderEmail_Phone%></span>
<br clear="all"><input name="OrderForm_Phone" size="40" type="text"></p><%End If%>
<p><span class="bold"><%If OrderForm_Email = true Then%><%=OrderEmail_Email%></span>
<br clear="all"><input name="OrderForm_Email" size="40" type="text"></p><%End If%>
<p><span class="bold"><%If OrderForm_Message = true Then%><%=OrderEmail_Message%></span>
<br clear="all"><textarea cols="38" name="OrderForm_Message" rows="6" wrap="soft">Skriv en besked til e-shop'en her...</textarea></p><%End If%>
<!-- BEMÆRK: KODEN 'wrap="soft"' ER FOR TILPASNING TIL ÆLDRE NETSCAPE BROWSERE -->
<table>
<tr>
<td><input class="button" onMouseOut="this.className='button'" onMouseOver="this.className='buttonHover'" type="submit" value="AFGIV ORDRE"></td>
<td><input class="button" onMouseOut="this.className='button'" onMouseOver="this.className='buttonHover'" type="reset" value="SLET ALT"></td>
</tr>
</table>
<!-- BEMÆRK: KNAPPERNE ER PLACEREDE I EN TABEL FOR FULD UDNYTTELSE AF 'MouseOver' EGENSKABERNE I OPERA 7 BROWSEREN -->
</form>
</td>
</tr>
</table>
<%
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
Erase Kategorier
%>
</td>
</tr>
</table>
<!-- INDHOLD SLUT -->
<!-- TOM TABEL FOR AT GIVE MERE PLADS -->
<table align="center" border="0" cellpadding="0" cellspacing="0" width="600">
<tr>
<td align="center" valign="top" width="100%">
<p> </p>
</td>
</tr>
</table>
<!-- FODNOTE START -->
<table align="center" border="0" cellpadding="0" cellspacing="0" width="600">
<tr>
<td align="center" valign="top" width="100%">
<hr noshade size="1" width="100%">
<p><span class="small">| Alle produkter er fiktive og kun til demonstration |</span></p>
</td>
</tr>
</table>
<!-- FODNOTE SLUT -->
</body>
<head>
<meta http-equiv="expires" content="-1">
<meta http-equiv="pragma" content="no-cache">
</head>
</html>
order_rewiev er den fil der regner. og order_configuration er den opsætningen står i.. jeg kan ikke lige se hvad der er galt.. udover sproget..
