Link Directory


Categories

<% set myconn = server.createobject("adodb.connection") connection = "DRIVER={MySQL};SERVER=sqlc2.megasqlservers.com;DATABASE=directory_outdoorleisurecompany_com;" & "USER=dbm.outdoorleisurecompany.com;PASSWORD=97145; OPTION=3;" 'connection = "driver={MySQL};server=134.220.4.130;uid=demo;database=mydatabase" myconn.open (connection) set result = server.createobject("adodb.recordset") sql = "SELECT * FROM categories ORDER BY name ASC" set result = myconn.execute(sql) if not result.EOF then response.write("") else response.write("

No categories to date") end if %>

Return to Outdoor Leisure Company.

<% Dim fso2 Set fso2 = Server.CreateObject("Scripting.FileSystemObject") Dim oTextStream2 Set oTextStream2 = fso2.OpenTextFile(Server.MapPath("footer.html"),1) ' 1: ForReading Response.Write oTextStream2.ReadAll() Set oTextStream2 = Nothing Set fso2 = Nothing %>