<% Option Explicit Response.Expires=0 Dim rsABB, objRS, strQry,MM_connUContact_STRING Dim objConn Set objConn=Server.CreateObject("ADODB.Connection") MM_connUContact_STRING = "dsn=shirazs_UC;Database=db1;uid=sa;pwd=;" objConn.Open MM_connUContact_STRING %>