Messaggio in grassetto e numero registrazione.

[ubbicom]

Ciao a tutti, Vi sottopongo i seguenti quesiti:

1) come faccio a far arrivare in grassetto ed in html questo codice:

messaggio = messaggio & VBcrlf & "email = " & nome & "
"
...........
objMail.Body = messaggio
    objMail.importance = 2
	objMail.MailFormat = 0
    objMail.BodyFormat = 0
    objMail.Send

ho provato come vedete inserendo e ma non va...

2) dopo la registrazione ad un sito spedisco un email di conferma con il riepilogo dei dati del nuovo utente che i registrano in un dbase access; vorrei anche fargli sapere il suo numero di iscrizione che non è altro l'ID progressivo del suddetto dbase, è possibile?

Grazie

[Luis33]

messaggio = messaggio & VBcrlf & "E-mail = " & email & "
"

[ubbicom]

Grazie, provo subito !
e per il secondo problema????

[weppos]

Esegui una query prima di inviare la mail ed inserisci l'ID nel corpo della mail.

[ubbicom]

Originariamente inviato da weppos
Esegui una query prima di inviare la mail ed inserisci l'ID nel corpo della mail.

Grazie, scusa questo è il code che utilizzo... dove metto la query:?

<% Option Explicit %>

<%
'leggi db 
Set objConn=Server.CreateObject("ADODB.Connection") 
strConn = Application("dbconn")
objConn.Open strConn
strsql = "SELECT email FROM tbl_login WHERE email='" &request("email")& "'" 
Set objRs = Server.CreateObject("ADODB.Recordset") 
objRs.Open strsql, strconn, 3, 3 

if not objRs.bof and not objRs.eof then 

Response.write "attenzione utente già registrato con questa e-mail "

else 

'costruisci password
password = genera_pwd()

'vendemmia la form
nome = Request.Form("nome")
cognome = Request.Form("cognome")
email = Request.Form("email")
data_ricevuto = Date()

'metti dentro alla database
Set objConn = Server.CreateObject("ADODB.Connection")
strConn = Application("dbconn")
objConn.Open strConn

strsql = "INSERT INTO tbl_login (nome, cognome, login1, password1, data_ricevuto, email)" 
strsql = strsql & " Values('" 
strsql = strsql & nome & "','" 
strsql = strsql & cognome & "','" 
strsql = strsql & nome & "','" 
strsql = strsql & password & "',#" 
strsql = strsql & data_ricevuto & "#,'" 
strsql = strsql & email & "')" 

if err.number<>0 then response.write(err.description) 

objconn.execute(strsql) 
objConn.close
set objConn = Nothing

Response.write "molte grazie..."
 
call manda_posta(nome,password,email) 
end if 

Function genera_pwd()
...
end Function

Sub manda_posta(nome,password,email)


Dim objMail, messaggio

    messaggio = messaggio & VBcrlf & "Nome = " & nome & "
"
    messaggio = messaggio & VBcrlf & "Cognome = " & cognome & "
"
    messaggio = messaggio & VBcrlf & "E-mail = " & email & "
"
   	
    Set objMail = Server.CreateObject("CDONTS.NewMail")
.............
    Set objMail = Nothing
end sub
%>

[weppos]

Grazie, scusa questo è il code che utilizzo... dove metto la query:?

Prima del codice di invio email.

[ubbicom]

Originariamente inviato da weppos
Prima del codice di invio email.

Grazie scrivo così:

Dim ID, strsql1
strsql1 = "SELECT * FROM tbl_login WHERE ID=" &ID 

Dim objMail, messaggio

messaggio = messaggio & VBcrlf & "Numero = " & ID & "
"

la query non va in errore, ma nell'email il campo tessera (ID) rimane vuoto.... :master:

[weppos]

Ma la query dove la fai? dove esegui?
Cioè, l'ID lo hai già in una variabile?

Quel codice che hai appena postato non ha senso.

[ubbicom]

Originariamente inviato da weppos
Ma la query dove la fai? dove esegui?
Cioè, l'ID lo hai già in una variabile?

Quel codice che hai appena postato non ha senso.

Supponevo che non avesse senso...

Quello che vorrei ottenere è di inviare via email il numero di iscrizione di un utente appena registrato, che non è altro l'ID progressivo della tbl_login di un dbase access... :master:

[weppos]

Originariamente inviato da ubbicom
Supponevo che non avesse senso...

Quello che vorrei ottenere è di inviare via email il numero di iscrizione di un utente appena registrato, che non è altro l'ID progressivo della tbl_login di un dbase access... :master:

Ok, ma dovrai ben richiamarlo questo ID o lo hai già in qualche variabile in quella pagina?