<% dim Makking,ID Makking = Trim(Request.QueryString("Makking")) ID = Trim(Request.QueryString("ID")) select case Makking Case "" Response.Write body Case "MailSend" IF ID <> "" and IsNumeric(ID) Then Set Rs = Conn_m.Execute("Select * From SendInfo Where ID = "& ID &"") IF Not Rs.eof Then body = Trim(Rs("MailContent")) End IF Rs.Close Set Rs = Nothing Else body = "" End IF Response.Write body end select Conn_m.Close Set Conn_m = Nothing %>