Ir para conteúdo
Fórum CódigoFonte.net
Entre para seguir isso  
ricardodestro

Index parou de funcionar

Recommended Posts

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
Entre para seguir isso  

×
×
  • Criar Novo...