Travel Dispatch 2003

<%Session.timeout = 30 Set conn = Server.CreateObject("ADODB.Connection") conn.CommandTimeOut=0 conn.open "DSN=eGO","ego","jabiru7"%> Travel Dispatch 2003

<% =Date %> The Deals You Aren't Supposed to Know About
Specials
<% sql = "SELECT category_name,url,Links_name,link_key FROM links,category Where links.category_key=category.category_key" sql = sql & " and category.category_key= 1" sql = sql & " ORDER by Links_name" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 0,1 if not rs.eof then rs.movefirst do while not rs.eof response.write "" & rs("Links_name") & "

" & vbcrlf rs.movenext loop else%> There are currently no specials at this time <%end if%> Close This Window