conjunto de registro

felipe_tga · Março 15, 2006

coloquei na minha pagina index.asp tres conjunto de registro, interno ele aparece mais quando mando pro servidor da erro Microsoft][ODBC Microsoft Access Driver] Could not use '(unknown)'; file already in use.

http://forum.imasters.com.br/public/style_emoticons/default/assobiando.gif

Alguem pode me ajudar??????? http://forum.imasters.com.br/public/style_emoticons/default/cry.gif

felipe_tga · Março 15, 2006

sim acho que é isso pode me ajudar??// http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

uso o Macromedia Dreamweaver MX acho que tem que fechar ou abrir mais ja tentei e nada http://forum.imasters.com.br/public/style_emoticons/default/cry.gif

Jow · Março 15, 2006

<html><body><% dim mensagem	 dim cont	 mensagem=""	 cont=1	 Do until cont=5	 mensagem="contei: "&cont %>	<center>			  <%=mensagem%>	</center>	<% cont=cont+1		  LOOP%></body></html>

tenho essa funçao e tenho q imprimir o loop d tras pra frente sei que isso eh uma pergunta inutil

mas você poderiam me ajudar?

grato

felipe_tga · Março 15, 2006

<html><body><% dim mensagem	 dim cont	 mensagem=""	 cont=1	 Do until cont=5	 mensagem="contei: "&cont %>	<center>			  <%=mensagem%>	</center>	<% cont=cont+1		  LOOP%></body></html>
tenho essa funçao e tenho q imprimir o loop d tras pra frente sei que isso eh uma pergunta inutil
mas você poderiam me ajudar?

grato

ja tentei LOOP mais não deu certo http://forum.imasters.com.br/public/style_emoticons/default/upset.gif

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%

Dim Repeat1__numRows

Dim Repeat1__index

Repeat1__numRows = 2

Repeat1__index = 0

rs_noticias_numRows = rs_noticias_numRows + Repeat1__numRows

%>

<%

Dim MM_paramName

%>

<%

' *** Validate request to log in to this site.

MM_LoginAction = Request.ServerVariables("URL")

If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString

MM_valUsername=CStr(Request.Form("login"))

If MM_valUsername <> "" Then

MM_fldUserAuthorization=""

MM_redirectLoginSuccess="system/default.asp"

MM_redirectLoginFailed="system/index.asp"

MM_flag="ADODB.Recordset"

set MM_rsUser = Server.CreateObject(MM_flag)

MM_rsUser.ActiveConnection = MM_db_rt_STRING

MM_rsUser.Source = "SELECT login, senha"

If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization

MM_rsUser.Source = MM_rsUser.Source & " FROM login WHERE login='" & Replace(MM_valUsername,"'","''") &"' AND senha='" & Replace(Request.Form("senha"),"'","''") & "'"

MM_rsUser.CursorType = 0

MM_rsUser.CursorLocation = 2

MM_rsUser.LockType = 3

MM_rsUser.Open

If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then

' username and password match - this is a valid user

Session("MM_Username") = MM_valUsername

If (MM_fldUserAuthorization <> "") Then

Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)

Else

Session("MM_UserAuthorization") = ""

End If

if CStr(Request.QueryString("accessdenied")) <> "" And false Then

MM_redirectLoginSuccess = Request.QueryString("accessdenied")

End If

MM_rsUser.Close

Response.Redirect(MM_redirectLoginSuccess)

End If

MM_rsUser.Close

Response.Redirect(MM_redirectLoginFailed)

End If

%>

