Due Aiuti urgenti

[mrbronx]

Ragazzi ho bisogno di due aiuti,
1) Accedendo a questa pagina login "prova" password "prova" potete provare ad inviare e-mail. alla pagina di conferma, cioè grazie.asp, vorrei il resoconto dei due campi inseriti. Per farvi vedere bene il codice utilizzato, potete scaricare da qui lo script

2) come vedete i crediti sono 4000, come faccio a fare in modo che selezionando una ricarica, l' importo viene scalato dal credito?. Ps, ho utilizzato questo script preso da questa pagina: http://freeasp.html.it/script/view_script.asp?id=246, pratiamente inserirò io l' utente con i crediti, che verranno scalati dopo aver selezionato una ricarica (vedi aiuto 1) ho eliminato il campo C.A.P. ed ho inserito "crediti"

Vi prego aiutatemi

[Roby_72]

1)

With iMsg
   Set .Configuration = iConf
   .To = invioA
   .From = Request.Form("email")
   .Sender = invioDa
   .Subject = "Contatto dal dominio " & nomeDominio
   .TextBody = "Questi i dati inseriti nel modulo presente alla pagina " & modulo & " da utente con indirizzo IP " & indirizzoIp & "  browser e sistema operativo " & browserSistemaOperativo  & vbCrLf & corpoMessaggio & ""
   .Send
End With
session("corpoMessaggio") = corpoMessaggio   
%>

In grazie.asp

<%response.write(session("corpoMessaggio"))%>

2) Devi fare una query di UPDATE passando il credito da scalare. Una cosa del tipo

credito = 100 'Da scalare
sql = "UPDATE tabella SET credito = credito - "& credito &" WHERE id = "& id_utente (che dovresti avere)

Roby

[mrbronx]

ok, il primo problema l ho risolto, per quanto riguarda il secondo potresti aiutarmi un pò di più? grazie

[mrbronx]

Nessuno può aiutarmi un po più sul punto 2? non sono molto pratico..... grazie

[Roby_72]

Cosa ti serve?
Come riconosci di quale utente si tratta?
Come e dove memorizzi il credito da scalare in modo da poter fare la sottrazione?

Roby

[mrbronx]

questo ve lo volevo chiedere io veramente... non potresti aiutarmi?

[optime]

l'utente a cui togliere il credito è l'utente che si è loggato, l'importo da togliere è l'importo richiesto. i dati ce li hai. il database pure. la stringa di aggiornamento pure pure. non vedo difficolta'.

[mrbronx]

in quale pagina devo inserire quel codice?

[optime]

nella pagina dove vai quando premi convalida.... avrai un minimo di architettura delle pagine, no?

[mrbronx]

Dovrebbe essere questo il codice..

sql = "UPDATE tbl_authors SET crediti = crediti - "& importo &" WHERE id = "& name

dove tbl_authors è il nome della tabella, crediti è il nome dei crediti nella tabella ed importo è il nome dell' input nel form...... name è il nome che hanno gli username nella tabella...

ora ho inserito il codice nella pagina di conclusione "grazie.asp" e nella pagina che contiene il codice cdosys ma non va... pagina ricarica.. premendo convalida, si va alla pagina grazie.asp attraverso questa pagina.

<%

DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo

	'* voce da modificare con il proprio indirizzo email
	
invioA =  "angelstars@hotmail.it"

	'* voce da modificare con un indirizzo email che funga da mittente: 
	'* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
	'* dato che cdosys supporta questa notifica
		
invioDa =  "ricarica@xxx.com"

'------------fine modifiche necessarie------------------

nomeDominio 				= Request.ServerVariables("HTTP_HOST")
indirizzoIp					= Request.ServerVariables("REMOTE_ADDR") 
modulo						= Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo		= Request.ServerVariables("HTTP_USER_AGENT")

	'*rilevo i campi del form
	
FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
   IF NOT Request.Form(numeroCampi) = "" THEN
      corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
   END IF
NEXT

	'* creo gli oggetti cdosys sul server e li gestisco
	
DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it" 
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
   Set .Configuration = iConf
   .To = invioA
   .From = Request.Form("email")
   .Sender = invioDa
   .Subject = "Ricarica Online - "& nomeDominio
   .TextBody = "Questi i dati inseriti nel modulo presente alla pagina " & modulo & " da utente con indirizzo IP " & indirizzoIp & "  browser e sistema operativo " & browserSistemaOperativo  & vbCrLf & corpoMessaggio & ""
   .Send
End With
session("corpoMessaggio") = corpoMessaggio
%> 
<script>
document.location.replace('grazie.asp');
</script>

dove va inserito il codice?