Ko Olina Marina Talk Story

<% @ LANGUAGE = "VBSCRIPT" %><% response.buffer=True response.expires = 0 %> <% if request.servervariables("CONTENT_LENGTH") <> 0 and Request("Mv") = "" then name = server.HtmlEncode(request.form("txtName")) email = server.HtmlEncode(request.form("txtEmail")) topic = server.HtmlEncode(request.form("txtTopic")) message = request.form("txtMessage") ref = CInt(request.form("reference")) if name = "" or email = "" or topic = "" or message = "" then response.redirect ("post.asp?err=true&ref=" & ref) end if message = replace(server.HTMLEncode(message),VBCrlf, "
") curDir = Server.MapPath("../db/ForumDb.mdb") Set oConn = Server.CreateObject("ADODB.Connection") oConn.Provider = "Microsoft.Jet.OLEDB.4.0" oConn.ConnectionString = "Data Source=" & Server.MapPath ("../db/ForumDb.mdb") oConn.Open Set oRs = Server.CreateObject("ADODB.Recordset") oRs.Open "SELECT * from forum", oConn, 1,3 if oRs.recordcount <> 0 then oRs.movelast ult = oRs("code") + 1 else ult = 1 end if oRs.addnew oRs("Code") = ult oRs("reference") = ref oRs("name") = name oRs("email") = email oRs("topic") = topic oRs("message") = message oRs("PostDate") = date oRs.update set oRs = nothing set oConn = nothing response.redirect ("done.asp") end if '********************************************************************************************** curDir = Server.MapPath("../db/ForumDb.mdb") Set oConn = Server.CreateObject("ADODB.Connection") oConn.Provider = "Microsoft.Jet.OLEDB.4.0" oConn.ConnectionString = "Data Source=" & Server.MapPath ("../db/ForumDb.mdb") oConn.Open Mv = request.querystring("direction") If request.querystring("page") = "" Then PageNo = 1 Else PageNo = request.querystring("page") End If Set oRs = Server.CreateObject("ADODB.Recordset") oRs.Open "SELECT * from forum where reference = -1", oConn, adOpenStatic oRs.PageSize = 5 If Mv = "previous" or Mv = "next" Then Select Case Mv Case "previous" If PageNo > 1 Then PageNo = PageNo - 1 Else PageNo = 1 End If Case "next" If oRs.AbsolutePage < oRs.PageCount Then PageNo = PageNo + 1 Else PageNo = oRs.PageCount End If Case Else PageNo = 1 End Select End If %> Ko Olina Marina Talk Story

	Marina Features
	Rental Fees
	Ocean Activities
	Newsletter
	Talk Story
	Marine Forecast
	Links



	Contact Us
	Maps & Directions
	Home

Disclaimer

We strive to provide an open forum where respectful and entertaining communication between all members can occur. Our online community guidelines are rooted in these values:

Honest discussion is important
Every participant is valuable
There is room for all perspectives

We do not review all of the postings on the bulletin board, and are not responsible for the content. However, we reserve the right to regulate the content and delete postings that are not in keeping with our basic values or are otherwise offensive or inappropriate.