แฟนบอกเลิกอะ ต้องทำยังไงถึงจะหายเศร้า คบกันมา 4 ปีกว่า เรียนจบห่างกันแล้วอยู่ๆ ก็มาบอกว่าอยากจะเลิก

$sql = "delete * from tbl_your_heart where id_คนที่='ไม่มีใจ' ";
$สบายใจ = mysql_query($sql);

if บ้านรวย = เรา then
 response.write "<script language=javascript>alert('จนไม่เจียม');history.back();</script>"
 response.end
end if 
if มีเงินไหม = เราอีกละ Then
 response.write "<script language=javascript>alert('ไม่เจียม');history.back();</script>"
 response.end
else
dim หัวใจ
Select case หัวใจ
    case "รัก"
หัวใจ="เมือไรจะรัก...เธอคงไม่คิดหาคำตอบ"
   case "ไม่รัก"
หัวใจ="มัน ตั้งแต่เมื่อไรบอกฉันได้ไหม"
    case="ไปไกลๆๆ"
หัวใจ="มัน ตั้งแต่เมื่อไรบอกฉันได้ไหม"
    case="ก็เคยสัญญา"
หัวใจ="ถึงใคร มองว่าเพี้ยน"
Case Else
End Select
sql="INSERT INTO หัวใจ.odb (love,notlove) VALUES ('"&หัวใจ&"',ไม่รัก คุณ ก็ ไม่รู้จะรักใคร)"
รักใครรักจิง.execute sql

LabelloveAwareness.Text = "Use your head and follow your heart. <br />";

 
Dim ผมเอง
Dim สมบัติ = 30 ล้าน
Dim กำลังใจ  = 0


for อายุ = 23 to 44
 if (หน้าตาดี = ผมเอง) then
   if (รวย = ผมเอง) then
      if (พ่อตาตายแม่ยายโง่ = ผมเอง) then
         insert into [tbหัวใจเขา] Values("หัวใจเรา")"
           for (ใช้เงิน = 0  to สมบัติ)
             select case สมบัติ
                case 30 ล้าน
                  msgBox(" บอกได้แค่ร๊ากม๊ากมาย รักเธอมันมากมาย ")
                case 20 ล้าน
                  msgBox(" เหนื่อยหน่อยน้าอยู่กับฉันเมื่อสิ่งที่ฝันนั้นมันไม่เลย ")
                case 10 ล้าน
                  msgBox(" อยู่อย่างเหงาๆเราคงจะได้รู้ หากมีใครบางคนเข้ามาจะได้ลองคิดดู ")
                case 1000 บาท
                  msgBox("  เลิก. . .เหนื่อยไปทำไมเลิกเหอะ    ทนไปทำไมเลิกเหอะ. .")
                  Delete [tbหัวใจเขา] WHERE หัวใจเรา
                end sub
                                  
                 while (กำลังใจ < 100)
                   กำลังใจ += 1
                    select case กำลังใจ
                      case 10
                       msgBox(" แต่คนอย่างฉันต้องอยู่ต่อไปแม้เสียเธอไปไร้เธอคู่ แม้ไม่รู้จะอยู่เพื่อใคร") 
                      case 50
                        msgBox(" หลอกให้รักให้รออยู่หลอกให้ช้านทุ่มเทหัวใจ แต่ขาดเธอไป ไม่ตาย ไม่ตายหรอกเธอ ")
                      case 100 
                        msgBox(" แก่แค่ผู้ชายห่วยๆ ")
                     end sub
                  end while
            next
     else
     msgBox("บอกเลิก")    
  else
   msgBox("บอกเลิก")
 else
 msgBox("บอกเลิก")
ืำnext

try
{
      Gurl.TryHoldHerHeart( Guy.Money ) ;
      MessageBox.Show("I'm got her.") ;
}
catch (Exception ex)
{
      MessageBox.Show("Lose gurl") ;
}
finally
{
      MessageBox.Show("Lose all") ;
}