Ir para conteúdo

POWERED BY:

Arquivado

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

maubiasotto

o que tenho que mudar?

Por , em ASP Clássico

Recommended Posts

maubiasotto    0

maubiasotto
Postado

Olá pessoal,

sou leigo em asp, conheço muito pouco, programo um pouco em php com mysql.

 

Bom, eu cuido de um site de uma empresa, só que tá em ASP com ACCESS.

 

o sistema não fui eu que desenvolvi, estava funcionando normal, mas a hospedagem mudou de servidor, e pediu um alterações do sistema.

 

1-) Conexão física com o Banco de Dados Access

 

'Endereço físico do bando de dados

ConnString="Provider=Microsoft.Jet.OLEDB.4.0; Data

Source="&Server.MapPath("horario/db/horario.mdb")&";"

 

' Criando a estância de conexão

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

Conexao.Open ConnString

 

 

uma parte do meu sistema esta assim:

ASP
dim cn, rs

 

set cn = server.CreateObject("ADODB.Connection")

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:InetPubstore01confiaconsorciodataplanos.mdb;"

 

set rs = server.CreateObject("ADODB.Recordset")

rs.Open "select cod,data,nome from tabAssembleias order by data desc",cn,adOpenForwardOnly,adLockReadOnly,adcmdtext

 

 

do until rs.eof

 

set rs2 = server.CreateObject("ADODB.Recordset")

rs2.Open "select codGrupo,nome from tabGrupos where codAssembleia = " & rs("cod") & " order by nome asc",cn,adOpenForwardOnly,adLockReadOnly,adcmdtext

 

%>

 ...

<%

rs.movenext

loop

%>

 

eu tentei alterar mais continuou dando erro.

O banco se encontra na raiz do site.

 

valeu

Compartilhar este post

Link para o post
Compartilhar em outros sites

Custellinha    0

Custellinha
Postado

posta o erro!mas provavelmente deve ser problema de permissão!se for isso, peça ao servidor permissão de escrita na pasta em que seu banco de dados está...qualquer erro e/ou dúvida poste!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

pode estar errado o caminho tambemmas poe o erro ai

Compartilhar este post

Link para o post
Compartilhar em outros sites

maubiasotto    0

maubiasotto
Postado

Eu consegui arrumar o erro do banco

 

agora por causa da mudança do servidor os formulario não estão funcionando, quando envio aparece o seguinte erro:

 

 

 

Persits.MailSender.4 error '800a0004'

 

Connection timed out.

 

/fale_conosco/cdonts.asp, line 42

 

 

 

meu codigo está assim:

 

 

<%@ Language=VBScript %><%dim varNome, varTel, varEmail, varMSG,varGrupo,varCotavarNome = request.Form("txtNome")varTel = request.Form("txtTel")varEmail = request.Form("txtEmail")varMSG = request.Form("txtMSG")varGrupo = request.Form("txtGrupo")varCota = request.Form("txtCota")dim varHTMLvarHTML = varHTML & "<HTML>" varHTML = varHTML & "<head>" varHTML = varHTML & "<title>Contato Confia</title>"varHTML = varHTML & "</head>" varHTML = varHTML & "<body>" 	varHTML = varHTML & "<img src='http://www.confiaconsorcio.com.br/imagens/logo_confia_7.jpg'><br> <br>"	varHTML = varHTML & "<font face=arial size=3><b>Fale conosco - Site confia.</b></font><br> <br>"	varHTML = varHTML & "<b><font face=arial size=2>Nome:</b> " & varNome &  "<br>"	varHTML = varHTML & "<b><font face=arial size=2>Telefone:</b> " & varTel &  "<br>"	varHTML = varHTML & "<b><font face=arial size=2>Email:</b> " & varEmail &  "<br>"	varHTML = varHTML & "<b><font face=arial size=2>Mensagem:</b> " & varMSG &  "<br>"	varHTML = varHTML & "<b><font face=arial size=2>Grupo:</b> " & varGrupo &  "<br>"	varHTML = varHTML & "<b><font face=arial size=2>Cota:</b> " & varCota &  ""		varHTML = varHTML & "</body></html>" dim MailerSet Mailer = Server.CreateObject("Persits.MailSender")Mailer.FromName = "Site Confia"Mailer.From = "faleconosco@confiaconsorcio.com.br"Mailer.Host = "172.23.9.6"Mailer.AddAddress "faleconosco@confiaconsorcio.com.br","Fale Conosco"Mailer.Subject = "Fale Conosco"Mailer.IsHTML = TrueMailer.Body = varHTMLMailer.Send   <------------------------------------   linha 42set Mailer = nothingresponse.Redirect("sucesso.asp")%>

 

alguem sabe me ajudar??

 

valeuu

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

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

  Aceito