Ver Mensaje Individual
  #1 (permalink)  
Antiguo 09/08/2002, 20:42
Avatar de Hercules
Hercules
 
Fecha de Ingreso: diciembre-2000
Ubicación: Cerca del Olimpo
Mensajes: 286
Antigüedad: 24 años, 4 meses
Puntos: 0
Configurar base de datos para Efrance

estimados amigos quisiera que me ayuden a configurar mi conexion de base de datos en efrance alguien me puede ayudar please este es el codigo que uso y me funciona perfectamente en el servidor propio pero cuando lo subo a efrance no me funciona

<%response.buffer=true
' ligacao DSN-less a BD
dim fn, rs, rp, cs
sub openrs (d,q)
fn=d & ".mdb"
rp = Server.MapPath(fn)
rp = Left(rp,Len(rp)-len(fn))
' aqui tens especificar o path da BD
strnew="C:\Inetpub\WWWROOT\wachos\fpdb\"
' mas tambem podes desligar essa linha e por no strnew aqui em baixo rp a mas nesse caso a BD tem de estar na mesma directoria o que nao e muito bom para este caso por cause de seguranca
cs = "DBQ=" & d &".mdb;DefaultDir="& strnew &";Driver={Microsoft Access Driver (*.mdb)};"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open q, cs, 3, 3, 1
end sub

' aqui fazemos o request dos dados do form de entrada.htm
nome=trim(request("nome"))
password=trim(request("password"))
' aqui verificamos se nenhum campo ficou vazio
if nome="" OR password="" then
Response.write "no llego un campo"
Response.addheader "REFRESH", "2;URL=entrada.htm"
else
' aqui vamos abrir a BD no sitio do nome e password
'openrs "pas","select * from user where (nome = '" & nome & "') AND where (password = '" & password & "')"
openrs "pas","select * from user where nome Like'"&nome&"' AND password like '"&password &"'"
' aqui vimos se o record existe
if not rs.eof then
session("pass")=True
rs.close
set rs=nothing
response.redirect "default.asp"
'Caso negativo o user e manda-do para o entrada.htm
else
response.write "Password e o nombre no encontrado"
Response.addheader "REFRESH", "2;URL=entrada.htm"
'Response.write "<meta http-equiv='refresh' content='2; url=entrada.htm'>"
end if
end if
%>

gracias :P :P :P

<p>
<img src="http://efrance.fr/boliviawebmaster/firma.jpg"></p>