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