HOLA HAS ESTO:
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.XX" '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 = "MIBASESQL" '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 & ";"
%>
LUEGO DEFAULT.ASP
<% Option Explicit %>
<!--#include file="CONFIG.asp" -->
<%
Response.Buffer = False
%>
<html>
<head>
<title>MI PAGINA</title>
</head>
<body bgcolor="#FFFF00" text="#333333">
<table width="40%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align="center">MI PAGINA</td>
</tr>
</table>
<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 'SI TUBIERAS UN FORM
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