<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> Crossfit Georgetown - Effort... Commitment... Results! <% Dim oConn, oRs Dim qry, connectstr Dim db_name, db_username, db_userpassword Dim db_server db_server = "wcalem.db.3357039.hostedresource.com" db_name = "wcalem" db_username = "wcalem" db_userpassword = "Trader01" connectstr = "Driver={MySQL ODBC 3.51 Driver};SERVER=" & db_server & ";DATABASE=" & db_name & ";UID=" & db_username & ";PWD=" & db_userpassword Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open connectstr %>
<% qry = "SELECT * FROM NEWS ORDER BY NEWS_ORDER ASC" Set oRS = oConn.Execute(qry) if not oRS.EOF then while not oRS.EOF response.write "" response.write "" oRS.movenext if not oRS.EOF then response.write "" end if wend oRS.close end if Set oRs = nothing %>
" & oRs.Fields("NEWS_TITLE") & "
  " if Len(oRs.Fields("NEWS_LINK")) <> 0 then response.write "" end if response.write oRs.Fields("NEWS_BODY") if Len(oRs.Fields("NEWS_LINK")) <> 0 then response.write "" end if response.write "
 
<% Set oRs = nothing Set oConn = nothing %>