Crear Tablas Sql Server 2000 Desde Web

[DARIOI]

CONTINUACION PAGE2.ASP
<table width="702" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> 
<%
Dim adoCon 'variable coneccion a base de datos
Dim strCon 'driver, path y nombre de la base de datos
Dim strSQL 'query de la base de datos
Dim intBadWordLoopCounter 'filtraje a db contador
Dim blnErrorOccured 'vuelva a true si un error ocurre
'resumen sobre todos los errores
On Error Resume Next
'inicializa variable
blnErrorOccured = False
'evalua que no este en blanco
If NOT Request.Form("name") = "" Then
Set adoCon = Server.CreateObject("ADODB.Connection")
strCon = "Provider=SQLOLEDB;Server=" & strSQLServerName & ";User ID=" & Request.Form("name") & ";Password=" & Request.Form("password") & ";Database=" & strSQLDBName & ";"
adoCon.Open strCon

'si un error ocurre lo escribe en la pagina
If Err.Number <> 0 Then
Response.Write("<br><b>Error al conectar la base de datos sobre SQL Server</b><br><br>corrija:- <br><br>SQL Server Usuario<br>SQL Server Password<br>")
Response.Write("Nombre del SQL Server<br>set el nombre de sql <br>set a vacia la base de datos <br><br>corrija la coneccion sobre 'Page1.asp' <br><br>")
Else
'CREANDO LAS TABLA PON TU TABLA QUI

'Create the Author Table
strSQL = "CREATE TABLE [dbo].[tblAuthor] ("
strSQL = strSQL & "[Author_ID] [int] IDENTITY (1, 1) PRIMARY KEY CLUSTERED NOT NULL ,"
strSQL = strSQL & "[Username] [nvarchar] (20) NOT NULL ,"

'Write to the database
adoCon.Execute(strSQL)

'If an error has occured write an error to the page
If Err.Number <> 0 Then
Response.Write("<br>error al crear la tabla por segunda vez(ya existe)<br>")

'Reset error object
Err.Number = 0

'Set the error boolean to True
blnErrorOccured = True
End If

'Display a message to say the database is curated
If blnErrorOccured = True