Application

dimarcinho · Julho 16, 2004

seguinte galera, Application aki em casa não funcionaele simplesmente some qdo eu passo de uma página pra outrameu global.asa não funciona por causa dissoestou usando o Application() para controlar as inscrições numa visita no meu sitetipo, qdo o cara se inscreve, eu dou um Lock no application, executo a inscrição e e depois dou UnLockantes disso, vem um código de Loop que só deixa realizar a incrição qdo o UnLock for truetudo perfeito, exceto pelo problema do meu servidor sumir com o Application!!!!alguém já passou por isso ???qdo digo meu servido, estou falando do PC na minha casa!!!uso WinXP IIS 5.0alguém sabe como resolvo ??? Sem Application, o ASP perde mto dinamismo[]´s

dimarcinho · Julho 16, 2004

ninguém tem nem idéia ??:~(

dimarcinho · Julho 16, 2004

jah testei e funcionou

o código:

ASP [/tr][tr]<% Option Explicit

Dim nome, email, p, eventos, bd, rg, conBD, conex, RS, sql, erro, data

Response.Buffer = True

data = 20/07/2004 'acertar essa data com marquinhus

If Cdate(data) >= Cdate(now()) Then

Response.Write("Prazo de Inscrições terminado.")

Response.End()

End If

nome = Request("nome")

p = Request("periodo")

email = Request("email")

rg = Request("RG")

eventos = Request("checkbox")

%>

<html>

<head>

<title>Untitled Document</title>

</head>

<body>

<tr>

<tr>

<td width="618" valign="top"><p align="justify"><font size="3"><strong><em>Inscrições</em></strong></font></p>

<tr>

<%

bd = Server.MapPath("users.mdb")

conBD = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & bd & ";"

Set conex = Server.Createobject("ADODB.Connection")

conex.open conBD

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

sql = "SELECT email from users WHERE email='"&email&"'"

Set RS = conex.Execute(sql)

If not RS.EOF Then

Response.Write("<p>Já existe uma pessoa cadastrada com esse email.</p><br>")

Response.Write("<p>O email cadastrado é: <b>"&rs(0)&"</b></p><br><br>")

Response.End()

End If

Do While not Application("inscritos").UnLock() = True

If Application("inscritos") >=30 Then

Response.Write("Inscrições esgotadas.")

Exit Do

conex.close

Set RS = Nothing

Set conex = Nothing

End If

If Application("inscritos").UnLock() = True Then

sql = "INSERT INTO users (Nome, Periodo, Email, Eventos, RG) "

sql = sql & "VALUES ('"&nome&"', "&p&", '"&email&"', '"&eventos&"', '"&rg&"')"

Set RS = conex.execute(sql)

If InStr(Cstr(eventos), "Visita_Tec") <> 0 Then

Application("inscritos").Lock

Application("inscritos") = Application("inscritos") + 1

Application("inscritos").UnLock

End If

conex.close

Set RS = Nothing

Set conex = Nothing

End If

Loop

If err.number > 0 or erro = True Then

Response.Write("Ocorreu o seguinte erro durante a inscrição: <br>" & err.description)

Response.Write("Tente novamente por favor.")

Else

Response.Write("Inscrição feita com sucesso.")

End If

%>

</p>

</td>

</tr>

</table>

</p>

</td>

</tr>

</table></td>

</tr>

</table>

</body>

</html>

[/tr]

o erro:

Microsoft VBScript runtime error '800a01a8'

Object required: 'Application(...)'

/dimarcinho/semanadaeq/inscrever.asp, line 53

sendo, que na página do form, existe o seguinte código no início:

ASP [/tr][tr]If Application("inscritos") = Null Then

Application("inscritos") = 0

End If

[/tr]

ou seja, tá tudo certo. Ele só usa o Application como uma variável qualquer.

O mesmo erro dá aqui em casas e no servidor do WebSamba

Entrar

Arquivado

Application

Recommended Posts

dimarcinho 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

dimarcinho 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

dimarcinho 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ajuda com Extends e envio para o banco

Fixar div até atingir uma certa altura

PHP+Codeigniter - Dúvida referente a PDV

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante