<%
' Don't want to count on or potentially duplicate every page already #including db.asp
' So just do the connection logic here
dim qConn, qRS, quickImage
Set qConn = Server.CreateObject("ADODB.Connection")
qConn.Open Application("DB_CONNECTION_STRING")
set qRS = qConn.execute("select QuicklinkSmallImage from Promotions where PromoStatus=1")
quickImage = ""
if not qRS.EOF then
quickImage = qRS("QuicklinkSmallImage")
end if
qRS.Close
set qRS = nothing
set qConn = nothing
%>
