Featured Customer Spotlights
Home Page |
Contact Servant Energy
It's a really gratifying feeling when a company that you admire finds you,
signs on as a customer and becomes a vocal advocate. Please read about our
featured customer below. We encourage you to visit their site and support their
great work.
<%
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open strConn
%>
<%
Dim rst
Dim MyDate
Dim strSQLStmt
strSQLStmt = ClientID & "_GetSpotlights"
Set cmd = Server.CreateObject("ADODB.Command")
Set rst = Server.CreateObject("ADODB.Recordset")
cmd.ActiveConnection = Conn
cmd.CommandText = strSQLStmt
cmd.CommandType = adCmdStoredProc
Set rst = cmd.Execute
If Not rst.EOF Then
%>
| Company Name |
Web Site |
View |
<%
' Loop through the recordset to last record
Do While Not rst.EOF
' Display the database record values
%>
|
<%= rst("CompanyName") %>
|
" target="_blank">Web Site
|
">Click Here
|
|
<%= rst("Summary") %>
|
|
<%
' This statement makes database move to the next record
rst.MoveNext
Loop
Else
%>
|
No information available Click here to return to Home Page.
|
<%
End If
' Clean up time
rst.Close
Set rst = Nothing
Set cmd = Nothing
%>
 |
|
|
<%
conn.Close
Set conn = Nothing
%>
|