<% @ Language = "vbscript" %>
<%
Set mail = server. CreateObject ("cdonts. newmail ")
Mail. subject = "Congratulations, you registered successfully with the wind dance. Thank you for your participation! "
Mail. to = mailid mail. from = "song@intels.net"
Mail. body = "this is the initial password sent to you by dancing with the wind" & vbcrlf
& Href = 'mailto: mailid = "user@intels.net"> mailid = "user@intels.net"
Address = "address"
Set conn = server. CreateObject ("adodb. connection ")
Conn. Open "dsn", "uid", "pwd"
Set rec = conn. Execute ("select count (*) from membertable ")
Id = cint (rec. fields (0) + 1
R = rnd * 50
Response. Write r & "<br>"
For I = 0 to 20
If cint (r)> 0 and cint (r) <26 then str = str + chr (97 + cint (r ))
R = rnd * 100
Next
Response. Write str
Pwd = left (str, 2)
Pwd = pwd & id
Pwd = pwd & right (str, 2)
Pwd = pwd & second (time)
%>
<Br>
<%
Set mail = server. CreateObject ("cdonts. newmail ")
Mail. subject = "Greetings! "
Mail. to = mailid
Mail. from = "song@intels.net"
Mail. body = "this is the initial password sent to you by dancing with the wind" & vbcrlf & "you can change it anytime" & vbcrlf &
Pwd & vbcrlf & "Thanks again for dancing with the wind! "
Mail. send
%>
[1]