Featured Customer
Home Page |
All Featured Customers
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 & "_GetThisSpotlight"
Dim SpotlightID
SpotlightID = Request("SpotlightID")
' Open Data Connection
' Setup Parameters
Set cmd = Server.CreateObject("ADODB.Command")
Set rst = Server.CreateObject("ADODB.Recordset")
cmd.ActiveConnection = Conn
cmd.CommandText = strSQLStmt
cmd.CommandType = adCmdStoredProc
' Enter Parameter List
cmd.Parameters.Append cmd.CreateParameter("SpotlightID",adInteger,adParamInput,4,SpotlightID)
Set rst = cmd.Execute
If Not rst.EOF Then
%>
<%
' Loop through the recordset to last record
Do While Not rst.EOF
' Display the database record values
%>
 |
|
FEATURE CUSTOMER INFORMATION
|
|
|
Company Name
|
<%= rst("CompanyName")%>
|
|
Web Site
|
"><%= rst("WebSite")%>
|
|
Description |
<%= CleanReturn(rst("Description"))%>
|
<%
' 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
%>
|