<% dim conn dim objRecsect dim raddress, linkText set conn = Server.CreateObject("ADODB.Connection") Set cmd = Server.CreateObject("ADODB.Command") if conn.State <> 1 then conn.Open "Provider=sqloledb;" & _ "Network Library=DBMSSOCN;" & _ "Data Source=localhost;" & _ "Initial Catalog=eNewsLetterPro;" & _ "User ID=emofree;" & _ "Password=Blue-Goo" Set cmd.ActiveConnection = conn cmd.CommandText = "spnewspro_SelectEmailMsg" cmd.CommandType = adCmdStoredProc raddress = Request.ServerVariables("REMOTE_ADDR") cmd.Parameters.Append cmd.CreateParameter("@MsgName",adVarChar,adParamInput,100, "TelltoFriends") set objRecsect=cmd.Execute linkText = "mailto:?body=" & objRecsect.Fields("MsgText") & "&subject=" + objRecsect.Fields("MsgSubject") if conn.State = "1" then conn.Close() end if end if %>