If
you can't find your questions from
Frequently
Asked Questions(FAQs) page,
please submit your questions to
Support Online
, we
will contact you in 24 hours.
If
you can't contact us from
Support Online , please
contact us via
e-mail.
<%
function IsValidEmail(email)
dim names,name,i,c
IsValidEmail=true
names=Split(email,"@")
if UBound(names)<>1 then
IsValidEmail=false
exit function
end if
for each name in names
if Len(name)<=0 then
IsValidEmail=false
exit function
end if
for i=1 to Len(name)
c=Lcase(Mid(name,i,1))
if InStr("abcdefghijklmnopqrstuvwxyz_-.",c)<=0 and not IsNumeric(c)then
IsValidEmail=false
exit function
end if
next
if Left(name,1)="."or Right(name,1)="."then
IsValidEmail=false
exit function
end if
next
if InStr(names(1),".")<=0 then
IsValidEmail=false
exit function
end if
i=Len(names(1))-InStrRev(names(1),".")
if i<>2 and i<>3 then
IsValidEmail=false
exit function
end if
if InStr(email,"..")>0 then
IsValidEmail=false
end if
end function
%>
<%
Set arrTo=Session("arrTo")
Mail.Host="mail.pdaapp.com"
If Request("SEND")<>""Then
If Request("FirstName")<>""and Request("LastName")<>""and Request("Subject")<>""and Request("Subject")<>"Selectone"and Request("Body")<>""then
if IsValidEmail(Request("Email"))=true then
Items=arrTo.Items
For i=0 to arrTo.Count-1
Mail.AddAddress Items(i)
Next
Mail.From="support@pdaapp.com"
Mail.FromName="PdaApp Support Online"
Mail.Subject=Request("Subject")
Mail.Body="Username:"+Request("FirstName")+" "+Request("LastName")+chr(13)+chr(10)+"E-mail:"+Request("Email")+chr(13)+chr(10)+"Country:"+Request("Country")+chr(13)+chr(10)+"Order Num:"+Request("ordernum")+chr(13)+chr(10)+"Subject:"+Request("Subject")+chr(13)+chr(10)+"Body:"+chr(13)+chr(10)+Request("Body")
ErrStr=""
If Request("Signature")<>""Then
Set CM=Server.CreateObject("Persits.CryptoManager")
Set Context=CM.OpenContext("",True)
Set Msg=Context.CreateMessage
CM.LogonUser"","Administrator","xxxxxxxx"
Set Store=CM.OpenStore("MY",True)
Set SignerCert=Store.Certificates("67D1 4E91 A7EF DDA8 490E BC7D 5621 CA1C")
Msg.SetSignerCert SignerCert
On Error Resume Next
Mail.SendSigned Msg
If Err<>0 Then
ErrStr=Err.Description
Else
arrTo.RemoveAll
ErrStr="success"
End If
On Error Goto 0
Else
On Error Resume Next
Mail.AddAddress"Support@pdaapp.com","PdaApp Support Online"
if not Mail.Send Then
ErrStr=Err.Description
Else
arrTo.RemoveAll
ErrStr="success"
End If
On Error Goto 0
End If
else
response.write("We found the following error marked as red in the data you just submitted.")
response.write(" ")
if IsValidEmail(Request("Email"))=false then
%>
Please enter your correct email.
<%
end if
response.write("Please revise your entry below and resubmit. Thank you. ")
end if
Else
response.write("We found the following error marked as red in the data you just submitted.")
response.write(" ")
if Request("FirstName")=""then
%>
Please enter your FirstName.
<%
end if
response.write(" ")
if Request("LastName")=""then
%>
Please enter your LastName .
<%
end if
response.write(" ")
if Request("subject")=""or Request("subject")="Selectone"then
%>
Please select a subject.
<%
end if
response.write(" ")
if Request("body")=""then
%>
Please enter your content.
<%
end if
response.write(" ")
response.write("Please revise your entry below and resubmit. Thank you. ")
End if
Else
%>
Please choose one Subject Below to begin the process
of creating a Support Ticket.
<%
End If
Session("Count")=Session("Count")+1
If Request("Address")<>""Then arrTo.Add Session("Count"),CStr(Request("Address"))
%>
<%If ErrStr<>""and ErrStr<>"success"Then%>
Message was not sent due to the following error: <%=ErrStr%>
<%Else%>
<%If ErrStr="success"Then%>
Message had been sent to PdaApp, we will soon contact
you.
<%End If%>
<%End If%>
<%If ErrStr<>"success"Then%>
Support Online