Ver Mensaje Individual
  #1 (permalink)  
Antiguo 23/04/2013, 23:46
Avatar de Artepop
Artepop
 
Fecha de Ingreso: noviembre-2002
Ubicación: Fuengirola
Mensajes: 292
Antigüedad: 21 años, 6 meses
Puntos: 1
asp classic y sql server

Hola, por favor necesito ayuda urgente, tengo unas paginas webs con access y asp classic y necesito migrar a SQL server por el trafico que se elevo bastante.

Instale todo esto:

1. SQL Server 2005 Express Edition
2. SQL Server Management Studio Express (SSMSE)
3. Microsoft SQL Server Migration Assistant for Access

Llego bien hasta convertir la base de datos access a SQL server, hasta ahi todo bien. Pero...

De donde de mi ordenador copio la base de datos convertida para subirla al servidor, y donde colocarla en el servidor ¿?

Y luego, otra cosa que no se; tengo este script en asp para conectar y mostrar datos de access que va perfecto para base de datos access. ¿Pero como seria para sacar de SQL server con asp classic? y luego otra cosa que no entiendo es que usuario y pass tengo que poner, pues en la base de datos convertida no tengo nada de eso.

Código:
<%
Dim oConn, rs, SQL
Dim PaginaActual
Dim PaginasTotales
Dim TamPagina
Dim CuantosRegistros
TamPagina=10
%>
<%
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source="&Server.MapPath("datos/meneos.mdb")&";"
SQL="SELECT * FROM entradas ORDER BY id DESC;"
rs.PageSize=TamPagina
rs.CacheSize=TamPagina
rs.Open SQL, oConn, 1, 2
PaginasTotales=rs.PageCount
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
if PaginasTotales=0 then
Response.Write("<div><font color=""#999999"">¡No se encontraron resultados!</font></div>")
Response.Write("</td>")
Response.Write("</tr>")
Response.Write("</table>")
Response.Write("<br>")
Response.Write("<table width=""740"" border=""0"" cellpadding=""0"" cellspacing=""0"">")
Response.Write("<tr>")
Response.Write("<td width=""740"">")
else
rs.AbsolutePage=PaginaActual
Response.Write("<div><font color=""#999999"">P&aacute;gina " & PaginaActual & " de " & PaginasTotales & "</font></div>")
Response.Write("</td>")
Response.Write("</tr>")
Response.Write("</table>")
Response.Write("<br>")
Response.Write("<table width=""740"" border=""0"" cellpadding=""0"" cellspacing=""0"">")
Response.Write("<tr>")
Response.Write("<td width=""740"">")
CuantosRegistros=0
do while not rs.EOF and CuantosRegistros < TamPagina
Response.Write(""&VbCrLf)
Response.Write("<h2><img name=""IMG"&rs.Fields("id")&""" src=""img/titulo-1.gif"" width=""12"" height=""12"" border=""0"" alt="""&rs.Fields("id")&"""><a href=""meneos.asp?id="&rs.Fields("id")&""" onMouseOver=""imgover(IMG"&rs.Fields("id")&")"" onMouseOut=""imgout(IMG"&rs.Fields("id")&")"">"&rs.Fields("titulo")&"</a></h2>")
contenido_abreviado = "<p>" & left(rs.Fields("contenido"),250) & "...</p>"
Response.write contenido_abreviado
CuantosRegistros=CuantosRegistros+1
rs.MoveNext
loop
Response.Write("")
end if
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing
Response.Write("<div>")
if PaginaActual > 1 then
Response.Write("<font color=""#999999"">&laquo;&nbsp;[&nbsp;<a href=""default.asp?pagina="& PaginaActual-1& _
""">Anteriores meneos</a>&nbsp;]</font>")
end if
if PaginaActual < PaginasTotales then
Response.Write("<font color=""#999999"">&nbsp;[&nbsp;<a href=""default.asp?pagina=" & PaginaActual+1 & _ 
""">Siguientes meneos</a>&nbsp;]&nbsp;&raquo;</font>")
end if
%>
</div>
__________________
http://www.mfo.com.es/