[color=#FF0000]<%

Dim rs_noticias

Dim rs_noticias_numRows

Set rs_noticias = Server.CreateObject("ADODB.Recordset")

rs_noticias.ActiveConnection = MM_db_rt_STRING

rs_noticias.Source = "SELECT * FROM nt_emissora ORDER BY Id DESC"

rs_noticias.CursorType = 0

rs_noticias.CursorLocation = 2

rs_noticias.LockType = 1

rs_noticias.Open()

rs_noticias_numRows = 0

%>

<%

Dim Recordset1

Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")

Recordset1.ActiveConnection = MM_db_rt_STRING

Recordset1.Source = "SELECT * FROM Evento WHERE Titulodoevento='promocao' ORDER BY Id DESC"

Recordset1.CursorType = 0

Recordset1.CursorLocation = 2

Recordset1.LockType = 1

Recordset1.Open()

Recordset1_numRows = 0

%>

<%

Dim Recordset2

Dim Recordset2_numRows

Set Recordset2 = Server.CreateObject("ADODB.Recordset")

Recordset2.ActiveConnection = MM_db_rt_STRING

Recordset2.Source = "SELECT * FROM Evento WHERE Titulodoevento='evento' ORDER BY Id DESC"

Recordset2.CursorType = 0

Recordset2.CursorLocation = 2

Recordset2.LockType = 1

Recordset2.Open()

Recordset2_numRows = 0

%>

<%[/color]' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

Dim MM_keepNone

Dim MM_keepURL

Dim MM_keepForm

Dim MM_keepBoth

Dim MM_removeList

Dim MM_item

Dim MM_nextItem

' create the list of parameters which should not be maintained

MM_removeList = "&index="

If (MM_paramName <> "") Then

MM_removeList = MM_removeList & "&" & MM_paramName & "="

End If

MM_keepURL=""

MM_keepForm=""

MM_keepBoth=""

MM_keepNone=""

' add the URL parameters to the MM_keepURL string

For Each MM_item In Request.QueryString

MM_nextItem = "&" & MM_item & "="

If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then

MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))

End If

For Each MM_item In Request.Form

MM_nextItem = "&" & MM_item & "="

If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then

MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))

End If

MM_keepBoth = MM_keepURL & MM_keepForm

If (MM_keepBoth <> "") Then

MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)

End If

If (MM_keepURL <> "") Then

MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)

End If

If (MM_keepForm <> "") Then

MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)

End If

' a utility function used for adding additional parameters to these strings

Function MM_joinChar(firstItem)

If (firstItem <> "") Then

MM_joinChar = "&"

Else

MM_joinChar = ""

End If

End Function

%>

<html>

<head>

<title>Rádio Tangará a sua Rádio...</title>

<style>

<!--

#ie5menu{

position:absolute;

width:200px;

border:1px solid #0066FF;

background-color:#0066FF;

font-family:Verdana;

font-size:12;

line-height:14px;

cursor:default;

visibility:hidden;

}

.menuitems{

padding-left:8px;

padding-right:8px;

background-color: #CCCCCC;

}

.style1 {

font-family: Verdana,;

font-size: 8px;

}

-->

</style>

//set this variable to 1 if you wish the URLs of the highlighted menu to be displayed in the status bar

var display_url=0

function showmenuie5(){

var rightedge=document.body.clientWidth-event.clientX

var bottomedge=document.body.clientHeight-event.clientY

if (rightedge<ie5menu.offsetWidth)

ie5menu.style.left=document.body.scrollLeft+event.clientX-ie5menu.offsetWidth

else

ie5menu.style.left=document.body.scrollLeft+event.clientX

if (bottomedge<ie5menu.offsetHeight)

ie5menu.style.top=document.body.scrollTop+event.clientY-ie5menu.offsetHeight

else

ie5menu.style.top=document.body.scrollTop+event.clientY

ie5menu.style.visibility="visible"

return false

}

function hidemenuie5(){

ie5menu.style.visibility="hidden"

}

