Postagens
Bom dia pessoal.
Estou tentando capturar um conteúdo específico de uma outra página utilizando o seguinte script adquirido aqui no fórum:
<%
Set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP")
xmlhttp.Open "GET", "http://www.site.com....oria/index.asp", False
xmlhttp.setRequestHeader "ContentType","text/html"
xmlhttp.Send()
str_text = xmlhttp.ResponseText
int_ini = Instr(str_text, "<div class=""listaconteudo"">")
int_fim = Instr(int_ini, str_text, "<strong>Leia mais:") - int_ini
Response.Write Mid(str_text, int_ini, int_fim)
%>
Mas está dando esse erro infernall, tentei de tudo, alguém poderia me ajudar?
Erro de tempo de execução do Microsoft VBScript erro '800a0005'
Chamada de procedimento ou argumento inválido: 'Mid' /categoria/index.asp, line 22
Abraços a todos !
- Fórum WMO
- → Viewing Profile: Tópicos: WPA
Community Stats
- Group Usuários
- Active Posts 28
- Profile Views 1707
- Member Title Turista
- Age 43 years old
- Birthday June 4, 1980
-
Sexo
Male
-
Localidade
são paulo
1
Neutral
User Tools
Friends
Latest Visitors
Topics I've Started
Erro '800A0005' Mid
13/07/2010, 12:00
Apertar Espaço E Inserir Traço No Campo Do Formulário
08/07/2010, 15:33
Toda vez que a tecla espaço for acionada necessito que um traço seja inserido no campo do formulário.
Alguém poderia me ajudar?
Muito Obrigado!
<html>
<head>
<title></title>
</head>
<script language="Javascript">
function alertar(){
alert("voce apertou e tecla de espaco");
}
</script>
<script>
function InserirTraco(){
if (FORM.valor1.event.keyCode==32 ){
FORM.valor1.value += "-";
}
}
</script>
<body>
<form name="FORM">
<input type="text" name="valor" onkeyup="alertar()">
<input type="text" name="valor1" onkeyup="InserirTraco()">
</form>
</body>
</html>
Alguém poderia me ajudar?
Muito Obrigado!
<html>
<head>
<title></title>
</head>
<script language="Javascript">
function alertar(){
alert("voce apertou e tecla de espaco");
}
</script>
<script>
function InserirTraco(){
if (FORM.valor1.event.keyCode==32 ){
FORM.valor1.value += "-";
}
}
</script>
<body>
<form name="FORM">
<input type="text" name="valor" onkeyup="alertar()">
<input type="text" name="valor1" onkeyup="InserirTraco()">
</form>
</body>
</html>
Conexão Em Dois Bancos
08/07/2010, 03:35
Pessoal preciso de uma luz,
Tenho a necessidade de realizar uma conexão simultânea a dois bancos de dados access
Ex:
Um banco A e outro Banco B, não posso uni-los
Realizei pesquisas específicas aqui no forum, mas sem sucesso.
Código:
<%
sFile = request.ServerVariables("PATH_TRANSLATED")
sSplit = split(sFile, "\")
for iCtr = 0 to uBound(sSplit) - 1
sDir = sDir & sSplit(ictr) & "\"
next
sConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sDir & "categoriaA/bancoA.mdb"
set conn = Server.CreateObject("ADODB.Connection")
set cmd = Server.CreateObject("ADODB.Command")
set rs = Server.CreateObject("ADODB.Recordset")
'conn.mode = 3
conn.open sConnString
set cmd.activeconnection = conn
%>
Obrigado!
Tenho a necessidade de realizar uma conexão simultânea a dois bancos de dados access
Ex:
Um banco A e outro Banco B, não posso uni-los
Realizei pesquisas específicas aqui no forum, mas sem sucesso.
Código:
<%
sFile = request.ServerVariables("PATH_TRANSLATED")
sSplit = split(sFile, "\")
for iCtr = 0 to uBound(sSplit) - 1
sDir = sDir & sSplit(ictr) & "\"
next
sConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sDir & "categoriaA/bancoA.mdb"
set conn = Server.CreateObject("ADODB.Connection")
set cmd = Server.CreateObject("ADODB.Command")
set rs = Server.CreateObject("ADODB.Recordset")
'conn.mode = 3
conn.open sConnString
set cmd.activeconnection = conn
%>
Obrigado!
- Fórum WMO
- → Viewing Profile: Tópicos: WPA
- Privacy Policy
- Regras ·
