<%@ Language=VBScript %> <%Response.Buffer=True%> <% pointer=Request.QueryString("p") If pointer="ni" Then href="newequip.asp" keyword="New Equipment" ElseIf pointer="ui" Then href="usedequip.asp" keyword="Used Equipment" ElseIf pointer="si" Then href="supply_list.asp" keyword="Supplies" ElseIf pointer="PTI" Then href="parts.asp" keyword="Parts" End If If Request.QueryString("m")=0 then message="We were unable to email your request due to technical difficulties beyond our control.
Please try again shortly and the current problem should be resolved.
We apologize for the inconvenience." ElseIf Request.QueryString("m")=1 then message="Thank-you for your interest in our " & keyword & "!
We value this interest so please expect a reply soon." End If %>

<%=message%> Wades Bindery Repair Service Ltd.

>

<% Function IsSelected(value,data) If value=data then IsSelected="Selected" Else IsSelected="" End If End Function %>