Visual Basic

if ActiveSheet.Range(Cells(1, 1)="Emp Num" then
  Set rng = ActiveSheet.Range(Cells(2, 1), Cells(2, 1).End(xlDown))
   Set tgt = Application.Workbooks.Open("D:\Target.xls")
   rng.Copy tgt.Worksheets("Tabelle1").Cells '  tgt.Save
   tgt.Close
end if

Sub CopyToTarget()
    Dim tgt As Excel.Workbook
    Dim rng As Range
    Dim srcHeader As Range
    Dim tgtHeader As Range
    Dim dataCol As Integer
    
    ' define the range to copy here, supplying the column no you wish to copy
    ' with End(xlDown) you catch all the rows as long as there are no empty cells.
    dataCol = 1
    Set srcHeader = ActiveSheet.Cells(1, dataCol)
    Set rng = srcHeader.Range(Cells(2, dataCol), Cells(2, dataCol).End(xlDown))
    
    ' open the target workbook as object; in this case the workbook has to exist already!
    Set tgt = Application.Workbooks.Open("D:\Target.xls")
    
    ' find the header of the given dataCol in row 1 of the target worksheet
    Set tgtHeader = tgt.Worksheets("Table1").Rows(1).EntireRow.Find(srcHeader.Value)
    
    ' copy the range to the required cell
    ' if not found then notice the user
    If tgtHeader Is Nothing Then
        MsgBox "Header not found in target workbook."
    Else
        rng.Copy tgt.Worksheets("Table1").Cells(2, tgtHeader.Column)
    End If
    
    ' save and close the target workbook
    tgt.Save
    tgt.Close
    
    ' delete objects that are no longer needed
    Set rng = Nothing
    Set srcHeader = Nothing
    Set tgtHeader = Nothing
    Set tgt = Nothing
End Sub

Sub ReArrange()
    Dim strHeaders() As String
    Dim sortOrder As String
    Dim i As Integer
           
    ' define how the columns / headers are to be arranged
    sortOrder = "EmpID,EmpName,EmpSalary"
    ' read the string into an array
    strHeaders = Split(sortOrder, ",")
    
    ' loop through the array
    For i = LBound(strHeaders) To UBound(strHeaders)
        ' take care: i will be 0 first (array index starting with 0)
        ' so you can't assign i to a colunm --> i + 1 is fine
        MsgBox "Header of column " & i + 1 & " = " & strHeaders(i)
        ' here you find the respective header and copy your headers and/or data.
        ' I guess you can adapt the code sample from before already, can you?
    Next
End Sub

<form action='login.php' method='post' name='login'>
    <b>User:<b> <input type=text name='username' maxlength=15 width=18><br/>
    <b>Password:<b> <input type=password name='password' maxlength=15 width=18><br/>
    <input type=submit value='Login'>   
</form>

<?php
   $dbaddress='localhost'; $dbuser='root'; $dbpass='root'; $dbname='yourdatabase';
   
$dbcnx = mysql_connect($dbaddress,$dbuser,$dbpass)
or die("Could not connect: " . mysql_error());
mysql_select_db($dbname, $dbcnx) or die ('Unable to select the database: ' . mysql_error());

$query = mysql_query("select password from jos_users where username = \"" . $_POST["username"] . "\"")
or die("Unable to validate login and password with the database:" . mysql_error());

$result = mysql_fetch_array($query);
$result = $result[0];
$parts = explode( ':', $result);

     // Check if password is md5-ed with or without salt
    if (count($parts) < 2) $new_password = md5($_POST["password"]); 
      else {
         $salt = $parts[1];
       
   // convert the raw password to md5(password+salt):salt model
         $new_password = md5($_POST["password"] . $salt) . ":" . $salt; 
            } 
    if ($new_password != $result)
          {
            echo "no login";  // your params
          }
       else
          {
            echo "successful validation";  // your params
          }
?>

$part = explode(":",$password);
$salt = $part[1];
$encrypted_password = md5($mypassword . $salt).":".$salt;
;

'Form1
Public Class Form1
    Inherits Form
End Class

'Class1
Public Class Class1
    'here I want to access form1. not using frm1.member and not usinig  dim ff as new form1, ff.member
    'I just want to access that form using me.parent

    Sub ParentAccess()
        Me.Parent.Text = "It's a compile time Error"
        'Error:- Parent is not a member of Class1
    End Sub

End Class

'User Control1
Public Class ctrl1
    Inherits ComboBox
    Sub ParentAccess()
        Me.Parent.Text = "Very easy to access but my class1 don't have the statment like Inherits ComboBox"
        'No Error:
    End Sub
End Class