Overføre min database Connect til et VB script

Hvordan kan jeg overføre min database forbindelse, til et VB script ?

<html>
<head>
<title>Codebase Inbox</title>
<?
include(\"$DOCUMENT_ROOT/test/vb/adodb/adodb.inc.php\");   

ADOLoadCode(\'mysql\');

$Conn1 = ADONewConnection(\'mysql\');

if (!$Conn1->PConnect(\'localhost\',\' **** ****\',\' **** **** \',\" **** ****\"))
die(\"Cannot connect to codebase_db\");
$sql=\"SELECT  user_name FROM user WHERE id =\'1\'\";
$result  =  mysql_query(\"$sql\")or die(mysql_error());
for($i = 0;$row  =  mysql_fetch_object($result);$i++) {
    echo \"<!-- $row->user_name -->\\n\";
}   
?>
<link rel=\"stylesheet\" href=\"codebase.css\">
<script event=onload for=window language=vbscript>
        Dim Conn1 As ADODB.Connection
        Dim Cmd1 As ADODB.Command
        Dim Rs1 As ADODB.Recordset

  Set Conn1 = New ADODB.Connection
  Conn1.Open
  Set Cmd1 = New ADODB.Command
  Cmd1.ActiveConnection = Conn1
  Cmd1.CommandText = \"SELECT * FROM user WHERE  user_name =\'\" & txtAdminEmail.Text & \"\' AND \" & _
      \"password=\'\" & txtAdminPassword.Text & \"\'\"
  Set Rs1 = Cmd1.Execute()
</script> 
</head>
<body>test
</body>
</html>