 |
<%
IF Request.Form("maillist")="add" THEN
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "prodraw"
list = "SELECT * FROM maillist "
list = list & " WHERE email = '" & Request.Form("email") & "'"
Set RS = Conn.Execute(list)
IF RS.EOF THEN
sql = "Insert into maillist ( email ) Values ( '" & Request.Form("email") & "')"
Set RS = conn.Execute( sql )
Response.Write "Thanks, your e-mail is already inserted into our database.
When this site has something new,
You'll receive an e-mail from us.
The e-mail you have submited is: " & Request.Form("email") & " "
else
Response.Write "Sorry, your e-mail is already inserted into our database.
Please don't submit twice, thanks.
When this site has something new,
You'll receive an e-mail from us.
The e-mail you have submited is: " & Request.Form("email") & " "
END IF
Conn.Close
ELSE
END IF
%> <%
IF Request.Form("maillist")="del" THEN
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "prodraw"
list = "SELECT * FROM maillist "
list = list & " WHERE email = '" & Request.Form("email") & "'"
Set RS = Conn.Execute(list)
IF RS.EOF THEN
Response.Write "Sorry, the e-mail you provided is not in our database.
Please make sure your e-mail address,
And enter again, thanks.
The e-mail you have submited is: " & Request.Form("email") & " "
else
del()
END IF
Conn.Close
ELSE
Sub del()
sql = "Delete From maillist WHERE email='"+Request.Form("email")+"'"
Set RS = conn.Execute(sql)
Response.Write "Thanks, your e-mail is already removed from our database.
But, Are you sure you want to do that?
You may lost some free stuff from us.
The e-mail you have removed is: " & Request.Form("email") & " "
End Sub
END IF
%> <%
IF Request.Form("maillist")="recommend" THEN
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "prodraw"
list = "SELECT * FROM maillist "
list = list & " WHERE email = '" & Request.Form("email1") & "'"
Set RS = Conn.Execute(list)
IF RS.EOF THEN
add()
END IF
list = "SELECT * FROM maillist "
list = list & " WHERE email = '" & Request.Form("email2") & "'"
Set RS1 = Conn.Execute(list)
IF RS1.EOF THEN
add2()
END IF
Conn.Close
Sub add()
sql = "Insert into maillist ( email ) Values ( '" & Request.Form("email1") & "')"
Set RS = conn.Execute( sql )
End Sub
Sub add2()
sql = "Insert into maillist ( email ) Values ( '" & Request.Form("email2") & "')"
Set RS1 = conn.Execute( sql )
End Sub
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.To = Request.Form("email2")
mail.Cc = Request.Form("email1")
mail.From = "webmaster@prodraw.net"
mail.Subject = "Hello " & Request.Form("name2") & ", " & Request.Form("name1") & " want you check out this site."
Body = "Greeting " & Request.Form("name2") & "," & vbcrlf & vbcrlf _
& "Today " & Request.Form("name1") & " has visit ProDraw's web site and feel great with it." & vbcrlf _
& "If you have time, please take a look at ProDraw's web site." & vbcrlf _
& "The ProDraw's web site URL is: http://www.prodraw.net" & vbcrlf & vbcrlf _
& "Below are some information about ProDraw Graphics." & vbcrlf & vbcrlf _
& "ProDraw Cartoon Clips Library, http://www.prodraw.net/cartoon" & vbcrlf _
& "It's the best resource to prettify your web pages," & vbcrlf _
& "documentation or even send it to your friend via e-mail." & vbcrlf _
& "Here you can find cartoon clips, including animals," & vbcrlf _
& "constellations, hexapods, hydrobios and so on," & vbcrlf _
& "in total thirteen table of contents." & vbcrlf & vbcrlf _
& "ProDraw Graphics Gallery, http://www.prodraw.net/gallery" & vbcrlf _
& "Images here all made by 3D software to construct the" & vbcrlf _
& "3D natural world. These are the biggest images in the gallery." & vbcrlf _
& "They include sunsets, oceans, icebergs and darkened worlds." & vbcrlf _
& "If you like them, you may place them on your Window desktop," & vbcrlf _
& "and change every day just for fun." & vbcrlf & vbcrlf _
& "The other contents include Animated GIFs, 3D Buttons and" & vbcrlf _
& "Tool Downloads. Be sure to visit this cool site often." & vbcrlf _
& "By the way, your e-mail is already in ProDraw's database." & vbcrlf _
& "If you want to remove it, please goto the below URL:" & vbcrlf _
& "http://www.prodraw.net/send.asp" & vbcrlf & vbcrlf _
& "Have a nice day." & vbcrlf & vbcrlf _
& "ProDraw Graphics" & vbcrlf _
& "http://www.prodraw.net" & vbcrlf
mail.Body = Body
mail.Send
Response.Write "Thanks " & Request.Form("name1") & ", we'll send a message to " & Request.Form("name2") & " soon.
By the way, both of your e-mail has insert to our database.
Next time when this site have something new.
Both of you will receive an e-mail from us. "
END IF
%> ------ Subscribe to ProDraw Graphics's free news letter ------
please enter your e-mail at below
------ Unsubscribe your news letter ------
please enter your e-mail at below
------ Please recommend this site to your friend ------
Just fill out the form below
| Remember to bookmark ProDraw's website and visit often for more
free graphics resources. You can simply click
here to bookmark us (IE only), or press Ctrl
+ D. |
|
|
