<% dim cn11,rs11,username11 Set CN11 = Server.CreateObject("ADODB.Connection") Cn11.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(".") & "\data\matrimonial_db.mdb;" set RS11=server.CreateObject("ADODB.Recordset") rs11.open "select * from tbl_user where user_id_pk="&request("chatid")&"",cn11,3,2 do until rs11.eof username= ucase(rs11("loginname")) rs11.movenext loop dim cn1,rs1,username1 Set CN1 = Server.CreateObject("ADODB.Connection") Cn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(".") & "\data\matrimonial_db.mdb;" set RS1=server.CreateObject("ADODB.Recordset") rs1.open "select * from tbl_user where user_id_pk="&request("id")&"",cn1,3,2 do until rs1.eof response.write ucase(rs1("loginname"))&" - Instant Message sent to " &username rs1.movenext loop %> Provided by Matrimonial - findyourfate.com marriage website

<% userid=request.QueryString("id") session("userid")=request.QueryString("id") chatid=request.QueryString("chatid") %> <body > Your browser does NOT support FRAMES </body>