<%
Dim con, objRS, strconnect, phrase, author, ConnectionString
Set con = Server.CreateObject ("ADODB.Connection")
ConnectionString = "Provider=SQLOLEDB.1; Network Library=dbmssocn;Password=alex100;User ID=slineppm;Initial Catalog=Shoreline;Data Source=64.224.17.149;"
'connectionString = "provider=sqloledb; data source=ShorelineDB; initial catalog=Shoreline," & _
' "slineppm,alex100"
con.Open ConnectionString '"DSN=ShorelineDB;Database=Shoreline;UID=slineppm;PWD=alex100;"
strconnect = "Select phrase, author From currentthought where DayIndex=" & WeekDay(Date())
Set objRS = con.Execute(strconnect)
'While Not objRS.EOF
phrase = objRS("Phrase")
author = objRS("Author")
'Wend
objRS.close
con.Close
Set objRS = Nothing
Set con = Nothing
%>
Shoreline
PPM’s equipment database list is currently under going maintenance.
Please check back later or click here
and a representative will be in touch with you.
