Problem med shop-bestilling.

Kære eksperter

Jeg har fornyligt fået foræret et shopsystem og jeg vil gerne have lavet nogle ændringer. Problemet er, at i det nuværende system bliver alle bestillinger skrevet til en database ved bestillingssiden. Jeg vil gerne have bestillingen skrevet til en e-mail samtidig, selvfølgelig med alle de samme variabler så jeg kan se hvad og hvem, som der har bestilt.

Nedenfor er ASP-koden til bestillingssiden, da jeg formoder at det er her der skal laves lidt om. Jeg håber, at nogle af jer programmeringsguruer har mod på at hjælpe mig.

På forhånd tak.

---ASP-kode---
<%
    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("sAmt") = Request.form("intShipping")
        rsOrder("tax") = Request.form("intTax")
        rsOrder("fName") = Request.form("strFirst")
        rsOrder("lName") = Request.form("strLast")
        rsOrder("email") = Request.form("strEmail")
        rsOrder("address1") = Request.form("strAddress1")
        rsOrder("address2") = Request.form("strAddress2")
        rsOrder("city") = Request.form("strCity")
        rsOrder("state") = Request.form("strState")
        rsOrder("postalcode") = Request.form("strPostalCode")
        rsOrder("country") = Request.form("strCountry")
        rsOrder("phone") = Request.form("strPhone")
        rsOrder("sfName") = Request.form("strShipFirst")
        rsOrder("slName") = Request.form("strShipLast")
        rsOrder("sAddress") = Request.form("strShipAddress")
        rsOrder("sCity") = Request.form("strShipCity")
        rsOrder("sState") = Request.form("strShipState")
        rsOrder("sPostalcode") = Request.form("strShipPostalCode")
        rsOrder("sCountry") = Request.form("strShipCountry")
        rsOrder("sMethod") = Request.form("strShipMethod")
        rsOrder("total") = Request.form("intTotal")
        rsOrder("orderDate") = Date
        rsOrder("status") = "COMPLETE"
        rsOrder.Update
       
        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

%>
---ASP-kode slut---