|
California Licensed Drugstore. Our pharmacy is in business for over 23 years. Our website services our clients for more than 10 years. Compare with big drugstores and save!  
drugsdepot.com Online since 1996.
Valley Medical Pharmacy
630 Main Street
Brawley, CA 92227
760-344-6303/FAX 760-344-6321
drugsdepot@yahoo.com |
|
 |
| |
|
| |
| |
|
|
|
Thanks for referring drugsdepot.com
Your Friends at drugsdepot.com thank you recommending our website!
<% End Sub %>
<% Sub IntroPage() %>
Tell-A-Friend Script
<% End Sub %>
<% Sub DoRecords() %>
<%
'Write to a database if so desired
'dim strconn
'dim conn
'dim rs
'set conn = server.createobject("adodb.connection")
'conn.open strconn
'set rs = server.createobject("adodb.recordset")
'rs.open "PutYourTableNameHere", conn, 3, 3
'rs.addnew
'rs("name") = request("name")
'rs("emailaddress") = request("emailaddress")
'rs("phonenumber") = request("phonenumber")
'rs("comments") = request("comments")
'rs("DateSubmitted") = date()
'rs.update
'rs.close
'set rs = nothing
'conn.close
'set conn = nothing
strBody = "Your Friend has recommended you check out Drugsdepot.com: " & request("YourEmailaddress") & chr(10) & chr(10)
strBody = strBody & "Friends Comments: " & chr(10) & request("comments") & chr(10) & chr(10) & chr(10)
strBody = strBody & "This message sent to you from an associate as a service of Drugsdepot.com."
strBody = strBody & "For live ASP+, ASP demos, downloads, source code, forums and more! http://www.drugsdepot.com"
'Send a copy via an email
set objNewMail = server.CreateObject("CDONTS.NewMail")
objNewMail.From = request("YourEmailAddress")
objNewMail.To = request("FriendsEmailAddress")
objNewMail.CC = request("YourEmailAddress")
objNewMail.BCC = "webmaster@somedomain.com"
objNewMail.Subject = request("Subject")
objNewMail.Body = strBody
objNewMail.Send
set objNewMail = Nothing
response.redirect "tellfriend.asp?strMessage=Thanks"
End Sub
%>
<%
If request("btnSubmit") = "" and request("strMessage") = "" Then
call IntroPage()
End If
If request("btnSubmit") = "Send the Info!" Then
call DoRecords()
End If
if request("strMessage") <> "" Then
call Thanks()
End If
%>
|
|
|
|
|
|
Information on this site is provided for informational purposes only and is not meant to substitute for the advice provided by your own physician or other medical professional. You should not use the information contained herein for diagnosing or treating a health problem or disease, or prescribing any medication. You should read carefully all correct product packaging and follow the instructions. If you have or suspect that you have a medical problem, promptly contact your health care provider. Information and statements regarding dietary supplements and many other health conditions on this site have not been evaluated by the Food and Drug Administration and are not intended to diagnose, treat, cure, or prevent any disease and may be for commercial. Image shown for reference only. Actual item
you recieve may differ from shown.
|
|
|
|
|
