<% ConnString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=luther.ebiz4.com; DATABASE=heart-t_robhs; " &_ "UID=heart-t_robhs;PASSWORD=balaji; OPTION=3" Set Connection = Server.CreateObject("ADODB.Connection") Set Recordset = Server.CreateObject("ADODB.Recordset") Connection.Open ConnString SQL = "SELECT * FROM feed" Recordset.Open SQL,Connection response.write "User's Feedback" If Recordset.EOF Then Response.Write("No records returned.") Else Do While NOT Recordset.Eof Response.write "" Recordset.MoveNext Loop End If response.write "

" Response.write Recordset("name") Response.write "---

" Response.write Recordset("feedback") Response.write "

" Recordset.Close Set Recordset=nothing Connection.Close Set Connection=nothing%>