Ir para conteúdo
Fórum CódigoFonte.net

Pesquisar na Comunidade

Showing results for tags 'asp index'.



More search options

  • Search By Tags

    Digite tags separadas por vírgulas
  • Search By Author

Tipo de Conteúdo


Fóruns

  • Programação
    • Cgi-Perl
    • PHP
    • Delphi
    • CSS
    • .NET
    • JAVA
    • ASP
    • HTML
    • Javascript
  • Banco de dados
    • PostgreSQL
    • SQL Server
    • XML
    • MySQL
    • Access
    • Outros
  • Desenvolvimento
    • Tableless
    • DreamWeaver
    • FrontPage
    • Flash
    • AJAX
  • Design
    • Corel Draw
    • FireWorks
    • PhotoShop
    • Outros aplicativos
  • Conteúdo Técnico
    • Hardware e Software
    • Sistemas Operacionais
    • Segurança & Malwares
  • Diversos
    • Apresentações
    • Parcerias
    • Outros Assuntos
    • Fale Conosco
    • Sugestões
    • Seus Trabalhos
  • Atualidades
    • Livros
    • Alertas da Internet

Find results in...

Find results that contain...


Data de Criação

  • Início

    End


Data de Atualização

  • Início

    End


Filter by number of...

Data de Registro

  • Início

    End


Grupo


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype


Location


Interests

Encontrado 1 registro

  1. ricardodestro

    Index parou de funcionar

    Ola Sou novo no forum e estou com uma duvida num sistema asp de envio de cartoes que parou de funcionar Esse eh o codigo da index que parou de funcionar <% Session.LCID = 1046 %><!--#include file="inccard.asp"--> <% response.expires = 0 response.expiresabsolute = Now() - 1 response.addHeader "pragma","no-cache" response.addHeader "cache-control","private" Response.CacheControl = "no-cache" if request("n_reme") <> "" then session("n_reme")=request("n_reme") end if if request("e_reme") <> "" then session("e_reme")=request("e_reme") end if if request("e_dest") <> "" then session("e_dest")=request("e_dest") end if if request("n_dest") <> "" then session("n_dest")=request("n_dest") end if %> <% Dim nPageNo, nCatId, nLastPage nPageNo = Request.QueryString("pageno") If nPageNo = "" Then nPageNo = 1 End If nCatId = Request("cat_fldAuto") If nCatId = "" Then Response.Redirect "../" End If Dim oRS Set oRS = Server.CreateObject("ADODB.Recordset") Set oRS.ActiveConnection = PostCard_GetDatabaseConn() oRS.CursorLocation = adUseClient oRS.PageSize=12 oRS.Open "select fldAuto, gif, a_cartao,n_cartao,swf from card where cat_id=" & nCatId,,3,1 If oRS.EOF = False Then nLastPage=oRS.PageCount oRS.AbsolutePage = nPageNo End If Sub WriteOne( oRS ) If oRS.EOF Then Exit Sub End If Dim strRef, sName, sGifUrl, sGifUrlSmall sGifUrlSmall = oRS("swf").Value strRef = "passo2.asp?fldAuto=" & oRS("fldAuto").Value & "&small=" & sGifUrlSmall C_N = oRS("n_cartao").Value A_N = oRS("a_cartao").Value sGifUrl = oRS("gif").Value If sGifUrlSmall = "" Then sGifUrlSmall = sGifUrl End If Response.Write "<center><a href='" & strRef & "'><img border=0 src='" & sGifUrl & "'></a><br>" & C_N & "" oRS.MoveNext End Sub Sub WritePrev() ' If CInt(nPageNo) <> 1 Then Response.Write "<br><a href=""passo1.asp?cat_fldAuto=" & nCatId & "&pageno=" & nPageNo-1 & """><b><< Pagina Anterior</b></a>" End If End Sub Sub WriteNext() ' If CInt(nPageNo) <> CInt(nLastPage) Then Response.Write "<br><a href=""passo1.asp?cat_fldAuto=" & nCatId & "&pageno=" & nPageNo+1 & """><b>Proximo Pagina>></b></a>" End If End Sub %> <HTML><HEAD><TITLE>Pumpkins Cards</TITLE> <!--#include file="barra.asp"--> <BODY aLink=#000000 bgcolor="red" topmargin="0" leftmargin="0" link=#000080 text=#000000 vLink=#000080> <form method="POST" action="passo2.asp"> <table border="0" width="100%"> <tr><td WIDTH="5%" valign="top" > <OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://active.macromedia.com/flash2/cabs/swflash.cab#version=4,0,0,0" ID=card_amizade01 WIDTH=212 HEIGHT=465> <PARAM NAME=movie VALUE="menu_cartoes.swf"> <PARAM NAME=quality VALUE=high> <PARAM NAME=bgcolor VALUE="#ff0000"> <embed src="menu_cartoes.swf" quality="high" bgcolor="#ff0000" WIDTH="280" HEIGHT="480" TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"> </OBJECT> </td><td WIDTH="95%" valign="top" > <table border="0" width="100%"> <% Dim i Dim nCount nCount = 0 If oRS.EOF = False Then for i=1 to oRS.PageSize / 3 If oRS.EOF = False Then Response.Write "<tr>" %> <td width="25%"><font face="Verdana" size="1" color="#ffffff"><b><%WriteOne( oRS )%></b></font><br> </td> <td width="25%"><font face="Verdana" size="1" color="#ffffff"><b><%WriteOne( oRS )%></b></font><br> </td> <td width="25%"><font face="Verdana" size="1" color="#ffffff"><b><%WriteOne( oRS )%></b></font><br> </td> <% Response.Write "</tr>" End If Next End If %> </table> </td></tr> </table> </form> </BODY></HTML><img src="http://www.pumpkins.com.br/stat/conta.asp?ipp=<%= second(now)*second(now) %>" width="1" height="1"> <% If request("resp")="ok" then %> <script > alert("Pumpkins e-Card enviado com Sucesso !!!") </script> <% Elseif request("resp")="dep" then %> <script > alert("Pumpkins e-Card foi colocado na fila de envio !!!") </script> <% End If %> <!--#include file="auto.asp"--> gostaria de saber onde esta o erro pois o sistema estava funcionando normalmente . Att
×
×
  • Criar Novo...