Splashdown Divers
Home - Mobile Edition - Home
<% ' sConnString = "PROVIDER=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../db_text/db/inserts.mdb") sSQL = "SELECT * FROM Table1 WHERE (ID = 1)" Set oConnection = Server.CreateObject("ADODB.Connection") Set oRecordset = Server.CreateObject("ADODB.Recordset") oConnection.Open(sConnString) oRecordset.Cursorlocation=3 oRecordset.Cursortype=3 oRecordset.Open sSQL, oConnection If Len(oRecordset("Message"))>0 AND oRecordset("dbField1")="On" Then 'Start Unique Print 'Convert line breaks to HTML code for proper message display. myMemCvt=oRecordset("Message") myConvertedMemo = replace(myMemCvt,chr(13),"
") response.write "" Response.write "" response.write "
" & myConvertedMemo & "
" 'End Unique Print End If oRecordset.Close Set oRecordset = Nothing oConnection.Close Set oConnection = Nothing %> Splashdown Divers Boat
Current Schedule
Mon Aug 10 08:30 AM Two Tank Trip
Tue 11 08:30 AM Two Tank Trip
Wed 12 01:30 PM Two Tank Trip
Thu 13 08:30 AM Two Tank Trip
Fri 14 01:30 PM Two Tank Trip
Sat 15 08:30 AM
01:30 PM
Two Tank Trip
Two Tank Trip
Sun 16 08:30 AM
01:30 PM
Two Tank Trip
Two Tank Trip

<% ' sConnString = "PROVIDER=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../db_text/db/inserts.mdb") sSQL = "SELECT * FROM Table1 WHERE (ID = 3)" Set oConnection = Server.CreateObject("ADODB.Connection") Set oRecordset = Server.CreateObject("ADODB.Recordset") oConnection.Open(sConnString) oRecordset.Cursorlocation=3 oRecordset.Cursortype=3 oRecordset.Open sSQL, oConnection If Len(oRecordset("Message"))>0 AND oRecordset("dbField1")="On" Then 'Start Unique Print 'Convert line breaks to HTML code for proper message display. myMemCvt=oRecordset("Message") myConvertedMemo = replace(myMemCvt,chr(13),"
") response.write "

" Response.write "" response.write "
" & myConvertedMemo & "
" 'End Unique Print End If oRecordset.Close Set oRecordset = Nothing oConnection.Close Set oConnection = Nothing %>