<% @Language = VBScript %> <% Option Explicit Dim objConn, strConnection, objRS, strQ, res_chose, x, y res_chose = Trim(Request.QueryString("id")) Set objConn = Server.CreateObject("ADODB.Connection") strConnection = "Data Source=bramptoninfo;" objConn.Open strConnection Set objRS = Server.CreateObject("ADODB.Recordset") Set objRS.ActiveConnection = objConn strQ = "SELECT * from BramptonCommunity WHERE key =" strQ = strQ & res_chose objRS.Open strQ %> Resource Chosen

 

<% Response.Write objRS("Name") %>
Address:


<%= objRS("Address") %> 
<%= objRS("City") %>
<%= objRS("PostCode") %>
Tel:           <%= objRS("Telephone") %>
Fax:          <%= objRS("Facsimile") %>
Email:        ><%= objRS("EMail") %>
Website:   target=new > <%= objRS("WebSite") %>

Description:
 <%= objRS("Notes") %>