koden kan faktisk koges ned til dette... du behøver ikke at ændre i checkout.asp... det er ikke det, der laver fejl.. prøv at copy-paste det her... jeg skal lige spise nu, men er tilbage om under en halv time...
<%@ Language=VBScript %>
<%
'******************************************************
'Copyright©2000-2002 MetaLinks.com @
http://metalinks.com'******************************************************
%>
<% pageTitle = "Validate Order" %>
<!--#include file="adovbs.inc"-->
<!--#include file="db.asp"-->
<font face="Arial">
<%
'displays header on form field validation pages
For Each key in Request.Form
strName = key
strValue = Request.Form(key)
Session(strName) = strValue
Next
strFirst = Request.Form("strFirst")
strLast = Request.Form("strLast")
If strFirst = "" then
Response.Write "<html><head><body>"
Response.Write "<font size='4'><b>Please enter your first name.</b><br><br><font size='2'>Press your browser's <b>back button</b> to return to form.</font>"
Response.End
end if
If strLast = "" then
Response.Write "<html><head><body>"
Response.Write "<font size='4'><b>Please enter your last name.</b><br><br><font size='2'>Press your browser's <b>back button</b> to return to form.</font>"
Response.Write "<hr color='#cccccc' size='1' noshade>"
Response.End
end if
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConString
intOrderID = Request.form("intOrderID")
set rsOrder = Server.CreateObject("ADODB.Recordset")
rsOrder.Open "SELECT * FROM orders WHERE orderID = " _
& intOrderID, Conn, adOpenStatic, adLockOptimistic, _
adCmdText
if rsOrder.EOF then
Response.Write "There is a problem with your order. "
Response.Write "Please contact customer service."
else
rsOrder("fName") = Request.form("strFirst")
rsOrder("lName") = Request.form("strLast")
Conn.Execute("DELETE FROM itemsOrdered WHERE " _
& "orderID = " & intOrderID)
set rsItem = Server.CreateObject("ADODB.Recordset")
rsItem.Open "itemsOrdered", Conn, adOpenStatic, adLockOptimistic, adCmdTable
for each item in Request.form("strOrderItem")
strOrderItem = cstr(item)
itemInfo = split(strOrderItem, ",")
rsItem.addNew
rsItem("orderID") = intOrderID
rsItem("productID") = itemInfo(0)
rsItem("quantity") = itemInfo(1)
rsItem.Update
next
rsItem.Close
set rsItem = Nothing
Session.abandon
end if
rsOrder.Close
set rsOrder = Nothing
Conn.Close
set Conn = Nothing
%>
<html>
<head>
<meta name="GENERATOR" Content="Microsoft FrontPage 5.0">
<title><%= pageTitle %></title>
<style type="text/css">
<!--
a:link { color: #808080 }
a:visited { color: #808080 }
a:hover { color: #ff9900 }
-->
</style>
</head>
<body bgcolor="#ffffff">