function highlightie5(){

if (event.srcElement.className=="menuitems"){

event.srcElement.style.backgroundColor="#FFB8D8"

event.srcElement.style.color="#FF9CD0"

if (display_url==1)

window.status=event.srcElement.url

}

function lowlightie5(){

if (event.srcElement.className=="menuitems"){

event.srcElement.style.backgroundColor="#FFB8D8"

event.srcElement.style.color="#FF9CD0"

window.status=''

}

function jumptoie5(){

if (event.srcElement.className=="menuitems")

window.location=event.srcElement.url

}

</script>

<!--

function click() {

if (event.button==2||event.button==3) {

oncontextmenu='return false';

}

document.onmousedown=click

document.oncontextmenu = new Function("return false;")

function MM_openBrWindow(theURL,winName,features) { //v2.0

window.open(theURL,winName,features);

}

//-->

</script>

<!--

.fonte9 {

font-family: Verdana,;

font-size: 8px;

color: #000000;

}

.fonte10 { font-family: Verdana; font-size: 10px;}

.form {

font-family: Verdana;

font-size: 10px;

;

background-color: #99CCCC;

height: 15px;

border: thin none #FFFFFF;

background-repeat: no-repeat;

}

.fonte12 { font-family: Verdana,; font-size: 11px;}

-->

</style>

<!--

.tabela {

border: thin none #FFFF00;

}

-->

</style>

</head>

hoje = new Date()

dia = hoje.getDate()

dias = hoje.getDay()

mes = hoje.getMonth()

ano = hoje.getYear()

if (dia < 10)

dia = "0" + dia

if (ano < 2000)

ano = "19" + ano

function CriaArray (n) {

this.length = n }

NomeDia = new CriaArray(7)

NomeDia[0] = "Domingo"

NomeDia[1] = "Segunda-feira"

NomeDia[2] = "Terça-feira"

NomeDia[3] = "Quarta-feira"

NomeDia[4] = "Quinta-feira"

NomeDia[5] = "Sexta-feira"

NomeDia[6] = "Sábado"

//

NomeMes = new CriaArray(12)

NomeMes[0] = "Janeiro"

NomeMes[1] = "Fevereiro"

NomeMes[2] = "Março"

NomeMes[3] = "Abril"

NomeMes[4] = "Maio"

NomeMes[5] = "Junho"

NomeMes[6] = "Julho"

NomeMes[7] = "Agosto"

NomeMes[8] = "Setembro"

NomeMes[9] = "Outubro"

NomeMes[10] = "Novembro"

NomeMes[11] = "Dezembro"

//

function WriteDate() {

document.write ("" + NomeDia[dias] + ", " + dia + " de " + NomeMes[mes] + " de " + ano + "")

}

</script>

<!--[if IE]>

<center><b><font face="Verdana" color="#FFffff" size="1">Rádio Tangará Ltda</font></b>

<br>

</div>

<![endif]-->

document.oncontextmenu=showmenuie5

if (document.all&&window.print)

document.body.onclick=hidemenuie5

</script>

<tr>

<tr>

</tr>

<tr>

<tr>

, Hoje é

</font></td>

</tr>

</table></td>

</tr>

<tr>

<tr>

<tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

</table>

</div></td>

</tr>

<tr>

</tr>

<tr>

<tr>

<td width="83%" valign="top"> <form ACTION="<%=MM_LoginAction%>" name="form1" method="POST">

<tr>

<td height="41" class="fonte10"> <div align="right">Login:</div></td>

</tr>

<tr>

<td height="23" class="fonte10"> <div align="right">Senha:</div></td>

</tr>

<tr>

</div></td>

</tr>

</table>

</form></td>

</tr>

</table></td>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</td>

</tr>

<tr>

</tr>

<tr>

<font color="#000066" size="2" face="Geneva, Arial, Helvetica, sans-serif"><strong><a href="http://www.tangaranews.com.br">Acompanhe

as principais notícias on-line, atualizadas a cada

dez minutos.</a></strong></font></td>

</tr>

</table>

</map>

</td>

<tr>

</tr>

<tr>

</tr>

<tr>

<td height="110" valign="top"> <%

While ((Repeat1__numRows <> 0) AND (NOT rs_noticias.EOF))

%>

<tr>

</tr>

<tr>

</tr>

<tr>

<td valign="top"> <div class="LINKHEADER" ><img src="fotos/<%=(rs_noticias.Fields.Item("Foto").Value)%>" alt="" width="120" height="90" align="left"> <A HREF="detalhes_noticias.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "Id=" & rs_noticias.Fields.Item("Id").Value %>"><%=(rs_noticias.Fields.Item("Subtitulo").Value)%></A></div></td>

</tr>

<tr>

</td>

</tr>

</table>

<%

Repeat1__index=Repeat1__index+1

Repeat1__numRows=Repeat1__numRows-1

rs_noticias.MoveNext()

Wend

%> </td>

</tr>

<tr>

<tr>

</tr>

<tr>

<td valign="top"><div align="justify"> <img src="fotos/<%=(Recordset2.Fields.Item("Foto1").Value)%>" alt="" width="200" height="150">

<br>

</font></strong><font size="2" face="Geneva, Arial, Helvetica, sans-serif"><%=(Recordset2.Fields.Item("Resumo").Value)%></font> </div></td>

<td valign="top"><div align="justify"><img src="fotos/<%=(Recordset1.Fields.Item("Foto1").Value)%>" alt="" width="200" height="150"><br>

</font></strong><font size="2" face="Geneva, Arial, Helvetica, sans-serif"><%=(Recordset1.Fields.Item("Resumo").Value)%></font> </div></td>

</tr>

</table></td>

</tr>

<tr>

<tr>

<tr>

<a href="chat.asp" target="_self" class="fonte12">Rádio

chat é a maneira mais fácil

de fazer amigos, e ainda pedir sua música

on-line, ou bater um papo com o locutor

da emissora , seu pedido musical via internet.

Entre agora pois queremos saber onde está

você. Mande seu recado</a>.</font></div></td>

</tr>

<tr>

felipe_tga · Março 15, 2006

você criou a mesma estrutura de pasta e arquivos do seu micro no servidor onde você quer hospedar?

sim esta tudo ok, acho que deve ser algo de abrir e fecharaqui http://forum.imasters.com.br/public/style_emoticons/default/excl.gif abre<%Dim Recordset2Dim Recordset2_numRowsSet Recordset2 = Server.CreateObject("ADODB.Recordset")Recordset2.ActiveConnection = MM_db_rt_STRINGRecordset2.Source = "SELECT * FROM Evento WHERE Titulodoevento='evento' ORDER BY Id DESC"Recordset2.CursorType = 0Recordset2.CursorLocation = 2Recordset2.LockType = 1Recordset2.Open()Recordset2_numRows = 0%> :( e aqui fecha<%Recordset2.Close()Set Recordset2 = Nothing%>acho que deve ser isto mais ja tentei de tudo http://forum.imasters.com.br/public/style_emoticons/default/blush.gif

Salgado · Março 15, 2006

Pode acontecer de o BD estar aberto para edição antes de se enviar ao server, tenha certeza que ele está fechado antes de enviar.

felipe_tga · Março 15, 2006

você criou a mesma estrutura de pasta e arquivos do seu micro no servidor onde você quer hospedar?
sim esta tudo ok, acho que deve ser algo de abrir e fecharaqui http://forum.imasters.com.br/public/style_emoticons/default/excl.gif abre<%Dim Recordset2Dim Recordset2_numRowsSet Recordset2 = Server.CreateObject("ADODB.Recordset")Recordset2.ActiveConnection = MM_db_rt_STRINGRecordset2.Source = "SELECT * FROM Evento WHERE Titulodoevento='evento' ORDER BY Id DESC"Recordset2.CursorType = 0Recordset2.CursorLocation = 2Recordset2.LockType = 1Recordset2.Open()Recordset2_numRows = 0%> :( e aqui fecha<%Recordset2.Close()Set Recordset2 = Nothing%>acho que deve ser isto mais ja tentei de tudo http://forum.imasters.com.br/public/style_emoticons/default/blush.gif

acho que isso não deve ser até por que site esta no ar e as outras paginas estão ok.....tô irado :wacko:

Entrar

Arquivado

conjunto de registro

Recommended Posts

felipe_tga 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

felipe_tga 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Jow 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

felipe_tga 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

felipe_tga 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

felipe_tga 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante