<%
dim myPSQL
dim frs
dim flag
flag=false
if session("name")="" or session("pass")="" then
Response.Redirect("default.asp")
end if
private function SendMail(ByVal subject,ByVal from,ByVal towhich,ByVal body)
on error goto 0
dim host
host = "smtp.mycityeats.com"
Dim MyCDONTSMail
Dim HTML
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
MyCDONTSMail.From= from
MyCDONTSMail.To=towhich
MyCDONTSMail.Subject=subject
MyCDONTSMail.BodyFormat=0
MyCDONTSMail.MailFormat=0
MyCDONTSMail.Body=body
On Error Goto 0
MyCDONTSMail.Send
on error resume next
set MyCDONTSMail=nothing
exit function
Response.Write(err.description)
end function
Dim PI, EQUATOR_LAT_MILE
Private maxLat, minLat, maxLong, minLong
dim PQuery
PI = 3.14159265358979
EQUATOR_LAT_MILE = 69.172
Public Sub Calculate(ByVal Latitude, ByVal Longitude, ByVal Miles)
maxLat = Latitude + Miles / EQUATOR_LAT_MILE
minLat = Latitude - (maxLat - Latitude)
maxLong = Longitude + Miles / (Cos(minLat * PI / 180) * EQUATOR_LAT_MILE)
minLong = Longitude - (maxLong - Longitude)
End Sub
private function getRestaurants(distance)
if Request("email")<>"" and Request("zip")<>"" then
dim rs
PQuery = "Select Latitude,Longitude from ZipCodes where ZipCode='" & Request("zip") & "'"
set rs=Conn.execute(PQuery)
if not rs.eof then
Calculate rs(0),rs(1),distance
dim rsResult
dim Qr
Qr="Select distinct(ZipCode) from zipcodes where Latitude<=" & maxLat & " and Latitude>=" & minLat & " and Longitude<=" & maxLong & " and Longitude>=" & minLong & " "
set rsResult=Conn.execute(Qr)
myPSQL = myPSQL & " Zip in ( '" & rsResult(0) & "' "
rsResult.movenext
while not rsResult.eof
myPSQL = myPSQL & ",'" & rsResult(0) & "' "
rsResult.movenext
wend
myPSQL=myPSQL & ")"
else
myPSQL = myPSQL & "Zip in( '" & Request("zip") & "' )"
end if
SQL="select RestaurantID,Name from Restaurant where " & myPSQL & ""
myPSQL=""
flag=true
set frs=Conn.execute(SQL)
getRestaurants=frs.recordcount
else
exit function
end if
end function
dim records
records=1
dim tries
tries=1
while records < 10 and tries <= 20
records=getRestaurants(tries)
tries=tries+1
wend
'now send mails
dim msg
tries=0
if flag=true then
while not frs.eof and tries < 10
msg=msg & " "& frs(1) &" "
msg=msg & " "
frs.movenext
tries=tries+1
wend
end if
HTML = ""
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & "hiWelcome, mycityeats.com"
HTML = HTML & ""
HTML = HTML & ""
HTML=HTML & " Selected Restaurants for You By mycityeats.com "
HTML=HTML & msg
HTML = HTML & ""
HTML = HTML & ""
if Request("issubmit")="1" then
SendMail "Restaurants For You","nick@mycityeats.com","" & Request("email") & "",HTML
end if
%>