PluGuiN

quinta-feira, 17 de abril de 2008

teste

testetestetestetestetestetestetestetestetestetestetestetestetesteteste
testetestetestetestetestetestetestetestetestetestetesteteste
testetestetestetestetestetestetestetestetestetestetestetestetesteteste
testetestetestetestetestetestetestetestetestetestetestetesteteste
testetestetestetestetestetestetestetestetestetestetestetestetesteteste
testetestetestetestetestetestetestetestetestetestetesteteste

Assinar: Postagens (Atom)

Place the following at to top of your page: <% dim url, then ) if sendersemail url="http://www.aspalliance.com/steven.swafford/" message url="Request.QueryString(" len(url)="0" len(request.form( senderemail, if ))> 0 Then Dim objMail,FriendEmail sBody = "The Page at " & URL & " has been recommend by " & Request.Form("SendersEmail") & vbCrLf & " -- Message -- " & vbcrlf & Request.Form("Message") I=0 Do While True FriendEmail = Request.Form("FriendEmail" & I) If Len(FriendEmail) = 0 Then Exit Do Else Set objMail = CreateObject("CDONTS.NewMail") objMail.From = "sswafford@aspalliance.com" objMail.Subject = "Recommended Page" objMail.Importance=1 objMail.Body = sBody objMail.To = FriendEmail objMail.Send() End If I=I+1 Loop Set objMail = Nothing Response.write "

Thank you for spreading the word." Response.write "

a href=""" & URL & """>Return to " & URL & "" Else End If %> The form to provide input is as follows: The form submits to itself, feel free to change that if you wish.

quinta-feira, 17 de abril de 2008

teste

Nossas Camisas