Enlace Base de datos SQL en otro servidor con ASP

lilika
29 de Marzo del 2004
hola quien pueda ayudarme, soy novata en esto.
estoy trabajando con dreamweaver ASP y necesito enlazar una B.D en sql.
Tengo windows 2000 server y el servidor tambien es del mismo windows.
Ya tengo unos avances se que ya estoy conectada con la B.D porque en dreamweaver le doy click a aplicaciones luego a Region repetida luego a juego de registros y alli puedo escoger la tabla de la base de datos que yo quiera.
En mi primer pagina tengo este codigo:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/conexion2.asp" -->
<html>
<head>
<title>pagina1</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body background="/Connections/conexion2.asp">
<p>&nbsp;</p>
<form action="/webabl/centro2.asp" method="post"><br>
<table width="75%" border="1" cellspacing="3">
<tr>
<td><div align="center"><strong>CODIGO</strong></div></td>
<td><div align="center"><strong>USUARIO</strong></div></td>
<td><div align="center"><strong>CLAVE</strong></div></td>
</tr>
<tr>
<td><input name="txtcodigo" type="text" id="txtcodigo" size="30" maxlength="8"></td>
<td><input name="txtusuario" type="text" id="txtusuario" size="30" maxlength="30"></td>
<td><input name="txtclave" type="password" id="txtclave" size="30" maxlength="7"></td>
</tr>
</table>
<input name="Submit" type="submit" value="Ingresar">
</form>
</body>
</html>
en la segunda es este:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/conexion2.asp" -->

<%
Dim rsRecordset1__MMColParam
rsRecordset1__MMColParam = "1"
If (Request.QueryString("nombre") <> "") Then
rsRecordset1__MMColParam = Request.QueryString("nombre")
End If
%>
<%
Dim rsRecordset1
Dim rsRecordset1_numRows

Set rsRecordset1 = Server.CreateObject("ADODB.Recordset")
rsRecordset1.ActiveConnection = MM_conexion2_STRING
rsRecordset1.Source = "SELECT codigo, nombre, clave FROM dbo.USUARIO WHERE nombre LIKE '%" + Replace(rsRecordset1__MMColParam, "'", "''") + "%' ORDER BY nombre DESC"
rsRecordset1.CursorType = 0
rsRecordset1.CursorLocation = 2
rsRecordset1.LockType = 1
rsRecordset1.Open()

rsRecordset1_numRows = 0
%>
<html>
<head>
<title>pagina2</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#996666" background="/Connections/conexion1.asp">
<form action="/webabl/centro1.asp" method="post">
<%
Option Explicit

Dim rsVisat As New ADODB.Recordset, usuario, codigo, clave, ConnVisat

' Primero que los campos fueran completados, sino redireccionamos a centro1.ap
If Request.Form("usuario") = "" OR Request.Form(codigo)= "" OR Request.Form(clave) = "" then
Request.Redirect "centro1.asp"
Else
' Guardamos los datos del Form en variables
usuario = Trim(Request.Form("usuario"))
codigo = Trim(request.Form("codigo"))
clave = Trim(Request.Form("clave"))
usuario = Replace(usuario, "'","''")
codigo = Replace(codigo,"'","''")
clave = Replace(clave,"'","''")

' Conectamos a BD
Option Explicit
Public ConnVisat As New ADODB.Connection
Public strVisat As String
Public sqlSelect As String
Public sqlInsert As String
Public sqlUpdate As String

Sub Main()
strVisat = "PROVIDER=MSDASQL;server=MASTER1;database=Visat;dsn=VisatFG;uid=administrator;pwd=gpscol"
ConnVisat.Open strVisat
Form1.Show
End Sub

Private Sub Submit_Click()

' Seleccionamos de la tabla solo los registros que concuerden con el usuario del Form
sqlSelect = "SELECT top 1 CODIGO from visat where id = ' " & textfield.Text & "
order by usuario desc"
"SELECT top 1 USUARIO from visat where id = ' " & textfield2.Text & "
order by usuario desc"
"SELECT top 1 CLAVE from visat where id = ' " & textfield3.Text & "
order by usuario desc"
rsvisat.open sqlselect, ConnVisat
End Sub
<%
Response.Buffer = True
' Si el valor EOF(fin de la tabla elegida) es verdadero, no existe el usuario

If (rsvisat.EOF = true) then
Response.Write("Ese usuario no existe") ' si el campo de la tabla es igual a nuestra variable, haz insertado los datos correctamente
ElseIf rsvisat.Fields ("codigo") = codigo
rsvisat.Fields ("clave") = clave then
response.write "Haz insertado tus datos correctamente... Bienvenido <B>"& usuario &"</B>"
Else ' si la clave no es la que seleccionamos
response.write "Esa clave no concuerda con el usuario ingresado"
End if

Response.Flush

rsvisat.Close
Connvisat.Close
Set rsvisat = Nothing
Set Connvisat = Nothing
End If
%>
<table width="75%" border="1" cellspacing="3">
<tr>
<td><div align="center"><strong><font size="3">CODIGO</font></strong></div></td>
<td><div align="center"><strong><font size="3">USUARIO</font></strong></div></td>
<td><div align="center"><strong><font size="3">CLAVE</font></strong></div></td>
</tr>
<tr>
<td><input name="textfield" type="text" size="30" maxlength="8"></td>
<td><input name="textfield2" type="text" size="30" maxlength="30"></td>
<td><input name="textfield3" type="password" size="30" maxlength="7"></td>
</tr>
</table>
</form>
</body>
</html>
<%
rsRecordset1.Close()
Set rsRecordset1 = Nothing
%>
al ejecutar la primera pagina funciona, enseguida le doy click al boton insertar para que muestre el reporte en la siguiente pagina y no funciona dice: Page not found.
Por favor ayudenme. No tengo ni idea que pueda ser ya revise el IIS y esta todo correcto.
GRACIAS

Suelly Nascimento de Andrade.
29 de Marzo del 2004
Eu quero ler e ver o que o Murilo me mandou.