ASP e creazione PDF

[silgmaris]

Ma scusa, se nella tua tabella degli sconti inserisci un campo di controllo (ad es. SI o NO) e nella ricerca random gli escludi tutti i NO.
Dopo l'estrazione dell'ID prendi lo stesso e scrivi su quell'ID un bel NO nel campo di controllo.

[Partisan75]

Grazie silgmaris ma funziona già tutto bene così e non voglio modificare nulla... rieschierei di creare qualche errore...

quello che voglio fare non mi sembra impossibile per cui vorrei continuare con la mia idea..
grazie ancora e buona serata ;-)

[Partisan75]

finalmente ci siamo, sono riuscito a tirare fuori il primo codice promozionale e metterlo nel pdf ma non riesco però poi a cancellare il codice utilizzato. Dove sbaglio?

'---Recupero il codice sconto dal database e lo stampo a video
SQL = " SELECT TOP 1 * FROM promo_pdf WHERE categoria = 'bronzo' ORDER BY ID ASC"
Set RS = Conn.Execute (SQL)

pdf.sety 245
pdf.setx 132
pdf.SetFont"Courier","B",14
pdf.MultiCell 110,6, RS("valore"),0,"J"

if RS("Valore") <> 0 then
SQL = "DELETE FROM promo_pdf WHERE valore = '"& Valore &"'"
end if



questo è l'errore che mi da (quel codice è il codice sconto che mi ha stampato):

Microsoft VBScript runtime (0x800A000D)
Type mismatch: '[string: "R8421U44321T9UX"]'
/italiano/admin/fattura/ringraziamento.asp, line 129

grazie mille in anricipo

[Roby_72]

la riga 129?

Roby

[Partisan75]

Già, mi sono dimenticato...

dovrebbe essere questa

pdf.MultiCell 110,6, RS("valore"),0,"J"

perche infatti con RS(valore) mi richiama il codice sconto ossia R8421U44321T9UX
ma poi ... nulla di fatto

[Roby_72]

Dovrebbe non va bene... Devi TROVARE la riga 129 perché secondo me non è quella.

Roby

[Partisan75]

ok, stasera ti risponderò, grazie.

...ma sono quasi sicuro che sia quella!
buon lavoro

[Partisan75]

Ciao Roby allora la riga n. 130 è questa:

if RS("Valore") <> 0 then

ti riporto tutto il codice:


'---Recupero il codice sconto dal database e lo stampo a video
SQL = " SELECT TOP 1 * FROM promo_pdf WHERE categoria = 'bronzo' ORDER BY ID ASC"
Set RS = Conn.Execute (SQL)


pdf.sety 245
pdf.setx 132
pdf.SetFont"Courier","B",14
pdf.MultiCell 110,6, RS("valore"),0,"J"

pdf.sety 275
pdf.setx 30
pdf.SetFont "Arial","",13
pdf.MultiCell 70,6,"Da incassare entro il:",0,"J"

pdf.sety 280
pdf.setx 35
pdf.SetFont"Arial","B",12
pdf.MultiCell 70,6,"30 Giugno 2010",0,"J"

if RS("Valore") <> 0 then
SQL = "DELETE FROM promo_pdf WHERE valore = '"& Valore &"'"
end if

__________________________________________________ _

e poi perche se metto questo codice, per qualsiasi valore di "IMPORTI" mi stampa sempre ringraziamento_bronzo?


<%
If Importi >= 3000 Then
%>
"><font color="#CC3300">Stampa Ringraziamento Oro</font>
<%
Elseif Importi >= 1000 And Importi <= 2999 Then
%>
"><font color="#CC3300">Stampa Ringraziamento Argento</font>
<%
Elseif Importi >= 0 And Importi <= 999 Then
%>
"><font color="#CC3300">Stampa Ringraziamento Bronzo</font>
<%
End If
%>

ciao e grazie ancora.

[Partisan75]

per quest'ultimo problema probabilmente sbaglio perche non riesco a fargli capire per quale ID cliente deve cercare il campo Importi (che sarebbero la soma degli importi spesi)
infatti

<%
'---Salvo alcune informazioni dell'utente che ha eseguito l'ordine
SQL = " SELECT * FROM Utenti WHERE UserID = ????"
Set RS = Conn.Execute(SQL)
Importi = RS("Importi")
%>

dalla tabella ordini mi posso prendere l'userID

SQL = " SELECT * FROM Ordini WHERE ID = " & QSID
Set RS = Conn.Execute(SQL)
trac = RS("UserID")

perdonami per la confuzione ma non ci sto capendo piu niente...
Ovviamene considera che le due cose, cioè pdf e questa sono due pagine diverse .

[Partisan75]

Dopo un po di tempo e tentativi vari sono riuscito a completare le modifiche, è tutto corretto solo questioni di apici e virgolette.
Grazie a tutti ;-)