Postagens
Não informado
fiz isso e deu esse tipo de erro
Tipo de erro:
Erro de compilação do Microsoft VBScript (0x800A0401)
Fim da instrução esperado
/imob1/lista.asp, line 18, column 26
DB.Open = "Driver="&MySQL ODBC 3.51 Driver&"; DATABASE="&imobiliaria&"; SERVER="&localhost&"; UID="&root&"; PASSWORD="&123&""
Posts I've Made
In Topic: Clipart
23/10/2004, 21:50
Valeu era exatamente isto que eu queria
In Topic: O Que Fazer
12/10/2004, 14:07
Valeu pchardnet deu certo
In Topic: O Que Fazer
09/10/2004, 15:48
A linha que diz que está errada é essa
rsBanner.ActiveConnection = MM_connDUportal_STRING
vou fazer melhor vou colar toda a programação
<!--#include file="../Connections/connDUportal.asp" -->
<%
'these codes are generated by UltraDev
set rsBanner = Server.CreateObject("ADODB.Recordset")
rsBanner.ActiveConnection = MM_connDUportal_STRING
rsBanner.Source = "SELECT * FROM BANNERS"
rsBanner.CursorType = 3
rsBanner.CursorLocation = 2
rsBanner.LockType = 1
rsBanner.Open()
rsBanner_numRows = 0
'end of UltraDev codes
'the following hand-codes are added to rotate the banners:
Dim rndMax
rndMax = CInt(rsBanner.RecordCount)
rsBanner.MoveFirst
Dim rndNumber
Randomize Timer
rndNumber = Int(RND * rndMax)
rsBanner.Move rndNumber
'end of codes.
%>
<table width="100%" cellpadding="0" cellspacing="0">
<tr>
<td><a href="../default.asp"><img src="../assets/DUportal.gif" width="268" height="60" border="0"></a></td>
<td align="center" width="468" valign="middle"><a href="../DUbanner/redirect.asp?id=<%=(rsBanner.Fields.Item("B_ID").Value)%>&url=<%=(rsBanner.Fields.Item("B_URL").Value)%>" target="_blank" onClick="window.location.reload(true);"><img src="../DUbanner/images/<%=(rsBanner.Fields.Item("B_IMAGE").Value)%>" border="0" alt = "<%=(rsBanner.Fields.Item("B_ALT").Value)%>" align="absmiddle"></a>
</td>
</tr>
</table>
<%
rsBanner.Close()
%>
[COLOR=red]
rsBanner.ActiveConnection = MM_connDUportal_STRING
vou fazer melhor vou colar toda a programação
<!--#include file="../Connections/connDUportal.asp" -->
<%
'these codes are generated by UltraDev
set rsBanner = Server.CreateObject("ADODB.Recordset")
rsBanner.ActiveConnection = MM_connDUportal_STRING
rsBanner.Source = "SELECT * FROM BANNERS"
rsBanner.CursorType = 3
rsBanner.CursorLocation = 2
rsBanner.LockType = 1
rsBanner.Open()
rsBanner_numRows = 0
'end of UltraDev codes
'the following hand-codes are added to rotate the banners:
Dim rndMax
rndMax = CInt(rsBanner.RecordCount)
rsBanner.MoveFirst
Dim rndNumber
Randomize Timer
rndNumber = Int(RND * rndMax)
rsBanner.Move rndNumber
'end of codes.
%>
<table width="100%" cellpadding="0" cellspacing="0">
<tr>
<td><a href="../default.asp"><img src="../assets/DUportal.gif" width="268" height="60" border="0"></a></td>
<td align="center" width="468" valign="middle"><a href="../DUbanner/redirect.asp?id=<%=(rsBanner.Fields.Item("B_ID").Value)%>&url=<%=(rsBanner.Fields.Item("B_URL").Value)%>" target="_blank" onClick="window.location.reload(true);"><img src="../DUbanner/images/<%=(rsBanner.Fields.Item("B_IMAGE").Value)%>" border="0" alt = "<%=(rsBanner.Fields.Item("B_ALT").Value)%>" align="absmiddle"></a>
</td>
</tr>
</table>
<%
rsBanner.Close()
%>
[COLOR=red]
