|
We’ve
had great feedback from some of our early members, including
how they’re already winning more business and saving money.
This is a clear demonstration to us that The Institute is
already having a really positive impact on our members’
businesses.
<%
'***************************************************************
' read the cms table for consumer cms
'****************************************************************
'****************************************************************
' Connect to the database
'****************************************************************
Err.Clear
On Error Resume Next
call sqlconnect
Set conn = Server.CreateObject("ADODB.Connection")
conn.open session("sqlserverstring")
If Err.Number <> 0 Then
Session("eventtype") = "System error"
Session("eventdetails") = "Unable to connect to the database in consumer cms"
call logevent
session("systemerror") = 1
session("systemerrortext") = "Unable to connect to the database."
response.redirect("errorpage.asp")
End If
On Error GoTo 0
today = now()
todaydate = year(date) & "/" & month(date) & "/" & day(date) & " 00:00:00"
'**************************************
' read cms
'**************************************
Err.Clear
On Error Resume Next
strSQLQuery = "SELECT * FROM CMS WHERE cmsinstallermemsay = 'Y' and ('" & todaydate & "' >= cmsdisplayfrom and '" & todaydate & "' <= cmsdisplayto) order by cmsdate desc"
'strSQLQuery = "SELECT * FROM CMS"
response.redirect("reason.asp?reason=" & strsqlquery)
Set cms = Server.CreateObject("ADODB.Recordset")
cms.Open strSQLQuery, conn, 3, 3
If Err.Number <> 0 Then
response.write("There are no what our members say items at the moment1" & strSQLQuery )
End If
On Error GoTo 0
if cms.eof then
response.write("There are no what our members say items at the moment2" & strSQLQuery )
end if
do while not cms.eof
%>
| a<% = nocms)%>/<% = nocms2)%>//<% = nocms3)%><% = cms("cmstitle")%> |
| b<% = cms("cmsdate")%> |
c<% =Replace(cms("cmsshorttext"),vbCrlf,"
") %> |
|
|
i<% if cint(cms("cmsimageid")) > 0 then
'**************************************
' read images
'**************************************
Err.Clear
On Error Resume Next
strSQLQuery2 = "SELECT * FROM IMAGES WHERE IMAGEID = " & cint(cms("cmsIMAGEID"))
'response.redirect("reason.asp?reason=" & strsqlquery2)
Set IMAGES = Server.CreateObject("ADODB.Recordset")
IMAGES.Open strSQLQuery2, conn, 3, 3
If Err.Number <> 0 Then
IMAGEURL = ""
On Error GoTo 0
else
imageurl = images("imageurl")
end if
end if
if imageurl <> "" then%>
 <%
images.close
set images = nothing
end if
%> |
|
| |
<%cms.movenext
loop
cms.close
set cms = nothing
conn.close
set conn = nothing
%>
|
|
Supported by |
|
 |
|
