maktub
-
Total de itens
170 -
Registro em
-
Última visita
Tudo que maktub postou
-
olá?
-
Eu entendi o que escreveu, meu site todo esta em wwwroot e dentro da pasta site e dentro desta pasta estão as outras pastas Só um detalhe que não comentei, dentro da pasta newslatter tem um banco de dados, e quando executo ele fora do site ele roda normal, mas quando coloco o include para rodar na página principal ele da erro, é isso que não entendo, o caminho esta certinho.. só o include que não roda
-
Galera, tenho uma página em desenvolvimento mas estou tendo problema com o script, não da nenhum erro de execução mas para entender minha dificuldade, na minha página inicial tem três colunas, direita, meio e esquerda. Na coluna da esquerda tenho um include com 6 linhas, em cada linha tem um código include que chama os sisteminhas de login, banner etc.., o problema é que meu sistema de newslatter dá erro, ele não consegue encontrar o banco de dados, eu coloquei todos os arquivos dentro de uma pasta e não sei o por qe não executa, o caminho esta certinho. Pior, quando eu executo ele fora da página, ele roda sem problema O que pode ser? Isso acontece também com meu sistema de banner, ele não mostra as figuras e quando eu clico em cima ele não busca o link indicado, mas fora da página ele roda normal não sei se fui claro ms gostaria de uma ajudinha..
-
alguém por favor!
-
Então, eu baixei este código para aprender mais e dar uma melhorada no código mas a conexão ta meia maluca e não consigo fazer o código funcionar, pra você ter uma idéia vou disponibilizar o código completo: Enquete
-
Fala pessoal, to com um probleminha de conexão com o BD, podem me ajudar, segue abaixo a parte do código bem como o erro: conecta.asp <% local=Request.ServerVariables("SERVER_NAME") if local="www.alfastation.com.br" or local="alfastation.com.br" then conexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\testes\enquete2\bd.mdb;Persist Security Info=False" endereco_virtual="http://"&local&"/victor" endereco_fisico="D:\inetpub\clientes\alfastation.com.br\victor" end if if local="victor-vick" or local="localhost" or local="alfa" then conexao= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\testes\enquete2\bd.mdb;Persist Security Info=False" endereco_virtual="http://"&local&"/testes/enquete2" endereco_fisico="C:\Inetpub\wwwroot\testes\enquete2\bd.mdb" end if set conn = Server.CreateObject("adodb.connection") conn.open conexao %> esse é o erro: Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][ODBC Driver Manager] Nome da fonte de dados não encontrado e nenhum driver padrão especificado /testes/enquete2/conecta.asp, line 17 e este é o código da enquete: enquete.asp <!-- #include file="conecta.asp"--> <!-- #include file="estilo_enquete.css"--> <head> <title>ENQUETE</title> </head> <script language=javascript> function submit_enquete(){ w = 0; for (x = 0; x <= form_enquete.ta.value; x++){ if (w < form_enquete.alternativa[x].value.length){ w=form_enquete.alternativa[x].value.length; } if(form_enquete.alternativa[x].checked==true){ alter = form_enquete.alternativa[x].value } } window.open("enquete.asp?alternativa="+alter+"","Enquete","left=10,top=10,width="+((w*7)+200)+",height=280,scrollbars=no"); } </script> <%Set RecSet = Server.CreateObject("adodb.recordset")%> <%if Request.querystring("alternativa") <> "" then%> <% if Request.QueryString("alternativa") <> "resultado" then if session("votacao") <> "votado" then Conn.Execute "Update alternativa set votos = (votos+1) where alternativa = '"&Request.QueryString("alternativa")&"'" session("votacao") = "votado" mensagem = "<font color=336699>Obrigado pelo seu voto.</font>" else mensagem = "<font color=red>Seu voto já foi registrado.</font>" end if end if %> <table border=1 bordercolor=ffffff cellpadding=0 cellspacing=0 style="border-collapse: collapse" width=100%> <% RecSet.Open "Select * from pergunta order by id desc", conn, 3 if RecSet.EOF then Response.End id_pergunta = RecSet("id") %> <tr> <td class=geral colspan=3 height=25 valign=top bordercolor=ffffff><center><b><%=RecSet("pergunta")%></b></center><br></td> </tr> <% RecSet.Close RecSet.Open "Select alternativa, votos from alternativa where id_pergunta = "&id_pergunta&"", conn if not RecSet.EOF then while not RecSet.EOF tv=tv+RecSet("votos") RecSet.MoveNext wend end if RecSet.Close RecSet.Open "Select alternativa, votos from alternativa where id_pergunta = "&id_pergunta&"", conn if not RecSet.EOF then while not RecSet.EOF %> <tr bordercolor="#FFFFFF"> <td class=geral><%=RecSet("alternativa")%></td> <td bgcolor=#777777 width=100><img src="imagens/cilindro_vermelho.gif" height=15 width="<%=RecSet("votos")*100/tv%>"></td> <td class=geral><%=formatnumber((RecSet("votos")*100)/tv, 2)%> %</td> </tr> <% RecSet.MoveNext wend end if RecSet.Close if session("votacao") = "votado" then %> <tr> <td colspan=3 class=geral> <center> <br><font color="#000080"><b>Total de votos: <%=tv%></b></font><br> <br><%=mensagem%> </center> </td> </tr> <% end if %> </table> <%else%> <form action=enquete.asp method=post id=form_enquete> <table border=3 bordercolor=#444444> <% RecSet.Open "Select * from pergunta order by id desc", conn if RecSet.EOF then Response.End id_pergunta = RecSet("id") %> <tr bordercolor="#FFFFFF"> <td class=geral><b><%=RecSet("pergunta")%></b></td> </tr> <% RecSet.Close RecSet.Open "Select id, alternativa from alternativa where id_pergunta = "&id_pergunta&"", conn, 3 if not RecSet.EOF then tr = RecSet.RecordCount w = 0 while not RecSet.EOF if w < len(RecSet("alternativa")) then w = len(RecSet("alternativa")) end if %> <tr bordercolor="#FFFFFF"> <td class=geral width=150><input type=radio id=alternativa name=alternativa value="<%=RecSet("alternativa")%>"> <%=RecSet("alternativa")%></td> </tr> <% RecSet.MoveNext wend end if RecSet.Close %> <tr bordercolor="#FFFFFF"> <td> <input type=hidden name=ta value=<%=tr-1%>> <a href=enquete.asp?acao=votar class=link_enquete onclick=submit_enquete();> <img src=imagens/setinha.gif border=0> Votar</a><br> <a href=enquete.asp?acao=resultado class=link_enquete onclick="window.open('enquete.asp?alternativa=resultado','Enquete','left=10,top=10,width=<%=(w*7)+200%>,height=280,scrollbars=no');"> <img src=imagens/setinha.gif border=0> Resultado</a> </td> </tr> </table> </form> <%end if%> <%Set RecSet = nothing%>
-
Bem pessoal, estou de volta com mais dúvidas e como sempre gostaria da ajuda de vocês se possível. Criei uma página em asp , primeiramente criei o sistema fiz os testes, enfim, esta tudo funcionando direitinho, mas a arte de "brilho nos olhos" ainda não foi realizada, dai pergunto, é possível eu abrir esta página no fireworks (uso a versão 3) e definir um layout que comporte a estrutura montada? Criei a página assim uma tabela superior de 779 de largura e abaixo 3 colunas distribuidas da seguinte forma: lado esquerdo menu, lado direito publicidade, estatistica e patrocinio e meio com informações aleatórias. só para entender melhor minha maluquisse, é como se eu printasse a tela e colasse no fireworks e definisse tamanho figura e por ai vai.. Abraços, Maktub
-
Galera valeu pela ajuda consegui aprender a fazer, deu certo. podem fechar o tópico. abraços, Maktub
-
Galera é o seguinte, criei a pagina principal de meu site no Fireworks (uso a versão 3) mas eu gostaria de salva-lo recortado ou seja quero salvar o layout principal mas em pequenos quadrados, como eu faço isso?, será que da pra fazer isso? ou vou ter que recortar em outro aplicativo? Só consigo salvar o layout inteiro, mas assim fica ruin pois até carregar toda a pagina o usuário sai fora. Valeu ! Maktub
-
Perai deixa eu entender, eu vou ter que colocar este código em todas as paginas para poder funcionar o response.redirect? ou entendi errado?, caramba vai dar um sr. trabalho se for isso.. Não tem jeito de fazer funcionar o server.execute?, quando eu coloco server.execute ele dá esse erro: Erro de tempo de execução do Microsoft VBScript error '800a01b6' Esta propriedade ou método não é suportado pelo objeto: 'Server.Execute' /novoportal/Default.asp, line 36 o que poderia ser feito?
-
Ae galera da uma força ai, não sei o que há de errado... Valeu!
-
Amigões ta dificil fazer este troço funcionar coloquei o código assim: <% link = Request.QueryString("link") Select Case link Case "contato" : Response.Redirect("login.asp") Case "busca" : Response.Redirect("adm.asp") Case Else : Response.Redirect("login/default.asp") End Select %> Porém agora me da outro erro: Objeto Response error 'ASP 0156 : 80004005' Erro de cabeçalho /novoportal/default.asp, line 34 Os cabeçalhos HTTP já estão gravados no navegador cliente. Quaisquer modificações no cabeçalho HTTP devem ser feitas antes de gravar o conteúdo da página. Que diacho de erro é esse que eu não sei?
-
É verdade eu não havia pensado nisso antes, vou tentar caso de certo eu aviso, valeu pela dica amigão.
-
Então eu quero o meu cógigo mesmo funcionando mas ele da um erro assim: Erro de tempo de execução do Microsoft VBScript error '800a01b6' Esta propriedade ou método não é suportado pelo objeto: 'Server.Execute' /novoportal/Default.asp, line 36 Entendeu, o código que eu postei é como se fosse um iframe do html, porém é mais pratico em asp pois ele é dinâmico até para os links, tu sabe porque esta dando este erro?
-
Salve galera!, podem me ajudar?, estou com um probleminha, estou utlizando o código: <% link = Request.QueryString("link") Select Case link Case "contato" : Server.Execute("login.asp") Case "busca" : Server.Execute("adm.asp") Case Else : Server.Execute("login/default.asp") End Select %> Porém ele nem roda me mostrando o erro: <% link = Request.QueryString("link") Select Case link Case "contato" : Server.Execute("login.asp") Case "busca" : Server.Execute("adm.asp") Case Else : Server.Execute("login/default.asp") End Select %> Bom a linha 36 que ele menciona é onde esta o código, não sei fazer com que o server.execute funcione, será que podem me ajudar, só não quero utilizar iframe, como um cara me indicou. Valeu galera.
-
Fala ai brother belezinha, cara eu tentei esta conexão mas não deu, bom para entender melhor: Tem um cara chamado i_utilis.asp que executa o comando: <% ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ':::::: i_utils.asp global function library for aspapp.com ::::::::: ':::::: copyright 1999-2004 Iatek. All rights reserved. :::::::: ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: '' GLOBAL DECLARATIONS AND DATABASE CONNECTIONS ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ''' initiate global vars and constants dim action dim b_error, a_errors, error_list, a_msg, msg_list dim cn, cmd, rs, rsselect, sql, do_search, a_records ''' instantiate error handling and messaging set error_list = CreateObject("Scripting.Dictionary") set msg_list = CreateObject("Scripting.Dictionary") ''' initiate db objects and connections ''' app database set cn = Server.CreateObject("ADODB.Connection") set user_cn = Server.CreateObject("ADODB.Connection") on error resume next cn.Open application("cn_str") user_cn.Open application("cn_str") if err.number <> 0 then response.redirect "error.asp" on error goto 0 ''' command object set cmd = Server.CreateObject("ADODB.Command") cmd.ActiveConnection = cn ''' recordset object set rs = Server.CreateObject("ADODB.Recordset") ''' set locale identifier - default is US English ''' (http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vsmsclcid.asp) session.lcid = 1033 ''' set proper contcanation operator if inStr(lcase(cn.Provider),"jet") = 0 then '' SQL cn.Execute ("SET CONCAT_NULL_YIELDS_NULL OFF") cc = "+" else '' Access concatentation cc = "&" end if ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: '' ERROR AND MESSAGE DISPLAY SUBS ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: sub display_errs '::::::::::::::::::::::::::::::::::::::::::::::::::::: ' display content of the error dictionary object '::::::::::::::::::::::::::::::::::::::::::::::::::::: if error_list.count > 0 then ''' display errors a_errors = error_list.items for i = 0 to error_list.count - 1 response.write "<div class=ErrFont>" & a_errors(i) & "</div>" next end if end sub sub display_msg '::::::::::::::::::::::::::::::::::::::::::::::::::::: ' displays msgs after successful database action '::::::::::::::::::::::::::::::::::::::::::::::::::::: ':: check if a msg was passed to the page if request("msg") <> "" then msg = replace(request("msg"),"://","") msg = replace(msg,"script","") msg = replace(msg,"%","") msg = replace(msg,"form","") msg_list.add "msg",msg end if ':: display messages a_msg = msg_list.items for i = 0 to msg_list.count - 1 response.write "<div class=MsgFont>" & a_msg(i) & "</div>" next end sub ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: '' USER MANAGMENT FUNCTIONS ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: function check_security(iLevel) '::::::::::::::::::::::::::::::::::::::::::::::::::::: ' authenticates user and verifies access level '::::::::::::::::::::::::::::::::::::::::::::::::::::: if session("user_id") = "" OR isNull(session("accesslevel")) then response.redirect("login.asp?ret_page=" & to_url(request.serverVariables("SCRIPT_NAME")&"?"&request.serverVariables("QUERY_STRING"))) elseif session("accesslevel") <> "" then if cLng(session("accesslevel")) < cLng(iLevel) then response.redirect("login.asp?action=noaccess&ret_page=" & to_url(request.serverVariables("SCRIPT_NAME")&"?"&request.serverVariables("QUERY_STRING"))) else user_id = session("user_id") accesslevel = session("accesslevel") end if end function sub do_login '::::::::::::::::::::::::::::::::::::::::::::::::::::: ' autheticates user in db and creates session '::::::::::::::::::::::::::::::::::::::::::::::::::::: sql = "SELECT user_name, password FROM Users WHERE user_name = " & to_sql(user_name,"text") & " AND password = " & to_sql(password,"text") & "" set rs = user_cn.Execute(sql) if rs.EOF then 'login failed error_list.add "login", "Login or password is incorrect." b_error = true else 'login and password passed sql = "SELECT user_id, accesslevel FROM Users WHERE user_name = " & to_sql(user_name,"text") & " AND password = " & to_sql(password,"text") & "" set rs = user_cn.Execute(sql) if rs.EOF then 'should never happen error_list.add "login", "User does not exist." b_error = true else 'login user session("user_id") = rs(0) session("accesslevel") = rs(1) 'add user_name to app dict (global.asa) if isObject(online_users) then online_users.item(session.sessionid) = session("user_id") & "," & user_name 'store last visit date in session, set current date in db on error resume next set rs = user_cn.Execute("SELECT dtlast FROM Users WHERE user_id = " & to_sql(session("user_id"),"number")) session("dtlast") = rs(0) if err.number = 0 then user_cn.Execute = "UPDATE Users SET last_ip='" & Request.ServerVariables("REMOTE_ADDR") & "', dtlast = " & to_sql(now,"date") & " WHERE user_id = " & to_sql(session("user_id"),"number") on error goto 0 'where to next? querystring = request("querystring") ret_page = request("ret_page") if (ret_page <> request.serverVariables("SCRIPT_NAME")) AND (ret_page <> "") then 'return to page that preceded login response.redirect(ret_page) else 'go home response.redirect("default.asp") end if end if end if rs.Close end sub ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: '' FORMATTING FUNCTIONS ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: function to_url(strValue) '::::::::::::::::::::::::::::::::::::::::::::::::::::: ' make passed paramters url friendly '::::::::::::::::::::::::::::::::::::::::::::::::::::: if IsNull(strValue) then strValue = "" to_url = Server.URLEncode(strValue) end function function to_html(strValue) '::::::::::::::::::::::::::::::::::::::::::::::::::::: ' convert and clean string '::::::::::::::::::::::::::::::::::::::::::::::::::::: if IsNull(strValue) then strValue = "" strValue = Replace(strValue,"<%","<"&chr(37)) strValue = Replace(strValue,"%>",chr(37)&">") strValue = Replace(strValue,"<script","<script",1) strValue = Replace(strValue,"</script>","</script>",1) to_html = Server.HTMLEncode(strValue) end function function to_sql(Value,DataType) dim dteDateTime dteDateTime = Value if Value = "" or isNull(Value) then to_sql = "NULL" elseif (DataType = "date" OR DataType = "absdate") then if IsDate(dteDateTime) = True then if DataType="date" AND Hour(dteDateTime)>0 AND application("server_time_diff")<>0 AND not isNull(application("server_time_diff")) then dteDateTime = DateAdd("H",application("server_time_diff"),dteDateTime) dim dteDay, dteMonth, dteYear, dteHour, dteMinute, dteSecond dteDay = Day(dteDateTime) dteMonth = Month(dteDateTime) dteYear = Year(dteDateTime) dteHour = Hour(dteDateTime) dteMinute = Minute(dteDateTime) dteSecond = Second(dteDateTime) dteDateTime = dteYear & _ "-" & Right(Cstr(dteMonth + 100),2) & _ "-" & Right(Cstr(dteDay + 100),2) & _ " " & Right(Cstr(dteHour + 100),2) & _ ":" & Right(Cstr(dteMinute + 100),2) & _ ":" & Right(Cstr(dteSecond + 100),2) if instr(lcase(cn.Provider),"jet")>0 then ':access to_sql = "#" & Replace(dteDateTime, "'", "''") & "#" else ':sql server to_sql = "'" & Replace(dteDateTime, "'", "''") & "'" end if else to_sql = "NULL" end if elseif DataType <> "number" then Value = Replace(Value,"<"&chr(37),"<%") Value = Replace(Value,chr(37)&">","%>") Value = Replace(Value,"<script","<script",1) Value = Replace(Value,"</script>","</script>",1) to_sql = "'" & Replace(Value, "'", "''") & "'" elseif inStr(Value,".") then to_sql = Value else to_sql = cLng(Value) end if end function '::::::::::::::::::::::::::::::::::::::::::: function strip_html(str_html) '::::::::::::::::::::::::::::::::::::::::::::::::::::: ' removes html tags from str_html '::::::::::::::::::::::::::::::::::::::::::::::::::::: dim objRegExp, str_output set objRegExp = new Regexp objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern = "<(.|\n)+?>" str_output = objRegExp.Replace(str_html, "") str_output = Replace(str_output, "<", "<") str_output = Replace(str_output, ">", ">") strip_html = str_output set objRegExp = Nothing end function function get_options(sql,selected_value) '::::::::::::::::::::::::::::::::::::::::::::::::::::: ' displays option tags for a select list '::::::::::::::::::::::::::::::::::::::::::::::::::::: 'response.write sql if isNull(selected_value) then selected_value = "" set rsSelect = cn.Execute(sql) do until rsSelect.EOF if not isNull(rsSelect(0)) then get_options = get_options + "<option" if cStr(rsSelect(0)) = cStr(selected_value) then get_options = get_options + " SELECTED" end if get_options = get_options + " value='" & rsSelect(0) & "'>" if rsSelect.Fields.Count-1 = 0 then get_options = get_options + "" & rsSelect(0) & " " else for i = 1 to rsSelect.Fields.Count-1 if rsSelect(i) <> "" then get_options = get_options + "" & rsSelect(i) if i < rsSelect.Fields.Count-1 then get_options = get_options + ": " end if next end if get_options = get_options + "</option>" & vbCRLF & chr(9) & chr(9) end if rsSelect.MoveNext loop rsSelect.Close end function function is_reserved(strValue) '::::::::::::::::::::::::::::::::::::::::::::::::::::: ' compare a string with a list of vb and sql reserved words '::::::::::::::::::::::::::::::::::::::::::::::::::::: reserved_words = "|and||as||boolean||byref||byte||byval||call||case||class||const||currency||date||desc||debug||dim||do||double||each||else||elseif||empty||end||endif||enum||eqv||event||exit||false||for||function||get||goto||if||imp||implements||in||integer||is||let||like||long||loop||lset||me||mod||new||next||not||nothing||null||on||option||optional||or||paramarray||preserve||private||public||raiseevent||redim||rem||resume||rows||rset||select||set||shared||single||size||static||stop||sub||then||to||true||type||typeof||until||variant||wend||while||with||xor|" if inStr(reserved_words,"|" & lcase(strValue) & "|") > 0 then is_reserved = true else is_reserved = false end if end function ':: correct secure urls ::::::::::::::::::::::::::::::::::::::: ': this section assures that user does not persist in ': ssl (https://) mode. only pages in the application ': secure_pages variable (global.asa) will stay in https. ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: if request.servervariables("https") = "on" then ': list of pages where https is permitted secure_list = application("secure_pages") this_page = request.servervariables("script_name") a_tmp = split(secure_list, ",") for ctr = 0 to uBound(a_tmp) if instr(this_page,trim(a_tmp(ctr))) > 0 then '' this page should be secure b_redirect = false exit for else b_redirect = true end if next if b_redirect then response.redirect "http://" & request.servervariables("server_name") & request.servervariables("script_name") end if ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: %> Apartir deste ele só manda as informaçoes depois de confirmar o global.asa: <!-- place this file, or edit the exisiting "global.asa" file in the web site root folder --> <object runat="server" scope="application" id="online_users" progid="scripting.dictionary"></object> <script LANGUAGE=VBScript RUNAT=Server> Sub Application_OnStart ':: app database connection string application("cn_str") = "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("data/8681.mdb") & "" ':: initilize application variables from database set cn = Server.CreateObject("ADODB.Connection") cn.Open application("cn_str") set rs = cn.Execute("SELECT * FROM AppSettings") for each field in rs.Fields application(field.Name) = field.Value next End Sub Sub Session_OnStart session.timeout = 20 End Sub Sub Session_OnEnd if isObject(online_users) then on error resume next online_users.remove (session.sessionid) end if End Sub </SCRIPT> Se tiver algum erro ele redireciona a página para o error.asp indicando o possivel erro: Unable to connect to application database. This database is defined by the connection string located in the 'global.asa' file for this site. <br><br> Possible causes: <ol> <li> The syntax of the connection string is incorrect <li> A connection string attribute (ie; dsn, database, uid, pwd, etc..) is incorrect <li> The database server is temporarily unavailable <li> The 'global.asa' file must be located in the Web site (application) root (this may be separate from the other PortalApp files) </ol> <br><br> Open the 'global.asa' file to verify the cn_str assignment. <br><br><br> <A href=''>Click here to retry</A> É onde eu to ficando maluco que não acho o erro que ele aponta rss
-
Pequei um portal na app mas não consigo faze-lo funcionar, a pagina aponta o erro: Unable to connect to application database. This database is defined by the connection string located in the 'global.asa' file for this site. Possible causes: The syntax of the connection string is incorrect A connection string attribute (ie; dsn, database, uid, pwd, etc..) is incorrect The database server is temporarily unavailable The 'global.asa' file must be located in the Web site (application) root (this may be separate from the other PortalApp files) Open the 'global.asa' file to verify the cn_str assignment. Olhei o Global.asa, mas parece estar em ordem, o que pode estar acontecendo? Global.asa: <!-- place this file, or edit the exisiting "global.asa" file in the web site root folder --> <object runat="server" scope="application" id="online_users" progid="scripting.dictionary"></object> <script LANGUAGE=VBScript RUNAT=Server> Sub Application_OnStart ':: app database connection string application("cn_str") = "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("C:\Inetpub\wwwroot\portal\data\8681.MDB") & "" ':: initilize application variables from database set cn = Server.CreateObject("ADODB.Connection") cn.Open application("cn_str") set rs = cn.Execute("SELECT * FROM AppSettings") for each field in rs.Fields application(field.Name) = field.Value next End Sub Sub Session_OnStart session.timeout = 20 End Sub Sub Session_OnEnd if isObject(online_users) then on error resume next online_users.remove (session.sessionid) end if End Sub </SCRIPT> Ajudem-me
-
Hehe pode crer o Ursão é gente boa hehe, mas onde esta a sociedade da empresa hehe Dei uma procurada no site mas acho que tiraram o tuto, porém tem um sistema para download onde eu baixei para estuda-lo mas ta dando pau, vou ver o erro e posto aqui posteriormente.. Valeu pela dica Brother Um abraço, Hudson
-
Opa que isso, vamos dividir esse direito pelo "Brother" rsss Realmente o que o PIGmEu passou é bem legal, mas se tu tiver como postar o endereço do site com esse tuto ficarei eternamente grato brother, pode ser em VB6 sim sem problemas. Valeu mesmo, te aguardo Abraços, Hudson
-
Fala ae Galera do Bem ..... Brother´s!, alguém tem ou sabe onde eu arranjo uma apostila explicando como montar um controle de estoque acompanhada por objetos ou até mesmo um programa piloto onde eu possa estuda-lo e fazer o meu?? Agradeço a ajuda, Abraços, Maktub
-
Beleza Florzinha, valeu pela dica, quanto aos fotologs que enviou eu conheço bem legal mesmo rss já pode fechar o tópico Um abraço, Hudson
-
Galera eu não manjo de Photoshop e talves isso seja feito no programa, eu entrei no site:Fotolog e achei as fotos transformadas em desenho, alguém sabe como faz isso ou se é em outro programa, se for me avisem gostaria muito de aprender a fazer isso.
-
Dei uma procurada nestes sites de busca mas não localizei, eu achei varios endereços mas com o sistema já funcionando, não sei se na versão espanhola tem endereço facil porém não apareceu na lista ...
-
Beleza brother, se por ventura eu achar eu te mando o endereço também, mas enquanto eu não acho vou fazendo até onde eu sei e por que não com os arquivos que tiver-mos passar um para outro né, quando tiver um pouco mais funcional o que estou desenvolvendo mando o código pra ti dar uma olhada. Abraços parceiro Maktub
-
Desculpa não ter explicado cara esse Friend Finder é um sistema de namoro online o site http://www.amigos.com, usa esse sistem que é gratuito mas não sei onde eu baixo ele, eu sei que tem uma versão para o PHP Nuke porém é antiga eu quero a versão atual.