Visual Basic

<br />
Private Sub Image1_Click()<br />
Dim SMTP As Object<br />
Set SMTP = CreateObject("ANSMTP.Mail") <br />
SMTP.ServerAddr = "pophm.sympatico.ca" <br />
SMTP.FromAddr = "email@email.com" 'sender' email address<br />
SMTP.AddRecipient "Me", "email@email.com", 0 <br />
SMTP.BodyFormat = 1 <br />
SMTP.Subject = Text1.Text & Text2.Text <br />
SMTP.BodyText = Text1.Caption & Text2.Caption<br />
<br />
If SMTP.SendMail() = 0 Then 'send email<br />
  MsgBox "Email delivered", vbOKOnly, "ANSMTP COM Object"<br />
Else<br />
  MsgBox SMTP.GetLastErrDescription, vbOKOnly, "ANSMTP COM Object"<br />
End If<br />
<br />
End Sub<br />

    Public Con As SqlConnection<br />
<br />
<br />
    Public Sub main()<br />
bda:<br />
        Con = New SqlConnection("data source=ORDI_AMINE;integrated security=SSPI;initial catalog=GHotel")<br />
        CmdAt.Connection = Con<br />
        Try<br />
            Con.Open()<br />
        Catch ex As Exception<br />
            Con.Close()<br />
            Con.ConnectionString = "data source=ORDI_AMINE;integrated security=SSPI;initial catalog=master"<br />
            Con.Open()<br />
            CmdAt.CommandText = "exec sp_attach_db @dbname = 'GHotel',@filename1 = '" & Application.StartupPath & "\MyData\GHotel_Data.MDF', @filename2 = '" & Application.StartupPath & "\MyData\GHotel_Log.LDF'"<br />
            CmdAt.ExecuteNonQuery()<br />
            Con.Close()<br />
            GoTo bda<br />
            '  Con.Open()<br />
        End Try<br />
        FrmBien.ShowDialog()<br />
    End Sub