Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Eros

String Conexão

Recommended Posts

Conexão Banco de Dados<%Dados = "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & server.mappath("../db/adados.mdb")%>Mostrar dados<table width="100%" height="0" border="0" align="center" cellpadding="0" cellspacing="2" class="Texto2"> <% sqlstmt = "SELECT * FROM noticia where 1=1 ORDER BY id DESC" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, Dados, 3, 3TotalRecs = rs.recordcountx = 0For x = 1 to 8 If rs.eof then Exit For Else date1 = rs("data") id = rs("ID") name1 = rs("titulo") link = "<a href='materiasview.asp?id=" & id & "'>" & date1 & "</a>" description = name1 %> <tr> <td width="0" height="0" class="Texto2Copy" ><span class="Texto2Copy1"><img src="images/ico_indice.gif" width="14" height="11"></span> <span class="style2"> <% =link %> -- <% =description%> </span></TD> <tr></tr> <%rs.MoveNextEnd IfNext%> </table>beleza, um servidor que uso tirou a função server mappath e estou tendo dificuldades para colocar o caminho físico, alguém pode me ajudar.... como ficaria a conexão logo acima..

Compartilhar este post


Link para o post
Compartilhar em outros sites

cara dá um response.write no server.mappath que ele te retornará o caminho fisico

Compartilhar este post


Link para o post
Compartilhar em outros sites

cara dá um response.write no server.mappath que ele te retornará o caminho fisico

ok.. mais como ficaria então para o caminho C:/home/tese.mdb

Compartilhar este post


Link para o post
Compartilhar em outros sites

não entendi sua ultima pergunta...

Compartilhar este post


Link para o post
Compartilhar em outros sites

não entendi sua ultima pergunta...

<%SET Con = Server.CreateObject("ADODB.Connection")Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\home\sanfanabalada.com.br\bd\ads.mdb;Persist Security Info=False"IF Request("a") = 1 THENSel = "SELECT * FROM banner WHERE id="& Request("id")SET selecionar = Con.Execute(Sel)UpdC = "UPDATE banner SET clicks='"& selecionar("clicks")+1 &"' WHERE id="& Request("id")Con.Execute(UpdC)Response.Redirect selecionar("url")Sel.CloseUpdC.CloseELSESET exibe = Server.CreateObject("ADODB.RecordSet")exibe.Open "SELECT * FROM banner", Con, 1, 3RANDOMIZE()exibe.Move Int(exibe.RecordCount * Rnd)IF LCase(exibe("formato")) = "gif" THEN %>document.write('<img src="<%=exibe("img")%>" border="0">');<% END IFIF LCase(exibe("formato")) = "swf" THEN %>document.write('<a href="<%=exibe("url")%>" target="_blank"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="<%=exibe("largura")%>" height="<%=exibe("altura")%>"><param name="movie" value="<%=exibe("img")%>"><param name="quality" value="high"><embed src="<%=exibe("img")%>" quality="high" width="<%=exibe("largura")%>" height="<%=exibe("altura")%>" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"></embed></object></a>');<% END IFUpd = "UPDATE banner SET views='"& exibe("views")+1 &"' WHERE id="& exibe("id")Con.Execute (Upd)exibe.CloseEND IFCon.CloseSET Con = Nothing%>quero saber se ficaria assim.

Compartilhar este post


Link para o post
Compartilhar em outros sites

porqque você mudou o tipo de conexão???

Compartilhar este post


Link para o post
Compartilhar em outros sites

Porque o Server que está esse banner tirou a função server mappth.Agora só lê o banco de dados pelo caminho lógico, porque o sever mappath não tenho certeza mais é caminho Virtual...

Compartilhar este post


Link para o post
Compartilhar em outros sites

não foi bem isso que perguntei

 

Conexão Banco de Dados<%Dados = "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & server.mappath("../db/adados.mdb")%>

SET Con = Server.CreateObject("ADODB.Connection")Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\home\sanfanabalada.com.br\bd\ads.mdb;Persist Security Info=False"

porque mudou???

Compartilhar este post


Link para o post
Compartilhar em outros sites

não foi bem isso que perguntei

Conexão Banco de Dados<%Dados = "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & server.mappath("../db/adados.mdb")%>
SET Con = Server.CreateObject("ADODB.Connection")Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\home\sanfanabalada.com.br\bd\ads.mdb;Persist Security Info=False"
porque mudou???
Bom agora sou eu que não estou entendo sua pergunta.

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.