تبدیل COD 2003 به 2005 [بایگانی]

my_silver_star

پنج شنبه 20 دی 1386, 15:38 عصر

با سلام
من میخوام کد زیر رو که با ورژن 2003 هست به 2005 تبدیل کنم .
این کد مربوط به فرم ادمین در یک سایت هستش که ادمین بازدن دکمه ارسال خبرها را برای اعضا ء Send می کند .
خود برنامه به 2005 تبدیل شده ، فقط خط زیر Error داره . ممنون میشم کمکم کنید :

Mail.SmtpMail.Send("admin@yahoo.com", email, subject, textmail)
-------------------------------------------------------------------------------------------

PrivateSub Buttonsendnews_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonsendnews.Click
Dim textmail AsString
Dim subject AsString
Dim email AsString
Dim strselect AsString

j =

CInt(Request.Cookies("send").Value)

SelectCase j
Case 1 : strselect = "select email from userinfo where diplomatic=1"
Case 2 : strselect = "select email from userinfo where farhangi=1"
Case 3 : strselect = "select email from userinfo where comunity=1"
Case 4 : strselect = "select email from userinfo where sport=1"
Case 5 : strselect = "select email from userinfo where medician=1"
EndSelect

con.Open()
cm = New SqlCommand("select header, basetext,footer from content where id='" & i & "'", con)
dr = cm.ExecuteReader
dr.Read()
textmail = dr.Item("basetext")
subject = dr.Item("header")
dr.Close()
cm.Dispose()
con.Close()
con.Open()
cm1 = New SqlCommand(strselect, con)
dr1 = cm1.ExecuteReader
While dr1.Read
email = dr1.Item("email")
Mail.SmtpMail.Send("admin@yahoo.com", email, subject, textmail)
EndWhile
cm1.Dispose()
dr1.Close()
cm1 = New SqlCommand("update content set send=1", con)
cm1.ExecuteNonQuery()
con.Close()
dr1.Close()
cm1.Dispose()
EndSub