Problemas Com O Www.domaindlx.com

[Luiz Fernando Dias Santos]

Eu estou com um problema para colocar esse script rodando beleza no www.domaindlx.com, se alguém puder me ajudar, estou tentando conectar com o access, se alguém aí entender o que está se passsando e puder dar uma ajuda, segue o meu código abaixo:

<%

search = Request("search")

set Conn = Server.CreateObject("ADODB.Connection")

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

strSQL = "select url, decricao from search"

strSQL = strSQL&" where url like '%"&search&"%' or descricao like '%"&search&"%'"

DSName = "Driver = Microsoft Access Driver (*.mdb); DBQ="

DSName = DSName&"Server.mapPath("mechaangel/database/speed_search.mdb")

Conn.Open DSName

set Ex = Conn.execute(strSQL)

%>

<%while not Ex.eof%>

<%=ex("url")%><br><%=ex("descricao")%>

<%ex.movenext

wend

ex.close

set Conn = nothing

set Rec = nothing

%>

Obrigado aí!

[DataSet]

Troca por esse codigo e roda, como não testei aqui, pode ser que apareça pequenos erros. Se der algum erro, tecla aí.

<%
set Conn = server.createobject("adodb.connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="mechaangel/database/speed_search.mdb;"
    
set Rec = server.CreateObject("ADODB.Recordset")
strSQL = "SELECT url, decricao FROM search WHERE url LIKE '%"&Request("search")&"%' OR descricao LIKE '%"&Request("search")&"%'"
Rec.Open strSQL,Conn
IF not Rec.EOF THEN
    while not Rec.eof
        response.write Rec("url")%> & "<br>" & Rec("descricao")
        Rec.movenext
    WEND
END IF
Rec.close
set Rec = nothing
set Conn = nothing
%>

[DELPHI-Man32]

cara, esse servidor vive dando pau aqui no meu pc, na maioria das vezes ele da erro no site! sei lá!

esse é ruim mesmo, o que compensa e o espaço que ele oferece! hehe

abs, VAGNER