HOLA LO QUE NECESITAS ES:
UNA ASP QUE CONECTA CONFIG.ASP:
<%
'variables
Dim strSQLServerName 'ip del servidor de base de datos
Dim strSQLDBUserName 'usuario que fue creado para accesar la base de datos
Dim strSQLDBPassword 'password que fue creado para accesar la base de datos
Dim strSQLDBName 'nombre de la base de datos creada a mano
'detalles del sql server 2000
strSQLServerName = "XXX.XXX.XX.XXX" 'ip del servidor de base de datos
strSQLDBUserName = "sa" 'usuario que fue creado para accesar la base de datos
strSQLDBPassword = "" 'password que fue creado para accesar la base de datos
strSQLDBName = "MIBASEDEDATOS" 'nombre de la base de datos creada a mano
'nota:
'optimisado para SQL OLE DB Driver
'si usa sistemas DSN para conectar la SQL Server database la performance es menor
'SQL Server OLE Driver
VARconnString = "Provider=SQLOLEDB;Server=" & strSQLServerName & ";User ID=" & strSQLDBUserName & ";Password=" & strSQLDBPassword & ";Database=" & strSQLDBName & ";"
%>
Y OTRA QUE CREA LA TABLA EN TU BASE DE DATOS EXISTENTE (SQL)
ASI DEFAULT.ASP:
<% Option Explicit %>
<!--#include file="CONFIG.asp" -->
<%
Response.Buffer = False
%>
<html>
<head>
<title>crear tablas desde internet</title>
<script language="JavaScript">
<!-- Hide from older browsers...
//Function chekea formulario
function CheckForm () {
var errorMsg = "";
//para el Usuario
if (document.frmLogin.name.value==""){
errorMsg += "\n\tUsuario \t- Ingrese el Usuario por el cual le crearon el acceso a la base de datos";
}
//para la Password
//if (document.frmLogin.password.value==""){
//errorMsg += "\n\tPassword \t- Ingrese el Password por el cual le crearon el acceso a la base de datos";
//}
//despliege de errores
if (errorMsg != ""){
msg = "_________________________________________________ ____________________\n\n";
msg += "tu Logeo al SQL Server ha fallado por causa del formulario.\n";
msg += "corrija los problema(s) y reenvie el formulario.\n";
msg += "_________________________________________________ ____________________\n\n";
msg += "Los siguiente campo(s) necesitan ser corregidos: -\n";
errorMsg += alert(msg + errorMsg + "\n\n");
return false;
}
return true;
}
// -->
</script>
</head>
<body bgcolor="#FFFF00" text="#333333">
<table width="40%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align="center">Creando tablas</td>
</tr>
</table>
<form name="frmLogin" method="post" action="default.asp" onSubmit="return CheckForm();">
<table width="50%" border="0" cellspacing="0" cellpadding="1" align="CENTER" bgcolor="#FFGGHH">
<tr>
<td>
<table width="50%" border="0" align="center" cellspacing="0" cellpadding="0" bgcolor="#CC00000">
<tr>
<td align="center">Usuario:<input type="text" name="name"></td>
</tr>
<tr>
<td align="center">Password:<input type="password" name="password"></td>
</tr>
<tr>
<td align="center"><input type="submit" name="Submit" value="Crear las tablas"><input type="reset" name="Submit" value="Limpiar"></td>
</tr>
</table>
</td>
</tr>
</table>
</form>
<table width="50%" 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 VARconnString '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")
VARconnString = "Provider=SQLOLEDB;Server=" & strSQLServerName & ";User ID=" & Request.Form("name") & ";Password=" & Request.Form("password") & ";Database=" & strSQLDBName & ";"
adoCon.Open VARconnString
'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].[fceinscritos] ("
strSQL = strSQL & "[num] [nvarchar] (255) NOT NULL ,"
strSQL = strSQL & "[guia] [nvarchar] (255) NOT NULL ,"
strSQL = strSQL & "[EMPRESA] [nvarchar] (255) NOT NULL ,"
strSQL = strSQL & "[GIRO] [nvarchar] (255) NOT NULL ,"
strSQL = strSQL & "[DIRECCION] [nvarchar] (255) NOT NULL ,"
strSQL = strSQL & "[COMUNA] [nvarchar] (255) NOT NULL ,"
strSQL = strSQL & "[CIUDAD] [nvarchar] (255) NOT NULL ,"
strSQL = strSQL & "[NOMBRE] [nvarchar] (255) NOT NULL ,"
strSQL = strSQL & "[ASISTE] [nvarchar] (255) NOT NULL ,"
strSQL = strSQL & "[CARGO] [nvarchar] (255) NOT NULL ,"
strSQL = strSQL & "[TELEFONO] [nvarchar] (255) NOT NULL ,"
strSQL = strSQL & "[EMAIL] [nvarchar] (255) NOT NULL ,"
strSQL = strSQL & "[FECHA] [nvarchar] (255) NOT NULL ,"
strSQL = strSQL & "[TIPO] [nvarchar] (255) NOT NULL ,"
strSQL = strSQL & "[URL] [nvarchar] (255) NOT NULL ,"
strSQL = strSQL & "[IP] [nvarchar] (255) NOT NULL "
strSQL = strSQL & ") ON [PRIMARY]"
'num
'guia
'EMPRESA
'GIRO
'DIRECCION
'COMUNA
'CIUDAD
'NOMBRE
'ASISTE
'CARGO
'TELEFONO
'EMAIL
'FECHA
'TIPO
'URL
'IP
'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 por segunda vez la tabla (esta ya existe borrela y vuelva a crearla)<br>")
'Reset error object
Err.Number = 0
'Set the error boolean to True
blnErrorOccured = True
End If
'***********************************fin Create the Author Table
'*********************************************Inse rt default values
'*****************************************fin Insert default values
'************************************************* *************
'Display a message to say the database is curated
If blnErrorOccured = True Then
Response.Write("<br><b>error SQL Server database!</b>")
Else
Response.Write("<br><center><font size=""4""><b>felicidades ya fue creada su tabla(s) :)</b></font></center>")
End If
'************************************************* *************
End If
'Reset Server Variables
Set adoCon = Nothing
Set VARconnString = Nothing
End If
%>
</font></td>
</tr>
</table>
<br>
</body>
</html>
SUERTE
