<% sub tellme %>
[Part Number ] [Description ] [Retail Price ] [Inc VAT ]
<%response.write rs(0) %> <%response.write rs(1) %> <%response.write trim(formatnumber(ourprice,2))%> <%response.write trim(formatnumber(ourprice*1.2,2))%>
<% end sub %>

Triumph MG Part Locator January 2011 Parts price list


<% dim used lname=request.querystring("rapart") myvar=lname Set cn = Server.CreateObject("ADODB.Command") DSN = "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}; " DSN = DSN & "DBQ=" & server.mappath("./parts.mdb") SQL = "SELECT * FROM price where partno = '" & trim(myvar) & "'" cn.ActiveConnection = DSN cn.CommandText = SQL Set rs = Cn.Execute(sql) If rs.EOF = False and rs.BOF = False Then if rs(3) < rs(2) then ourprice= rs(2)/100*98 else ourprice = rs(2) end if tellme If rs(5)>0 then %>

There is an exchange surcharge of <%response.write trim(formatnumber(rs(5),2))%> on this item.

<% else %>


<% End If else response.write " Sorry, that part number is not on file." %>


<% End If response.write " This transaction timed at " & formatdatetime(dateadd("H",6,now()),4) & " on " response.write formatdatetime(now(),1) %>