Ir para conteúdo
Fórum Script Brasil

Mateustg

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    382

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que Mateustg postou

  1. Mateustg

    Imput

    pergunta respondeu ao Mateustg de Mateustg em Ajax, JavaScript, XML, DOM

    é isso aqui: <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <title>Nova pagina 1</title> <script LANGUAGE="JavaScript"> <!-- function go(loc) { window.location.href f= loc; } //--> </script> </head> <body> <!-------- Início --------> <form name="form"> <font face="Arial" size="1"><b> <p align="justify"> Concorra de 2ª a 6ª, às nossas promoções. Escolha sua opção:</b></font><br> <font face="Arial" size="1"><input type="radio" name="loc" onClick="go('cadastro1.html');">Invasão 92<br> <input type="radio" name="loc" onClick="go('cadastro2.html');">Opção 2<br> <input type="radio" name="loc" onClick="go('cadastro3.html');">Opção 3<br> <input type="radio" name="loc" onClick="go('cadastro4.html');">Opção 4<br> <input type="radio" name="loc" onClick="go('cadastro5.html');">Opção 5</font> </form> <!-------- Fim --------> </body> </html>
  2. Mateustg
    Olá eu tenho um formulário com vários imputs, o que eu gostaria de fazer é que ao se clicar em uma opção (imput) ele abra uma determinada página com o conteudo dakela opção, mas em uma novapágina... eu já consegui fazer ele abrir, porem ele abre na mesma tela quando eu escolho a opção. como faço?
  3. Mateustg

    Noticias

    pergunta respondeu ao Mateustg de Mateustg em ASP

    Aqui, tentei colocar a data em negrito, mas não consegui, fiz algo assim, mas ai começa a aparecer uma data em cima de cada oticia. if left(var_data,10) <> left(rs("data"),10) Then var_data = "<b>" & rs("data") & "</b>" response.write(var_data) & "<br>" end if
  4. Mateustg

    Noticias

    pergunta respondeu ao Mateustg de Mateustg em ASP

    Bem, o problema agora foi resolvido, porem me surgiu uma nova dúvida onde eu poderia estar fazendo o seguinte (se for possivel): O sistema vai cadastrando noticias e mais notícias, mas estas noticias tem que ser apresentadas vamos dizer de 40 em 40 e dai vai pra outrra página, pois é, tem como eu fazer que quando ele apresentar as 40 noticias, apareça um link que leve para uma próxima página onde apresentará mais 40 noticias e assim por diante, conforme for o fluxo das noticias?
  5. Mateustg

    Noticias

    pergunta respondeu ao Mateustg de Mateustg em ASP

    Cara foi quase!!! tentei fazer o que você me falou, ele apareceu porém desse modo: 24/11/2004 12:05 Polícia vai aumentar vigilância na BR-040 24/11/2004 12:00 Setelagoano lidera suinocultores do Estado 24/11/2004 11:54 Democrata prestes a negociar estádio e que estou querendo assim: 24/11/2004 12:05 Polícia vai aumentar vigilância na BR-040 12:00 Setelagoano lidera suinocultores do Estado 11:54 Democrata prestes a negociar estádio 23/11/2004 12:00 xxxx xxxxxx
  6. Mateustg

    Noticias

    pergunta respondeu ao Mateustg de Mateustg em ASP

    Ai galera, eu fiz de um modo, porem não deu certo, ele me apresenta a data sim, porém na frente de cada notícia e o que eu quero é colocar a data, depois vem as notícias e quando mudar de dia ele coloque novamente a data atual. O modo que eu fiz foi assim: <!--#include file="ado_conexao.asp"--> <html> <%Response.AddHeader "Refresh", "180"%> <head> <title>:. Sistema de Notícia .:</title> <link rel="stylesheet" href="css.css" style="text/css"> <script language="javascript"> <!-- function ler_noticia(id) { window.open (id,'noticia','scrollbars=yes,width=650,height=400,top=20,left=100') } //--> </script> </head> <body> <div align="center"> <table border="0" width="634" align="left"> <tr> <td width="628"> <% set rs=server.createobject("ADODB.RecordSet") sql="SELECT * FROM news ORDER BY ID DESC" rs.open sql,conexao var_data = rs("data") Do While not rs.eof %> <img src="ss.gif">&nbsp;<%=FormatDateTime(rs("data"),4)%>&nbsp;<a href="javascript:ler_noticia('noticias.asp?id=<%=rs("id")%>')"><%=rs("titulo")%></a><br> <% rs.movenext if var_data <> rs("data") Then response.write(var_data) end if loop rs.close set rs=nothing conexao.close set conexao=nothing %> </td> </tr> </table> </div> </body> </html>
  7. Mateustg

    Noticias

    uma questão postou Mateustg ASP

    Ola, eu tenho um sistema de listas de noticias, ele apresenta um lista das noticias q são cadastradas, pedi uma ajuda aki e consegui colocar neste sistema a hora na frente de cada noticia, porem agora estou querendo fazer com que se va cadastrando as noticias de hoje e quando mudar de dia, o sistema coloque automaticamente a data do outro dia em negrito, separando as noticias, para referir q cada noticia é de um determinado dia. Abaixo um exemplo do q quero fazer (é um esquema igual as noticias rápidas que tem no site agestado.com.br): 23/11/2004 10:00 acidente com 5 mortos 09:37 Minas decreta defict zero 09:00 xxxxx xxxxx xxxxx 24/11/2004 17:00 é lançado a moda xxxx 15:50 xxxxx xxxxx xxxxxx 12:26 xxxxxxx xxxxxx xxxxxxxx
  8. Mateustg

    Troca De Imagem

    pergunta respondeu ao Mateustg de Mateustg em ASP

    beleza! Alguém aqui pode me ajudar?
  9. Mateustg

    Troca De Imagem

    uma questão postou Mateustg ASP

    Ola, gostaria de saber o seguinte: tenho um site onde o mesmo possui várias imagens, onde tenho sempre que trocá-las em determinadas datas, será que existe algum metodo que eu possa fazer com que eu já deixe programado uma outra figura e no dia que ela deverá ser trocada ela mude automaticamente, ou seja, existe algo onde a imagem muda por data ou algum outro método similar (mudança da página, etc)?
  10. Mateustg

    Calendario

    pergunta respondeu ao Mateustg de Mateustg em ASP

    estou usando assim na realidade: <%Option Explicit%> <HTML> <HEAD> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <TITLE>Calendário</TITLE> <META NAME="Generator" CONTENT="Microsoft FrontPage 4.0"> <META NAME="Author" CONTENT="Alexandre Sales Lima"> <META NAME="Keywords" CONTENT="Calendario"> <META NAME="Description" CONTENT="Calendario escrito em ASP"> <base target="frame"> <script LANGUAGE="JavaScript"> <!-- Original: Jeff Harding (jbh@site-ations.com) --> <!-- Web Site: http://www.site-ations.com --> <!-- Day images (c): http://www.site-ations.com --> <!-- Month images (c): http://www.bruce-hamilton.com --> <!-- This script and many more are available free online at --> <!-- The JavaScript Source!! http://javascript.internet.com --> <!-- Begin theDate= new Date(); months = new Array(); days = new Array(); months[1] ="../data/jan.gif"; months[2] ="../data/fev.gif"; months[3] ="../data/mar.gif"; months[4] ="../data/abr.gif"; months[5] ="../data/mai.gif"; months[6] ="../data/jun.gif"; months[7] ="../data/jul.gif"; months[8] ="../data/ago.gif"; months[9] ="../data/set.gif"; months[10] ="../data/out.gif"; months[11] ="../data/nov.gif"; months[12] ="../data/dez.gif"; function printDate() { document.write('<img src="' + months[theDate.getMonth()+1] + '">'); // month } // End --> </script> </HEAD> <BODY bgcolor=#ffffff> <% 'Lógica para construir o calendário Session.LCID = 1046 'BRASIL Dim URL,Dia, Mes, Ano, Agora, PrimeiroDiaMes, UltimoDiaMes, Mes2,Varmes Dim Inicio,Fim, Start, TheEnd,i, j URL= Request.ServerVAriables("SCRIPT_NAME") if (Request.QueryString("Mes") <> Month(now))AND(Request.QueryString("Mes") <> "") Then Mes=CInt(Request.QueryString("Mes"))'força que o resultado seja um inteiro 'mes2 = CInt(Month(date)) Select Case Mes Case 1 varmes = "mes" & mes & ".jpg" Case 2 varmes = "mes" & mes & ".jpg" Case 3 varmes = "mes" & mes & ".jpg" Case 4 varmes = "mes" & mes & ".jpg" Case 5 varmes = "mes" & mes & ".jpg" Case 6 varmes = "mes" & mes & ".jpg" Case 7 varmes = "mes" & mes & ".jpg" Case 8 varmes = "mes" & mes & ".jpg" Case 9 varmes = "mes" & mes & ".jpg" Case 10 varmes = "mes" & mes & ".jpg" Case 11 varmes = "mes" & mes & ".jpg" Case 12 varmes = "mes" & mes & ".jpg" End Select else Mes = Month(now) 'mes2 = CInt(Month(date)) Select Case Mes Case 1 varmes = "mes" & mes & ".jpg" Case 2 varmes = "mes" & mes & ".jpg" Case 3 varmes = "mes" & mes & ".jpg" Case 4 varmes = "mes" & mes & ".jpg" Case 5 varmes = "mes" & mes & ".jpg" Case 6 varmes = "mes" & mes & ".jpg" Case 7 varmes = "mes" & mes & ".jpg" Case 8 varmes = "mes" & mes & ".jpg" Case 9 varmes = "mes" & mes & ".jpg" Case 10 varmes = "mes" & mes & ".jpg" Case 11 varmes = "mes" & mes & ".jpg" Case 12 varmes = "mes" & mes & ".jpg" End Select end if Dia=Day(now) Ano = Year(now) Agora = DateSerial(Ano, mes, dia) PrimeiroDiaMes=DateSerial(Year(Now),Mes,1) UltimoDiaMes=DateSerial(Year(Now),Mes+1,1-1) Inicio = ABS(1 - WeekDay(PrimeiroDiaMes)) Fim = 7 - WeekDay(UltimoDiaMes) Start=1-Inicio TheEnd = Day(UltimoDiaMes) + Fim J=1 '############################################################# '# Inicio do meu código - Q Santa Luzia Ilumine meus olhinhos# '############################################################# %> <!--#include file="conecta.asp"--> <TABLE BORDER=0 WIDTH=194 CELLPADDING=0 ALIGN=left> <TR> <TD WIDTH="199" VALIGN=top style="border-style: solid; border-width: 1"> <div align="center"> <center> <TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0 WIDTH="120"> <TR bgcolor=white> <TD align="Center" width="195"> <center><script>printDate();</script></center> </TD> </TR> <TR bgcolor=white> <TD align="Center" width="195"> <TABLE CELLSPACING=3 CELLPADDING=1 BORDER=0> <TR> <TD COLSPAN=1 align="center" width="75"><img border="0" src="semana2.gif"></TD> </TR> </Table> </TD> </TR> <tr> <TD align="Center" width="195"> <TABLE CELLSPACING=3 CELLPADDING=1 BORDER=0 width="99"> <TR bgcolor="#ffffff"> <% AbreConexao Dim sql, RSAgenda For i= Start to TheEnd if (i = day(now)) And (Mes=Month(now)) Then sql = "SELECT * FROM AGENDA WHERE day(dt_evento)="&i&" AND month(dt_evento)="&mes&" AND year(dt_evento)="&ano&"" Set RSAgenda = conexao.execute(sql) If RSAgenda.EOF then%> <TD align= center width=1 style="border-style: solid; border-width: 1"><FONT face=Arial,Helvetica size=-1 COLOR=black><b><%=Day(DateSerial(Year(Now),Mes,i))%></b></font></TD> <% else 'While NOT RSAgenda.EOF%> <TD align= center width=1 style="border-style: solid; border-width: 1"><FONT face=Arial,Helvetica size=-1 COLOR=red><a href="cagenda.asp?dt=<%=RSagenda("dt_evento")%>&mes=<%=Mes%>" target="frame"><%=Day(DateSerial(Year(Now),Mes,i))%></font></a></font></TD> <% 'RSAgenda.MoveNext 'Wend end if Elseif (i<1) or (i > Day(UltimoDiaMes)) Then sql = "SELECT * FROM AGENDA WHERE day(dt_evento)="&i&" AND month(dt_evento)="&mes&" AND year(dt_evento)="&ano&"" Set RSAgenda = conexao.execute(sql) If RSAgenda.EOF then%> <TD align= center width=1 style="border-style: solid; border-width: 1"><FONT face=Arial,Helvetica size=-1 COLOR=gray><%=Day(DateSerial(Year(Now),Mes,i))%></TD> <%else 'While NOT RSAgenda.EOF%> <TD align= center width=1 style="border-style: solid; border-width: 1"><FONT face=Arial,Helvetica size=-1 COLOR=gray><B><a href="cagenda.asp?dt=<%=RSagenda("dt_evento")%>&mes=<%=Mes%>" target="frame"><%=Day(DateSerial(Year(Now),Mes,i))%></B></a></B></TD> <%'RSAgenda.MoveNext 'Wend end if Else sql = "SELECT * FROM AGENDA WHERE day(dt_evento)="&i&" AND month(dt_evento)="&mes&" AND year(dt_evento)="&ano&"" Set RSAgenda = conexao.execute(sql) If RSAgenda.EOF then%> <TD align= center width=1 style="border-style: solid; border-width: 1"><FONT face=Arial,Helvetica size=-1 COLOR=gray><%=Day(DateSerial(Year(Now),Mes,i))%></TD> <% else 'While NOT RSAgenda.EOF%> <TD align= center width=5 style="border-style: solid; border-width: 1"><FONT face=Arial,Helvetica size=-1 COLOR=blue><a href="cagenda.asp?dt=<%=RSagenda("dt_evento")%>&mes=<%=Mes%>" target="frame"><b><%=Day(DateSerial(Year(Now),Mes,i))%></b></a></TD> <%'RSAgenda.MoveNext 'Wend end if End if If j = 7 then J = 0 Response.Write "</tr>" %> <TR bgcolor="#FFFFFF"> <% end if J = j + 1 Next FechaConexao %> </TR> </table> </tr> <tr> <td width="156"> <div align="center"> <center> <Table> <TR> <TD NOWRAP COLSPAN=4 ALIGN=CENTER BGCOLOR=#FFFFFF> <TABLE CELLSPACING=0 CELLPADDING=1 BORDER=0> <TR> <TD> <a HREF="<%=URL&"?mes="&(mes-1)%>" target="_self"><img src="seta_tras.gif" border="0" alt=""></a> </TD> <TD NOWRAP VALIGN=middle> <TT><B><img src="seta_meio.gif" border="0" alt=""></B></TT> </TD> <TD> <a HREF="<%=URL&"?mes="&(mes+1)%>" target="_self"><img src="seta_frente.gif" border="0" alt=""></a> </TD> </TR> </TABLE> </TD> </TR> </Table> </center> </div> </tr> </table> </center> </div> </table> </BODY>
  11. Mateustg

    Calendario

    uma questão postou Mateustg ASP

    olá, eu tenho um sistema de agenda onde me mostra todas as datas beleza, tem um seta de avançar e uma de voltar... ai está o meu problema, pois coloquei nesta agenda uma função de meses, pois quero mostrar o mes a q se refere as datas, só que ao avançar para o mês sseguinte, as datas mudam beleza, mas o mês continua o mesmo... o mês só muda conforme o calendário do computador. Será que tem algum meio onde eu possa estar colocando o mês e ao avançar as datas e os meses mudem dando sequencia certa a agenda de meses
  12. Mateustg

    Atualizar A Página

    uma questão postou Mateustg ASP

    Olá, gostaria de saber como eu faço para que a minha página principal seje atualizada automaticamente de 2 em 2 minutos, ou seja, que a cada dois minutos ela seje atualizada como se a pessoa desse um F5?
  13. Mateustg

    Sistema De Notícias

    pergunta respondeu ao Mateustg de Mateustg em ASP

    Pode deixar, vlw pela ajuda, já consegui. Coloquei um: <%=FormatDateTime(rs("data"),4)%> e funcionou beleza
  14. Mateustg

    Sistema De Notícias

    pergunta respondeu ao Mateustg de Mateustg em ASP

    está aparecendo assim: Notícia - 17/11/2004 14:45:43
  15. Mateustg

    Sistema De Notícias

    pergunta respondeu ao Mateustg de Mateustg em ASP

    Ainda não deu, ele apresenta somente a data e não apresenta a hora. o que eu quero é o contrário, q apresente a hora e não apareça a data
  16. Mateustg

    Sistema De Notícias

    pergunta respondeu ao Mateustg de Mateustg em ASP

    Ai estou testando, mas acho q vai funcionar, porem a data da notícia irá sair junto com a hora, tem como eu fazer com que saia somente a hora e não a data?
  17. Mateustg

    Sistema De Notícias

    pergunta respondeu ao Mateustg de Mateustg em ASP

    vou tentar agora!
  18. Mateustg

    Sistema De Notícias

    pergunta respondeu ao Mateustg de Mateustg em ASP

    O código de cadastro é este ai: <% if not session("npass") then response.redirect "login.html" end if %> <html> <head> <title>:. Sistema de Notícia .:</title> <link rel="stylesheet" href="css.css" style="text/css"> </head> <body> <div align="center"> <table cellpadding="1" cellspacing="1" border="0" bgcolor="#003366" width="600"> <tr> <td align="center" bgcolor="#ffffff" style="background-color: #003366"><font color="#FFFFFF"><b>Página de Administração</b></font></td> </tr> <tr> <td align="center" bgcolor="#ffffff"> <a href="adicionar_form.asp">Adicionar Notícias</a>&nbsp;| <a href="listar_todas.asp">Listar Notícias</a> </td> </tr> <tr> <td align="center" bgcolor="#ffffff" valign="top"> <form action="adicionar_view.asp" method="post"> <br><br> <table border="0" width="80%"> <tr> <td>Título:</td> <td><input type="text" name="ntitulo" size="40"></td> </tr> <tr> <td>Notícia:</td> <td><textarea cols="50" rows="8" name="nnoticia"></textarea></td> </tr> <tr> <td>Data</td> <td><input type="text" name="ndata" value="<%=date()%>"></td> </tr> <tr> <td colspan="2"><br><input type="submit" value="Vizualizar"></td> </tr> </table> </form> </td> </tr> </table> </div> </body> </html>
  19. Mateustg

    Sistema De Notícias

    pergunta respondeu ao Mateustg de Mateustg em ASP

    quando ele cria o link ele é dete modelo abaixo: rs.open sql,conexao Do While not rs.eof %> <img src="ss.gif">&nbsp;<a href="javascript:ler_noticia('noticias.asp?id=<%=rs("id")%>')"><%=rs("titulo")%></a><br> <% rs.movenext loop
  20. Mateustg

    Sistema De Notícias

    pergunta respondeu ao Mateustg de Mateustg em ASP

    Não, pois quando você vai cadastrar a notícia, ele pede o titulo e a noticia, a data já aparece imediatamente, sem necessidade de preencher.
  21. Mateustg

    Sistema De Notícias

    uma questão postou Mateustg ASP

    Olá, eu tenho um sistema de notícias onde se cadastra o titulo da notícia, a própria notícia e a data da mesma por um sistema de administração. Após feiot isso é jogado somente um link com o titulo da notícia para uma outra página. O que eu gostaria de estar fazendo é colocando automaticamente na frente deste link a hora em que a notícia foi postada, isto é possível?? Mateus
  22. Mateustg

    Error '80004005'

    pergunta respondeu ao Mateustg de Mateustg em ASP

    Náo funciona não, o meu cód está assim: <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Guide - Web Wiz Site News '** '** Copyright 2001-2002 Bruce Corkhill All Rights Reserved. '** '** This program is free software; you can modify (at your own risk) any part of it '** under the terms of the License that accompanies this software and use it both '** privately and commercially. '** '** All copyright notices must remain in tacked in the scripts and the '** outputted HTML. '** '** You may use parts of this program in your own private work, but you may NOT '** redistribute, repackage, or sell the whole or any part of this program even '** if it is modified or reverse engineered in whole or in part without express '** permission from the author. '** '** You may not pass the whole or any part of this application off as your own work. '** '** All links to Web Wiz Guide and powered by logo's must remain unchanged and in place '** and must remain visible when the pages are viewed unless permission is first granted '** by the copyright holder. '** '** This program is distributed in the hope that it will be useful, '** but WITHOUT ANY WARRANTY; without even the implied warranty of '** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE OR ANY OTHER '** WARRANTIES WHETHER EXPRESSED OR IMPLIED. '** '** You should have received a copy of the License along with this program; '** if not, write to:- Web Wiz Guide, PO Box 4982, Bournemouth, BH8 8XP, United Kingdom. '** '** '** No official support is available for this program but you may post support questions at: - '** http://www.webwizguide.info/forum '** '** Support questions are NOT answered by e-mail ever! '** '** For correspondence or non support questions contact: - '** info@webwizguide.com '** '** or at: - '** '** Web Wiz Guide, PO Box 4982, Bournemouth, BH8 8XP, United Kingdom '** '**************************************************************************************** Dim adoCon 'Database Connection Variable Dim rsConfiguration 'Holds the configuartion recordset Dim strCon 'Holds the Database driver and the path and name of the database Dim strSQL 'Holds the SQL query for the database Dim intRecordsPerPage 'Holds the number of files shown on each page Dim strBgColour 'Holds the background colour of the News Administrator Dim strTextColour 'Holds the text colour of the News Administrator Dim strTextType 'Holds the font type of the News Administrator Dim intHeadingTextSize 'Holds the heading font size Dim intTextSize 'Holds the font size of the News Administrator Dim intSmallTextSize 'Holds the small font size Dim strLinkColour 'Holds the link colour of the News Administrator Dim strTableColour 'Holds the table colour Dim strTableBorderColour 'Holds the table border colour Dim strTableTitleColour 'Holds the table title colour Dim strVisitedLinkColour 'Holds the visited link colour of the News Administrator Dim strActiveLinkColour 'Holds the active link colour of the News Administrator Dim blnLCode 'set to true Dim blnEmail 'Boolean set to true if e-mail is on Dim strCode 'Holds the page code Dim strCodeField 'Holds the code type Dim strWebSiteEmailAddress 'Holds the e-mail address for the web site the Site News is on Dim strMailComponent 'Email coponent the site news app useses Dim strSMTPServer 'SMTP server for sending the e-mails through Dim strLoggedInUserCode 'Holds the user code of the user Dim strTitleImage 'Holds the path and name for the title image for the site news Dim intMsgCharNo 'Holds the number of characters allowed for the messages Dim blnCookieSet 'Set to true if cookies are to be set to stop multiple posts Dim blnIPBlocking 'Set to true if IP blooking is to be used to stop multiple posts 'Create database connection 'Create a connection odject Set adoCon = Server.CreateObject("ADODB.Connection") '------------- If you are having problems with the script then try using a diffrent driver or DSN by editing the lines below -------------- 'Database connection info and driver strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("website/dominio/db/news.mdb") 'Database driver info for Brinkster 'strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/novo/web/news/news.mdb") 'This one is for Brinkster users place your Brinster username where you see USERNAME 'Alternative drivers faster than the basic one above 'strCon = "Provider=Microsoft.Jet.OLEDB.3.51; Data Source=" & Server.MapPath("news.mdb") 'This one is if you convert the database to Access 97 'strCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("news.mdb") 'This one is for Access 2000/2002 'If you wish to use DSN then comment out the driver above and uncomment the line below (DSN is slower than the above drivers) 'strCon = "DSN = DSN_NAME" 'Place the DSN where you see DSN_NAME '--------------------------------------------------------------------------------------------------------------------------------------------- 'Set an active connection to the Connection object adoCon.Open strCon 'Set up the page encoding strCodeField = "Code" strCode = "nolinks2002" 'Read in the configuration for the script 'Intialise the ADO recordset object Set rsConfiguration = Server.CreateObject("ADODB.Recordset") 'Initialise the SQL variable with an SQL statement to get the configuration details from the database strSQL = "SELECT tblConfiguration.* From tblConfiguration;" 'Query the database rsConfiguration.Open strSQL, strCon 'If there is config deatils in the recordset then read them in If NOT rsConfiguration.EOF Then 'Read in the configuration details from the recordset intRecordsPerPage = CInt(rsConfiguration("No_records_per_page")) strBgColour = rsConfiguration("bg_colour") strTextColour = rsConfiguration("text_colour") strTextType = rsConfiguration("text_type") intHeadingTextSize = CInt(rsConfiguration("heading_text_size")) intTextSize = CInt(rsConfiguration("text_size")) intSmallTextSize = CInt(rsConfiguration("small_text_size")) strTableColour = rsConfiguration("table_colour") strTableBorderColour = rsConfiguration("table_border_colour") strTableTitleColour = rsConfiguration("table_title_colour") strLinkColour = rsConfiguration("links_colour") strVisitedLinkColour = rsConfiguration("visited_links_colour") strActiveLinkColour = rsConfiguration("active_links_colour") strWebSiteEmailAddress = rsConfiguration("email_address") blnLCode = CBool(rsConfiguration("Code")) blnEmail = CBool(rsConfiguration("email_notify")) strTitleImage = rsConfiguration("Title_image") intMsgCharNo = rsConfiguration("Message_char_no") blnCookieSet = CBool(rsConfiguration("Cookie")) blnIPBlocking = CBool(rsConfiguration("IP_blocking")) strMailComponent = rsConfiguration("mail_component") strSMTPServer = rsConfiguration("mail_server") End If 'Reset server object rsConfiguration.Close Set rsConfiguration = Nothing %>
  23. Mateustg

    Error '80004005'

    pergunta respondeu ao Mateustg de Mateustg em ASP

    entrei em contato com o pessoal do suporte e falaram q está tudo ok
  24. Mateustg

    Error '80004005'

    pergunta respondeu ao Mateustg de Mateustg em ASP

    Realizei algumas alterações porém deu outro erro: Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x57a0 Thread 0x5808 DBC 0xb4a7004 Jet'. /novo/web/news/common.asp, line 107 Alinha 107 refere-se á: adoCon.Open strCon
  25. Mateustg

    Error '80004005'

    uma questão postou Mateustg ASP

    Olá eu tenho um sistema de notícias e estou tentando executá-lo porém ele me apresenta o seguinte erro: Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x57a0 Thread 0x572c DBC 0x34917ac Jet'. /novo/web/news/common.asp, line 121 A linha 121 a q ele se refere é essa: rsConfiguration.Open strSQL, strCon Alguém sabe me dizer que erro é este?? E como resolvo???
×
×
  • Criar Novo...