undskyld det sene svar - skulle hjem og have gæster og se bold. her er koden til hele filen:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/database.asp" -->
<%
Dim rsLeveringssted
Dim rsLeveringssted_numRows
Set rsLeveringssted = Server.CreateObject("ADODB.Recordset")
rsLeveringssted.ActiveConnection = MM_database_STRING
rsLeveringssted.Source = "SELECT * FROM porto ORDER BY Destination ASC"
rsLeveringssted.CursorType = 0
rsLeveringssted.CursorLocation = 2
rsLeveringssted.LockType = 1
rsLeveringssted.Open()
rsLeveringssted_numRows = 0
Dim rsPortoRest
Dim rsPortoRest_numRows
Set rsPortoRest = Server.CreateObject("ADODB.Recordset")
rsPortoRest.ActiveConnection = MM_database_STRING
rsPortoRest.Source = "SELECT * FROM porto_rest"
rsPortoRest.CursorType = 0
rsPortoRest.CursorLocation = 2
rsPortoRest.LockType = 1
rsPortoRest.Open()
rsPortoRest_numRows = 0
Dim rsVaegt__MMColParam
rsVaegt__MMColParam = Session.SessionID
Dim rsVaegt
Dim rsVaegt_numRows
Set rsVaegt = Server.CreateObject("ADODB.Recordset")
rsVaegt.ActiveConnection = MM_database_STRING
rsVaegt.Source = "SELECT sum(Antal*Vaegt) as Vaegt FROM indkoebskurv, produkter WHERE sessionID = " + Replace(rsVaegt__MMColParam, "'", "''") + " AND IDprodukt = produktID GROUP BY sessionID"
rsVaegt.CursorType = 0
rsVaegt.CursorLocation = 2
rsVaegt.LockType = 1
rsVaegt.Open()
rsVaegt_numRows = 0
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rsPortoRest_numRows = rsPortoRest_numRows + Repeat1__numRows
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
Dim rsVaegt_total
Dim rsVaegt_first
Dim rsVaegt_last
' set the record count
rsVaegt_total = rsVaegt.RecordCount
' set the number of rows displayed on this page
If (rsVaegt_numRows < 0) Then
rsVaegt_numRows = rsVaegt_total
Elseif (rsVaegt_numRows = 0) Then
rsVaegt_numRows = 1
End If
' set the first and last displayed record
rsVaegt_first = 1
rsVaegt_last = rsVaegt_first + rsVaegt_numRows - 1
' if we have the correct record count, check the other stats
If (rsVaegt_total <> -1) Then
If (rsVaegt_first > rsVaegt_total) Then
rsVaegt_first = rsVaegt_total
End If
If (rsVaegt_last > rsVaegt_total) Then
rsVaegt_last = rsVaegt_total
End If
If (rsVaegt_numRows > rsVaegt_total) Then
rsVaegt_numRows = rsVaegt_total
End If
End If
' *** Recordset Stats: if we don't know the record count, manually count them
If (rsVaegt_total = -1) Then
' count the total records by iterating through the recordset
rsVaegt_total=0
While (Not rsVaegt.EOF)
rsVaegt_total = rsVaegt_total + 1
rsVaegt.MoveNext
Wend
' reset the cursor to the beginning
If (rsVaegt.CursorType > 0) Then
rsVaegt.MoveFirst
Else
rsVaegt.Requery
End If
' set the number of rows displayed on this page
If (rsVaegt_numRows < 0 Or rsVaegt_numRows > rsVaegt_total) Then
rsVaegt_numRows = rsVaegt_total
End If
' set the first and last displayed record
rsVaegt_first = 1
rsVaegt_last = rsVaegt_first + rsVaegt_numRows - 1
If (rsVaegt_first > rsVaegt_total) Then
rsVaegt_first = rsVaegt_total
End If
If (rsVaegt_last > rsVaegt_total) Then
rsVaegt_last = rsVaegt_total
End If
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "
http://www.w3.org/TR/html4/loose.dtd"><html>
<head>
<title>A. C. Perchs Thehandel</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="include/stylesheet.css" rel="stylesheet" type="text/css">
</head>
<script language="javascript">
function tjekvalgt()
{
if(document.getElementById("fragt").value == 0)
{
alert('Vælg venligst et leveringssted!');
return;
}
document.levering.submit();
}
function lavpris(objektID, sted)
{
var pris = document.getElementById(objektID);
document.getElementById("fragt").value = pris.value;
document.getElementById("hvorhen").value = sted;
return;
}
</script>
<body bgcolor="#EBEDD8">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><table width="939" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="10" valign="top"><img src="../images/frontend/skygge_left.gif" width="10" height="500"></td>
<td valign="top" bgcolor="#FFFFFF"><table width="100%" height="100%" border="0" cellpadding="5" cellspacing="0">
<tr>
<td><table width="800" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="150" style="border-right:5px solid #ffffff"><a href="index.asp"><img src="../images/frontend/logo.jpg" width="150" height="150" border="0" style="border:1px solid #5B5E46"></a></td>
<td><%
mappenavn = "../images/frontend/top/" '<<---- Angiv hvilken folder filerne er i
Set fs = CreateObject("Scripting.FileSystemObject")
Set files = fs.GetFolder(server.mappath(mappenavn)).Files
For Each f in files
if InStr(1,"swf,gif,jpg,jpeg,bmp", LCase(fs.GetExtensionName(f.name))) > 0 then
filList = filList & "," & f.name
end if
next
filList = mid(filList,2)
billeder = Split(filList,",")
randomize
billedsrc = mappenavn & billeder(Int(rnd * (Ubound(billeder)+1)))
'Billede fil
Response.Write "<img src=""" & billedsrc & """>"
Set fs = Nothing
Set files = Nothing
%></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
<tr>
<td><!--#include virtual="dansk/include/menu.asp" --></td>
</tr>
<tr>
<td height="5"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="3"></td>
</tr>
<tr>
<td><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF" style="border:1px solid #cccccc">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="15" background="../images/frontend/bg_mini_squar.gif" style="border:1px solid #999999;padding-left: 2px"><table width="100%" border="0">
<tr>
<td class="darkGreenBold">Levering</td>
</tr>
</table></td>
</tr>
<tr>
<td height="2"></td>
</tr>
<tr>
<td height="466" valign="top" class="darkGreenNorm" style="border:1px solid #999999;padding: 5px"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><table border="0" cellspacing="0" cellpadding="3">
<tr>
<td class="almGreyNormal" background="../images/frontend/bg_mini_squar.gif" style="border:1px solid #cccccc">Indkøbsliste</td>
<td width="10"> </td>
<td background="../images/frontend/bg_mini_squar.gif" class="almGreyNormal" style="border:1px solid #cccccc">Adresseoplysninger</td>
<td width="10"> </td>
<td background="../images/frontend/bg_mini_squar.gif" class="darkGreenBold" style="border:1px solid #999999">Levering</td>
<td width="10"> </td>
<td background="../images/frontend/bg_mini_squar.gif" class="almGreyNormal" style="border:1px solid #cccccc">Betaling</td>
<td width="10"> </td>
<td background="../images/frontend/bg_mini_squar.gif" class="almGreyNormal" style="border:1px solid #cccccc">Ordrebekræftelse</td>
</tr>
</table></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td height="15" bgcolor="#CCCCCC"><div align="center" class="darkGreenBold">Vælg leveringssted </div></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="150"> </td>
<td><table width="100%" border="0" cellspacing="5" cellpadding="0">
<tr>
<td colspan="2">Deres ordre vejer i alt <%If (rsVaegt.Fields.Item("Vaegt").Value)<1000 Then%><%=FormatNumber((rsVaegt.Fields.Item("Vaegt").Value),0)%> gram<%Else%><%=FormatNumber((rsVaegt.Fields.Item("Vaegt").Value/1000),2)%> kilo<%End if%></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td>Leveringssted</td>
<td>Leveringsomkostninger</td>
</tr>
<%
value = Clng(rsVaegt.Fields.Item("Vaegt").Value)
If value <= 200 Then
danskporto = FormatNumber(rsLeveringssted.Fields.Item("200gram").Value,2)
ElseIf value <= 400 Then
danskporto = FormatNumber(rsLeveringssted.Fields.Item("400gram").Value,2)
ElseIf value <= 800 Then
danskporto = FormatNumber(rsLeveringssted.Fields.Item("800gram").Value,2)
ElseIf value <= 4800 Then
danskporto = FormatNumber(rsLeveringssted.Fields.Item("4800gram").Value,2)
ElseIf value <= 9500 Then
danskporto = FormatNumber(rsLeveringssted.Fields.Item("9500gram").Value,2)
ElseIf value <= 14500 Then
danskporto = FormatNumber(rsLeveringssted.Fields.Item("14500gram").Value,2)
ElseIf value <= 19500 Then
danskporto = FormatNumber(rsLeveringssted.Fields.Item("19500gram").Value,2)
ElseIf value <= 1000000 Then
danskporto = FormatNumber(rsLeveringssted.Fields.Item("1000000gram").Value,2)
End If
%>
<tr>
<td><p>
<label>
<input type="radio" onclick="lavpris('fragtdansk','<%=rsLeveringssted("Destination")%>');" name="RadioGroup" value="<%=rsLeveringssted("Destination")%>">
<%=(rsLeveringssted.Fields.Item("Destination").Value)%></label>
</p></td>
<td>DKK <%=danskporto%>
<input name="fragtdansk" type="hidden" value="<%=danskporto%>">
</td>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT rsPortoRest.EOF))
%>
<tr>
<td><p>
<label>
<input type="radio" onclick="lavpris('fragt<%=rsportorest("IDportorest")%>','<%=rsPortoRest("Destination")%>');" name="RadioGroup" value="<%=rsPortoRest("Destination")%>">
<%=(rsPortoRest.Fields.Item("Destination").Value)%></label>
</p></td>
<td>DKK <%=FormatNumber((rsPortoRest.Fields.Item("Grundpris").Value)+((fix((rsVaegt.Fields.Item("Vaegt").Value)/1000)+1)*(rsPortoRest.Fields.Item("PerKilo").Value)),2)%>
<input name="fragt<%=rsportorest("IDportorest")%>" type="hidden" value="<%=FormatNumber((rsPortoRest.Fields.Item("Grundpris").Value)+((fix((rsVaegt.Fields.Item("Vaegt").Value)/1000)+1)*(rsPortoRest.Fields.Item("PerKilo").Value)),2)%>"></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsPortoRest.MoveNext()
Wend
%>
<tr valign="bottom">
<td height="18"> Grønland</td>
<td><a href="kontakt.asp">Kontakt os </a></td>
</tr>
</table></td>
<td width="140"> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr bgcolor="#CCCCCC">
<td height="15"> </td>
<td height="15"> </td>
<td height="15"> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td align="right">
<input name="sendknap" style="cursor:pointer" type="button" class="buttons_large" onclick="tjekvalgt();" value="Næste trin"></td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td align="center"><div align="center">
</div></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="5"> </td>
<td width="270" valign="top"><!--#include virtual="dansk/include/hojre_side.asp" --></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="10" valign="top"><img src="../images/frontend/skygge_right.gif" width="10" height="500"></td>
</tr>
</table>
</td>
</tr>
</table>
<form ACTION="action_levering.asp?doo=opdater" METHOD="POST" name="levering">
<input type="hidden" name="bID" value="<%=Session.SessionID%>">
<input type="hidden" name="fragt" value="">
<input type="hidden" name="hvorhen" value="">
</form>
</body>
</html>
<%
rsLeveringssted.Close()
Set rsLeveringssted = Nothing
%>
<%
rsPortoRest.Close()
Set rsPortoRest = Nothing
%>
<%
rsVaegt.Close()
Set rsVaegt = Nothing
%>