Rooms & Cottages
Facilities
Conventions & Conferences
Rates and packages
Ayurveda
Water Cruises
Cultural Shows
Sight Seeing
Comments
 

Sign the Guest Book !

 
<% Function stripHTML(strHTML) 'Strips the HTML tags from strHTML Dim objRegExp, strOutput Set objRegExp = New Regexp objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern = "<(.|\n)+?>" 'Replace all HTML tag matches with the empty string strOutput = strHTML 'Replace all < and > with < and > stripHTML = strOutput 'Return the value of strOutput Set objRegExp = Nothing End Function Dim CnnObj Dim strDataSource,strCnn If Len(Trim(Session("Path")))=0 Then Session("Path")= Server.MapPath("\") End If strDataSource = Session("Path")&"\htm\admin\database\kdvudb.mdb" 'response.write strDataSource strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" strCnn = strCnn &strDataSource& ";" Set CnnObj = Server.CreateObject("ADODB.Connection") Cnnobj.Mode = 3 CnnObj.Open strCnn Dim rsGuestBook,strQryGuestBook,intCount,strTable Set rsGuestBook=Server.CreateObject("ADODB.Recordset") strQryGuestBook="SELECT GuestID,GuestName,GuestDate,GuestAuthor,GuestContents ,GuestEMail,GuestDisplay FROM tblGuestBook where GuestDisplay='1' " rsGuestBook.Open strQryGuestBook,CnnObj,0,3 If Not rsGuestBook.EOF Then intCount=1 Do Until rsGuestBook.EOF %>
Topic: <%response.write(stripHTML(Trim(rsGuestBook("GuestAuthor"))))%> Date: <%response.write(Trim(stripHTML(rsGuestBook("GuestDate"))))%>
Name: <%response.write(stripHTML(rsGuestBook("GuestName")))%> Email: <% response.write(stripHTML(rsGuestBook("GuestEMail")))%>

Comments

<% response.write(stripHTML(Trim(rsGuestBook("GuestContents"))))%>

<% intCount=intCount+1 rsGuestBook.MoveNext Loop Else End IF rsGuestBook.Close Set rsGuestBook=Nothing %>
 
 

 

 

Home | Facilities | Ayurveda - Treatments | Kerala  Water Cruises | Cultural Shows | Rooms & Cottages  | Conventions & Conferences

Rates & Packages  |  Site Seeing | Guest Book | Feed back  | Reservation | Careers | Slide Show | Contact

 Site by : Aufait web development team

Copy Right 2005 kadavuresorts.com. All Rights Reserved