<%
Sent = ""
ID = Request.QueryString("ID")
flag = request.Form("flag")
caption = Request.Form("caption")
caption = UCase(caption)
name1 = Request.Form("name1")
comments = Request.Form("comments")
num_1 = Request.Form("num_1")
num_2 = Request.Form("num_2")
num_3 = Request.Form("num_3")
num = Request.Form("num_1") & "-" & Request.Form("num_2") & "-" & Request.Form("num_3")
Bad_Char1=InStr(ID,"'")
Bad_Char2=InStr(ID,"'")
Bad_Char3=InStr(ID,"'")
'8154767043 Has been blocked on GTP because of abuse by someone trying to call them over and over.
If Bad_Char1 <> 0 OR Bad_Char2 <> 0 OR Bad_Char3 then
response.Redirect("http://www.sitedudes.com")
End If
If flag = "1" then
error1 = "0"
if caption <> "J9WX" then
error80 = " Please enter the correct caption"
error1 = 1
end if
if name1 = "" then
error81 = " Please enter a name."
error1 = 1
end if
if comments = "" then
error82 = " Please enter a message"
error1 = 1
end if
if comments = "" then
error83 = " Please enter a message"
error1 = 1
end if
if num_1 = "" OR num_2 = "" OR num_3 = "" then
error84 = " Please enter a call back number"
error1 = 1
end if
If error1 = "0" then
comments = "Message From Your Website, From: " & name1 & " - " & num & ", " & comments & " ***REPLY TO SMS #, NOT THIS MSG."
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql="select * from [121_client] "
sql = sql & "WHERE ID = '" & ID & "'"
'Response.Write(sql & " ")
rs1.open sql, cn, adOpenStatic
If NOT rs1.EOF then
cancelled = rs1.fields("canceled")
End If
Set rs2 = Server.CreateObject("ADODB.Recordset")
sql="select * from [121_client_notes] "
sql = sql & "WHERE client_ID = '" & ID & "'"
'Response.Write(sql & " ")
rs2.open sql, cn, adOpenStatic
If NOT rs2.EOF then
sms_num_1 = rs2.fields("sms_num_1")
sms_num_2 = rs2.fields("sms_num_2")
sms_num_3 = rs2.fields("sms_num_3")
SMS = sms_num_1 & sms_num_2 & sms_num_3
End If
'Response.Write("
")
If cancelled = FALSE AND SMS <> "" then
comments = Replace(comments, " ", "+")
PostData = ""
Set HttpReq=Server.CreateObject("WinHttp.WinHttpRequest.5.1")
HttpReq.open "POST","http://208.66.3.122/sendsms.aspx?CellNumber="&SMS&"&MessageBody=" &comments& "&AccountKey=BKY174dd57"
HttpReq.send PostData
Response.Write("
Message Sent
")
Sent = "yes"
bodystr = bodystr & "Comment: " & comments
bodystr = bodystr & " SMS #: " & SMS
bodystr = bodystr & " ***REPLY TO SMS #, NOT THIS TEXT MSG"
'bodystr = bodystr & " URL: " & Request.ServerVariables("server_name")
set myemail = Server.CreateObject("Dynu.Email")
myemail.Host = "192.168.180.11"
myemail.From = "service@sitedudes.com"
myemail.Fromname = "SiteDudes.com - Text Now"
myemail.AddAddress "chad@sitedudes.com"
'myemail.addBcc "allmail@121ltd.com"
myemail.SetPriority 1
myemail.Subject = "SiteDudes.com: Text Now Sent"
myemail.Body = bodystr
myemail.isHTML = true
'myemail.IncludeErrorCode = true
'result = myemail.Send()
myemail.Reset
End If
End If
End If
%>
Text Now
<% If Sent <> "yes" then %>
<% End If %>