my_silver_star
پنج شنبه 20 دی 1386, 16: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
من میخوام کد زیر رو که با ورژن 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