[an error occurred while processing this directive] CarnaticIndia.com - View Guestbook

Home | Carnatic Music | Maestros | Concert Reviews | Download Videos | Raga of the month | Abode of arts | Gallery | Contact Us
View Guestbook
<% Dim con ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' response.expires=-1550 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' dim rs,sqlstr,sqlpass,myconn,I,Cpg,rowcount dim aip,slno slno=1 'aip=request.form("aip") 'sqlstr="select * from comments" 'response.write sqlstr 'response.end sqlstr="SELECT name,email,address,refer,locat,suggestion,DtNTm FROM GUESTDETAILS WHERE CHECKED=TRUE order by Id desc" If Trim(Request.QueryString("Qry"))<>"" Then SqlStr=Request.QueryString("Qry") End if SqlPass=SqlStr set rs=con.execute(sqlstr) if rs.eof then response.write ("
Record Not Found
") response.end else CPg=Trim(Request.QueryString("pg")) If CPg="" Then CPg=1 End if If Trim(Request.QueryString("Qry"))<>"" Then SqlStr=Request.QueryString("Qry") End if SqlPass=SqlStr set rs=server.CreateObject("ADODB.Recordset") rs.ActiveConnection=con rs.CursorType=adOpenStatic rs.PageSize=3 rs.Open sqlstr If Not rs.EOF Then rs.AbsolutePage=CPg Response.Write "
" Response.Write "" If rs.PageCount>1 Then Response.Write"" End if Response.Write "
Results "&(rs.AbsolutePage-1)*rs.PageSize+1 &" - " If rs.RecordCount"&rs.RecordCount&"" Else Response.Write ""&rs.AbsolutePage*rs.PageSize&"" End if Response.Write" of "&rs.RecordCount&"
" For i=1 to rs.PageCount If i<>CInt(CPg) Then Response.Write ""&i&" " Else Response.Write ""&i&" " End if Next Response.Write "
" response.write "" While Not rs.Eof and rowCount" Response.Write "" 'Response.Write "" If rs("ADDRESS")<>"none" Then Response.Write "" Else Response.Write "" End If Response.Write "" Response.Write "" Response.Write "" Response.Write "" slno=slno+1 rs.MoveNext wend End if end if %>
Date : "&FormatDateTime(rs("DtNTm"), vbLongDate)&" "& FormatDateTime(rs("DtNTm"), vbLongTime)&"
Name :"&rs("Name")&"
Email :
Site Url : "&rs("ADDRESS")&"
Site Url : None
Referred by:"&rs("Refer")&"
Location :"&rs("Locat")&"
Comments :"&rs("SUGGESTION")&"
 

Site maintained by Krishnaraj.S