<% 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 res" Recordset.Open SQL,Connection response.write "
Poems list
" If Recordset.EOF Then Response.Write("No records returned.") Else Do While NOT Recordset.Eof Response.write "
" s=Recordset("sno") Response.write Recordset("name") Response.write "
" Response.write "
poem
" Response.write "
" Recordset.MoveNext Loop End If response.write "
" Recordset.Close Set Recordset=nothing Connection.Close Set Connection=nothing %>
close