MapPatch

[FoX Borland 0]

<%Dim IDDim ConexaoDim MostragemID = Request.Querystring("ID")Set Conexao = Server.CreateObject("ADODB.Connection")Conexao.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("e:\home\valevip\dados\geral.mdb")Set Mostragem = Conexao.EXECUTE("SELECT * FROM links WHERE id_arquivo='"& ID &"'")If Mostragem.EOF ThenConexao.EXECUTE("INSERT INTO links(id_arquivo,hit) VALUES('"& ID &"','1')")Response.Redirect Request("URL")ElseConexao.EXECUTE("UPDATE links SET hit='"& FormatNumber(Mostragem("hit")+1,0) &"' WHERE id_arquivo='"& ID &"'")response.write "<script>location.href='http://"& Mostragem("URL") &"'</script>"   End IfMostragem.CloseSet mostragem = Nothing%>

 

esse é o código, eu preciso mudar o tipo de conexão!!! dá esse erro

 

Server.MapPath() error 'ASP 0172 : 80004005'

 

Invalid Path

 

/redirect.asp, line 9

 

The Path parameter for the MapPath method must be a virtual path. A physical path was used.

 

grato pela ajuda!

[K I L L I N G 0]

É o seguinte fox, o server.mappath() serve para locais virtuaisex.:server.mappath(dados/gerais.mdb)se você está usando um local FÍSICO e:\ etc etc etc, naum precisa do server.mappath() OK?????FALEI??????

[faustino 0]

Naum preciso dizer mais nada é o que o Killing disse belê :)

 

<%

Dim ID

Dim Conexao

Dim Mostragem

 

ID = Request.Querystring("ID")

 

Set Conexao = Server.CreateObject("ADODB.Connection")

Conexao.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("dados/geral.mdb")

 

Set Mostragem = Conexao.EXECUTE("SELECT * FROM links WHERE id_arquivo='"& ID &"'")

If Mostragem.EOF Then

Conexao.EXECUTE("INSERT INTO links(id_arquivo,hit) VALUES('"& ID &"','1')")

 

Response.Redirect Request("URL")

Else

Conexao.EXECUTE("UPDATE links SET hit='"& FormatNumber(Mostragem("hit")+1,0) &"' WHERE id_arquivo='"& ID &"'")

 

response.write "<script>location.href='http://"& Mostragem("URL") &"'</script>"

 

End If

Mostragem.Close

Set mostragem = Nothing

 

%>