<% id=request.QueryString("id") if id<>"" then dim conn theconn q1="select * from categories where id like '"&id&"'" set rs1=conn.execute(q1) ttitle=""&rs1("ttitle")&"" tamount=""&rs1("tamount")&"" q2= "update categories set tamount=tamount+1 where id like '"&id&"'" set rs2=conn.execute(q2) %>
<% else end if %>
Monthly Newsletter:
Sign up to our monthly newsletter and we will notify you with upcoming special events
One Time Proposal:
Please fill-in your email and we will get back to you with 3 suggestions.
(you will shortly receive a personalized questrionnaire to help us offer you the best scenario)
Your E-mail *:
* We confirm that we will handle your personal information with absolute confidentiality
and will not forward or sell your e-mail address at ANY cost.