• 0
Sign in to follow this  
maktub

Probleminha De Conexão

Question

Fala pessoal, to com um probleminha de conexão com o BD, podem me ajudar, segue abaixo a parte do código bem como o erro:

conecta.asp

<%
local=Request.ServerVariables("SERVER_NAME")

if local="www.alfastation.com.br" or local="alfastation.com.br" then
conexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\testes\enquete2\bd.mdb;Persist Security Info=False"
endereco_virtual="http://"&local&"/victor"
endereco_fisico="D:\inetpub\clientes\alfastation.com.br\victor"
end if

if local="victor-vick" or local="localhost" or local="alfa" then
conexao= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\testes\enquete2\bd.mdb;Persist Security Info=False"
endereco_virtual="http://"&local&"/testes/enquete2"
endereco_fisico="C:\Inetpub\wwwroot\testes\enquete2\bd.mdb"
end if

set conn = Server.CreateObject("adodb.connection")
conn.open conexao
%>
esse é o erro:
Microsoft OLE DB Provider for ODBC Drivers error '80004005' 

[Microsoft][ODBC Driver Manager] Nome da fonte de dados não encontrado e nenhum driver padrão especificado 

/testes/enquete2/conecta.asp, line 17 
e este é o código da enquete: enquete.asp
<!-- #include file="conecta.asp"-->
<!-- #include file="estilo_enquete.css"-->
<head>
	<title>ENQUETE</title>
</head>
<script language=javascript>
function submit_enquete(){
	w = 0;
	for (x = 0; x <= form_enquete.ta.value; x++){
  if (w < form_enquete.alternativa[x].value.length){
  	w=form_enquete.alternativa[x].value.length;
  }
  if(form_enquete.alternativa[x].checked==true){
  	alter = form_enquete.alternativa[x].value
  }
	}
	window.open("enquete.asp?alternativa="+alter+"","Enquete","left=10,top=10,width="+((w*7)+200)+",height=280,scrollbars=no");
}
</script>

<%Set RecSet = Server.CreateObject("adodb.recordset")%>
<%if Request.querystring("alternativa") <> "" then%>

<%
if Request.QueryString("alternativa") <> "resultado" then
	if session("votacao") <> "votado" then
  Conn.Execute "Update alternativa set votos = (votos+1) where alternativa = '"&Request.QueryString("alternativa")&"'"
  session("votacao") = "votado"
  mensagem = "<font color=336699>Obrigado pelo seu voto.</font>"
	else
  mensagem = "<font color=red>Seu voto já foi registrado.</font>"
	end if
end if
%>
<table border=1 bordercolor=ffffff cellpadding=0 cellspacing=0 style="border-collapse: collapse" width=100%>
<%
RecSet.Open "Select * from pergunta order by id desc", conn, 3
	if RecSet.EOF then Response.End
	id_pergunta = RecSet("id")
	%>
	<tr>
  <td class=geral colspan=3 height=25 valign=top bordercolor=ffffff><center><b><%=RecSet("pergunta")%></b></center><br></td>
	</tr>
	<%
RecSet.Close


RecSet.Open "Select alternativa, votos from alternativa where id_pergunta = "&id_pergunta&"", conn
	if not RecSet.EOF then
  while not RecSet.EOF
  	tv=tv+RecSet("votos")
  	RecSet.MoveNext
  wend
	end if
RecSet.Close

RecSet.Open "Select alternativa, votos from alternativa where id_pergunta = "&id_pergunta&"", conn
	if not RecSet.EOF then
  while not RecSet.EOF
  	%>
  	<tr bordercolor="#FFFFFF">
    <td class=geral><%=RecSet("alternativa")%></td>
    <td bgcolor=#777777 width=100><img src="imagens/cilindro_vermelho.gif" height=15 width="<%=RecSet("votos")*100/tv%>"></td>
    <td class=geral><%=formatnumber((RecSet("votos")*100)/tv, 2)%> %</td>
  	</tr>
  	<%
  	RecSet.MoveNext
  wend
	end if
RecSet.Close

if session("votacao") = "votado" then
	%>
	<tr>
  <td colspan=3 class=geral>
  	<center>
  	<br><font color="#000080"><b>Total de votos: <%=tv%></b></font><br>
  	<br><%=mensagem%>
  	</center>
  </td>
	</tr>
	<%
end if
%>
</table>



<%else%>

<form action=enquete.asp method=post id=form_enquete>
<table border=3 bordercolor=#444444>
<%
RecSet.Open "Select * from pergunta order by id desc", conn
	if RecSet.EOF then Response.End
	id_pergunta = RecSet("id")
	%>
	<tr bordercolor="#FFFFFF">
  <td class=geral><b><%=RecSet("pergunta")%></b></td>
	</tr>
	<%
RecSet.Close



RecSet.Open "Select id, alternativa from alternativa where id_pergunta = "&id_pergunta&"", conn, 3
	if not RecSet.EOF then
  tr = RecSet.RecordCount
  w = 0
  while not RecSet.EOF
  	if w < len(RecSet("alternativa")) then
    w = len(RecSet("alternativa"))
  	end if
  	%>
  	<tr bordercolor="#FFFFFF">
    <td class=geral width=150><input type=radio id=alternativa name=alternativa value="<%=RecSet("alternativa")%>"> <%=RecSet("alternativa")%></td>
  	</tr>  	
  	<%
  	RecSet.MoveNext
  wend
	end if
RecSet.Close
%>
<tr bordercolor="#FFFFFF">
	<td>
  <input type=hidden name=ta value=<%=tr-1%>>
  <a href=enquete.asp?acao=votar class=link_enquete onclick=submit_enquete();> <img src=imagens/setinha.gif border=0> Votar</a><br>
  <a href=enquete.asp?acao=resultado class=link_enquete onclick="window.open('enquete.asp?alternativa=resultado','Enquete','left=10,top=10,width=<%=(w*7)+200%>,height=280,scrollbars=no');"> <img src=imagens/setinha.gif border=0> Resultado</a>
	</td>
</tr>
</table>
</form>
<%end if%>
<%Set RecSet = nothing%>

Share this post


Link to post
Share on other sites

4 answers to this question

Recommended Posts

  • 0

nossa cara, sua conexão tá meio maluca, explica ai oque você tá tentando fazer , porque você colocou :

if local="www.alfastation.com.br" or local="alfastation.com.br" 

se os dois são a mesma coisa ??

Share this post


Link to post
Share on other sites
  • 0

Então, eu baixei este código para aprender mais e dar uma melhorada no código mas a conexão ta meia maluca e não consigo fazer o código funcionar, pra você ter uma idéia vou disponibilizar o código completo: Enquete

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this