<% Sub DoHeader %>

Ready to order your jacket... <% End Sub Sub DoFooter %>

<% End Sub Function GetPrice(strItem) Dim strResult Dim adoConnection Dim adoRecordSet set adoConnection = Server.CreateObject("ADODB.Connection") set adoRecordSet = Server.CreateObject("ADODB.Recordset") adoConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("access/pricing.mdb") & ";Persist Security Info=False" adoConnection.Open adoConnection.ConnectionString adoRecordSet.Open "SELECT price FROM tblPrices WHERE item=""" & strItem & """", adoConnection If adoRecordSet.EOF Then strResult = -1 Else strResult = adoRecordSet("price") End If If Lcase(strItem) <> "tax" Then strResult = RoundIt(strResult) End If adoRecordSet.Close adoConnection.Close GetPrice = strResult End Function Sub SetPrice(strItem,dblPrice) Dim strResult Dim adoConnection Dim adoRecordSet set adoConnection = Server.CreateObject("ADODB.Connection") set adoRecordSet = Server.CreateObject("ADODB.Recordset") adoConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("access/pricing.mdb") & ";Persist Security Info=False" adoConnection.Open adoConnection.ConnectionString adoRecordSet.Open "SELECT price FROM tblPrices WHERE item=""" & strItem & """", adoConnection, , 3 If adoRecordSet.EOF Then Exit Sub Else adoRecordSet("price") = CDbl(dblPrice) adoRecordSet.Update End If adoRecordSet.Close adoConnection.Close End Sub Function GetHTTPSURL() GetHTTPSURL = "https://www.nationalachiever.com/jackets/" End Function %> <% Sub DoSecureHeader %>

Ready to order your jacket... <% End Sub Sub DoSecureFooter %>

	© Copyright 2002 National Achiever

<% End Sub Function RoundIt(strResult) If Instr(Cstr(strResult), ".") Then If Instr(Cstr(strResult), ".") = Len(Cstr(strResult)) - 1 Then strResult = CStr(strResult) & "0" End If If Instr(Cstr(strResult), ".") < Len(Cstr(strResult)) - 2 Then strResult = Round(strResult,2) End If Else strResult = strResult & ".00" End If RoundIt = strResult End Function%>