10 marzo 2005 alle 18:16:08 Bella roba, che comunity. Dal modulo mercatino che avevo messo disponibile e che poi è stato sospeso per problemi è stato rimosso ogni riferimento del creatore iniziale. Non è perniente bello. Non ho parole, è un vero schifo.
10 marzo 2005 alle 19:28:25 Scusa se mi permetto di dissentire dal tuo "schifo", hai trovato qualche cosa che assomigli a ciò che avevi inviato e, non firmato? Il modulo che ho messo in downloads è totalmente diverso da ciò che hai inviato tu, e ricordati che, in parte, quel modulo è in home page del mio portale da almeno 3 mesi. Comunque, non accetto assolutamente insinuazioni del genere, se hai problemi scrivimi in privato. P.S. Ed aggiungo anche che, non sono abituato a "rubare" il lavoro di altri frequentatori del forum di aspnuke, tant'è che, l'amico Rosmarc, ha postato nel forum del codice che ho utilizzato nel modulo, ed è stato citato, come è giusto che sia, come coautore.
Okkio a come ti esprimi!!!! DJ
--------------- A lavare la testa ai somari, ci si rimette l'acqua e il sapone!
11 marzo 2005 alle 18:21:55 Bhe, è semplice, primo perchè il codice che ho inserito non ha nulla a che vedere con quello che hai inviato tu, secondo perchè il codice che hai inviato non era firmato. Ma se ti può giovare, posso inserire anche te, per l'idea iniziale. Ciauzz Dj
--------------- A lavare la testa ai somari, ci si rimette l'acqua e il sapone!
11 marzo 2005 alle 18:30:53 Tagliamo la testa al toro, chiedo uvenia...
Questa porzione di codice può essere utile. Aggiunge un contatto alla rubrica di outlook. Ovviamente è ancora in fase sperimentale. I campi del DB fanno riferimento al DB modificato da me.
<!-- #include file="includes/includes-inc.asp" --> <% Function FormattaData(data) ' il formato è YYYYMMDDThhmmssZ ' ricordarsi che le date devono essere secondo GTM data = CDate(data) FormattaData = Year(data) & Raddoppia(Month(data)) & Raddoppia(Day(data)) FormattaData = FormattaData & "T" & Raddoppia(Hour(data)) & Raddoppia(Minute(data)) FormattaData = FormattaData & Raddoppia(Second(data)) & "Z" End Function
' raddoppia una cifra Function Raddoppia(valore) if Len(valore) = 1 then valore = "0" & valore end if Raddoppia = valore End Function
' Function create vCard ' IN : iID (int) ' OUT : vCard Sub FunctionAddVcardOutlook(iID) Dim oCn, oRs, rSQL, nameVcard
Set oCn = DBConnexion(DB_MAIN)
If iID <> "" and iID <> 0 Then rSQL = "SELECT * FROM directory, categories WHERE dCategory=cID AND dID=" & iID & " AND dValid=1 AND cType=" & CATEGORY_TYPE_DIRECTORY
Set oRs = DBRecordSet(oCn, rSQL) If Not oRs.EOF Then
' nome da dare al file nameVcard = "vCard-ID" & oRs("dID") Response.ContentType = "text/x-vcard" Response.AddHeader "content-disposition", "inline; filename=" & nameVcard & ".vcf;"""
Anna
Versione stampabile | Questa pagina è stata eseguita in 0,1328125 secondi.
MODULI AGGIUNTIVI
PLAGIO DEL MODULO MERCATINO IN HOMEPAGE
10 marzo 2005 alle 18:16:08 
