Link Directory - Free Stuff

<% 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 listings WHERE category ='" & "free_stuff" & "' ORDER BY title ASC" set result = myconn.execute(sql) if not result.EOF then response.write("

    ") while not result.EOF response.write("
  • " & result("title") & " - " & result("description") & "
  • ") result.movenext() wend response.write("
") else response.write("

No entries to date") end if %>

Return Home.
<% 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 %>