acho q so com javascript.: <script language="Javascript">
top.window.resizeTo(466, 350);
</SCRIPT>
<script event="onresize()" for="window" language="Javascript">
top.window.resizeTo(466, 350);
</SCRIPT> testa ai tirei do player do terra...
quando o cara fizer login e você verificar os dados dele você cria uma session: session("LOGADO")="SIM"
ai depois é so verificar as sessions
if session("logado")<>"sim" then
'redireciona para o login end if
essa sua conexao ta meio estranha num ta não? você pode usar: <%
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:\banco.mdb"
%>
ou:
<%
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=c:\banco.mdb"
%>
ai galera já vi q o aspjpeg é melhor q o aspimage..... mais o aspimage pode fazer o mesmo que o aspjpeg??? eu digo na questão de trabalhar com fotos???
sei lá... da pra fazer assim: <%
sql="select * from tabela where condicao='"& variavel &"'"
set rs=conn.execute(sql)
id=""
DO WHILE NOT RS.EOF
id=id & rs("id")&"."
RS.MoveNext
LOOP
rs.close
set rs=nothing
id=id
total = 1
cod=""
For i = 1 to total
Arraybareta = Split(id, ".")
Randomize()
sorteio = Rnd() * UBound(Arraybareta)
sorteio = CInt(sorteio)
cod=cod&Arraybarreta(Cint(sorteio))
Next
sql="select * from tabela where id="& cod &""
set rs=conn.execute(sql)
response.write rs("item")
rs.close
%>
você pode fazer q ao clicar abra uma janela resgate os valores do banner por querystring incremente o bd e então redirecione para a pagina especifica....
eu usei esse uma vez <%
'criando a conexão
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mappath("fotos.mdb")
'conta o total de registros
ComandoSQL = "SELECT COUNT(id) AS total FROM eventos" Set bd = Conexao.Execute(ComandoSQL)
'faz a escolha de um numero aleatorio
randomize()
peso = Int(bd("total") *Rnd) + 1
bareta=bd("total")
'seleciona o registro aleatorio
ComandoSQL = "SELECT top "&peso&" * FROM eventos" Set bd = Conexao.Execute(ComandoSQL)
bd.Move peso - 1
'imprime na tela o registro escolhido
Response.Write bd("evento")%><br><%
'fecha a conexão
Conexao.Close
Set Conexao = Nothing
Set bd = Nothing
'mostra o numero escolhido
Response.Write peso
%>|||<%
'mostra o total de registros
Response.Write bareta
%> esta no tópico de funções
esse codigo compara a data atual data = date
com uma data pega do bd do seu voto que é verificado pelo ip
SQLx = "SELECT horario as thora,MAX(datavoto) as tdata FROM tvoto WHERE ip = '"&ip&"' "
tdata = rsx("tdata")
se a data for a mesma:
if trim(data) = trim(tdata) then
verifica as horas:
if (hora < thora(q veio do bd) + rsadm("tempoespera")(rsadmin deve ser outro select de outra tabela que contem o tempo entre um voto e outro) then
se for menor mostra os resultados e se for maior conta um clique:
else
faz a função
end if
tenta fazer um if.. sim=1 não=0 o checkbox, acredito q ao estar marcado quem muda é o checked e não o valor <input type="checkbox" name="checa" onClick="atualiza(this.value);" checked >
nunca trabalhei dessa forma...então axo que é isso