Ciao a tutti!!!
Ho un problema con cdonts, in brevo illustro:
ho creato una pagina di registrazione dove i dati vanno inseritinel db e la password generata automaticamente dovrebbe inviarla in automatico, il problema sta che se inserisco il listato di cdo nella stessa pagina della registrazione non mi invia nulla, mentre se lo metto nella pagina che segue, mi invia tutto alla perfezione solo che i dati non li inserisce nel db.
Nella pagina della registrazione inserisco un If per il pulsante invia...posto il codice
<%
If Request("invia") <> "" Then
Set link = CreateObject("CDONTS.Newmail")
link.From = "info@bcode.it"
link.To = request.form("email")
link.Subject = "Iscrizione al sito bcode.it"
link.Body = "Ciao " & Request("nome") & "," & _
Chr(13) & Chr(10) & _
"hai ricevuto questa mail perchè " & _
"hai richiesto l'iscrizione al nostro sito." & _
Chr(13) & Chr(10) & _
"La password che ti è stata assegnata è:" & Chr(13) & Chr(10) & _
Request("password") & _
Chr(13) & Chr(10) & Chr(13) & Chr(10) & _
"Saluti Luccariello Marco ----web master bcode.it"
link.Send
Set link = Nothing
End If
%>
Rigrazio tutti....per l'attenzione MArco

Questo è il codice..
<%
' *** Edit Operations: declare variables

MM_editAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Request.QueryString
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) <> "") Then

MM_editConnection = MM_bcode_STRING
MM_editTable = "tab_utenti"
MM_editRedirectUrl = "mail.asp"
MM_fieldsStr = "userid|value|nome|value|cognome|value|email|value|password|value"
MM_columnsStr = "username|',none,''|nome|',none,''|cognome|',none,''|email|',none,''|password|',none,''"

' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")

' set the form values
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))
Next

' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If

End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

If (CStr(Request("MM_insert")) <> "") Then

' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
FormVal = MM_fields(i+1)
MM_typeArray = Split(MM_columns(i+1),",")
Delim = MM_typeArray(0)
If (Delim = "none") Then Delim = ""
AltVal = MM_typeArray(1)
If (AltVal = "none") Then AltVal = ""
EmptyVal = MM_typeArray(2)
If (EmptyVal = "none") Then EmptyVal = ""
If (FormVal = "") Then
FormVal = EmptyVal
Else
If (AltVal <> "") Then
FormVal = AltVal
ElseIf (Delim = "'") Then ' escape quotes
FormVal = "'" & Replace(FormVal,"'","''") & "'"
Else
FormVal = Delim + FormVal + Delim
End If
End If
If (i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End if
MM_tableValues = MM_tableValues & MM_columns(i)
MM_dbValues = MM_dbValues & FormVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If

End If
%>

il tutto è stato compilato con ULTRADEV
l'azione del form è
<form ACTION="<%=MM_editAction%>" METHOD="POST" name="form1">
Qui sta l'intoppo, ho metto la pagina da eseguere e quindi il codice CDONTS....oppure l'inserimento....

Grazie...Marco