Jump to content


Então

Member Since 25/08/2006
Offline Last Active 27/11/2006, 10:42
-----

Posts I've Made

In Topic: Funciona No Ie

04/09/2006, 23:39

Usa isso abaixo que funciona

'para direciona para a mesma janela
windows.location=url

'para direcionar para um frame
nomedoframe.location=url

In Topic: Valor Da 1º Fatura Proporcional Ao Dia Vencimento Escolhido!

04/09/2006, 23:24

Bom cara ai vai uma esquema que fiz para resolver esse problema, tem coisas que, derrepente, você ter que adaptar ao seu modo de usar, mas o básico é isso ai.


até a próxima....


<%

'Dia que o Cliente escolheu para pagar
DiaEscolhaCliente = 10

' Supondo que seja dia 04/09/2006
DiaHoje = Day(now()) 

'Verifica quantos dias tem no mês corrente
UltimoDiadoMes = DateAdd( "d", -1, DateSerial( Year(now()) , Month(now()) ,  1))

'Verifica se o dia que o cliente escolhe, existe para o Mês
if DiaEscolhaCliente > day(UltimoDiadoMes) then DiaEscolhaCliente = day(UltimoDiadoMes)

'Adiciona um mês para Cobrança
MesCobranca = DateAdd( "m", -1, DateSerial( Year(now()) , Month(now()) ,  DiaEscolhaCliente ))

'Soma os dias proporcionais
DiasProporcioanais = (Day(UltimoDiadoMes)-day(now())) + DiaEscolhaCliente


Response.Write "<br>Último dia do Mês = "& Day(UltimoDiadoMes)
Response.Write "<br>Dia Escolhido pelo Cliente = "& DiaEscolhaCliente
Response.Write "<br>Dias proporcionais= "& DiasProporcioanais
Response.Write "<br>Data da Cobrança = "&  MesCobranca
	
%>
 

In Topic: Como Fazer Uma Session?

30/08/2006, 23:12

vc pode fazer assim:
tudo uma só pagina:
Só m desculpa não comentar linha por linha, é por que não estou com tempo sobrando.




<% 

if request("emailpara")<>"" then
	session("nomede")=request("nomede")
	session("emailde")=request("emailde")

	if session("enviaremail")<>""then session("enviaremail") = session("enviaremail") & ", "
	
	if request("mais")="on" then
		session("enviaremail") = session("enviaremail") & request("nomepara") & " <"&request("emailpara")&">"
	else
		session("enviaremail") = session("enviaremail") & request("nomepara") & " <"&request("emailpara")&">"
	
		Set objmail = Server.CreateObject("CDONTS.NewMail") 
		objmail.from = ""&request("nomede")& "  <"&request("emailde")&">"
		objmail.to = session("enviaremail")
		objmail.subject = "ASSUNTO"
		objMail.BodyFormat = 0
		objMail.MailFormat = 0
		objmail.body = "SEU TEXTO"
		objmail.send
		
		response.write "Email(s) enviado(s) com sucesso!!"
		session.abandon
	end if
end if

%>


<FORM METHOD=POST ACTION="?">
Nome de: <input type="text" name="nomede" value="<%=session("nomede")%>" ><br>
Email de: <input type="text" name="emailde" value="<%=session("emailde")%>" ><br>
Nome para: <input type="text" name="nomepara" value="" ><br>
Email para: <input type="text" name="emailpara" value=""><br>
<INPUT TYPE="checkbox" NAME="mais" checked> Enviar +<br>
<INPUT TYPE="submit">
</FORM>

In Topic: Autenticação De Usuário

30/08/2006, 22:21

MAs só porque vc vai usar windows, não quer dizer que tenha que usar ASP, pode muito bem utilizar PHP no windows.

In Topic: Erro No Insert

30/08/2006, 22:18

Tenta assim, é só um exemplo, ai vc pode modificar como achar melhor


CAD1.ASP
<FORM METHOD=POST ACTION="cad2.asp">
<INPUT TYPE="text" NAME="cad1_t1">
<BR>
<INPUT TYPE="text" NAME="cad1_t2">
<BR><INPUT TYPE="submit">
</FORM>


CAD2.ASP

<%
session("cad1_t1")=request("cad1_t1")
session("cad1_t2")=request("cad1_t2")
%>

<FORM METHOD=POST ACTION="cad3.asp">

<INPUT TYPE="text" NAME="cad2_t1" value="">
<INPUT TYPE="text" NAME="cad2_t2" value="">
<INPUT TYPE="text" NAME="cad2_t3" value="">
<INPUT TYPE="submit">

</FORM>


CAD3.ASP

<%
session("cad2_t1")=request("cad2_t1")
session("cad2_t2")=request("cad2_t2")
session("cad2_t3")=request("cad2_t3")

'Agora vc tem tudo em session.
Response.write session("cad1_t1")
Response.write session("cad1_t2")
Response.write session("cad2_t1")
Response.write session("cad2_t2")
Response.write session("cad2_t3")

'Pode criar seu INSERT com os session acima.
%>

IPB Skin By Virteq