Submit Shareware Freeware Software to
PdaApp Download Library
<%
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("Submit")<>""Then
If Request("ProgramName")<>""and Request("PadFile")<>""and Request("Email")<>""and Request("Catalog")<>""and Request("Requirements")<>""and Request("CompatibleDevices")<>""and Request("ColorDisplay")<>""and Request("Ram")<>""and(Request("ShareIt")<>""or Request("Regnow")<>""or Request("Esellerate")<>"")then
if IsValidEmail(Request("Email"))=true then
Items=arrTo.Items
For i=0 to arrTo.Count-1
Mail.AddAddress Items(i)
Next
Mail.From=request("Email")
Mail.FromName=request("Email")
Mail.Subject=Request("PadFile")
Mail.Body="ProgramName:"+Request("ProgramName")+chr(13)+chr(10)+chr(13)+chr(10)+"PadFile:"+Request("PadFile")+chr(13)+chr(10)+chr(13)+chr(10)+"E-mail:"+Request("Email")+chr(13)+chr(10)+chr(13)+chr(10)+"Catalog:"+Request("Catalog")+chr(13)+chr(10)+chr(13)+chr(10)+"Requirements:"+Request("Requirements")+chr(13)+chr(10)+chr(13)+chr(10)+"CompatibleDevices:"+Request("CompatibleDevices")+chr(13)+chr(10)+chr(13)+chr(10)+"ColorDisplay:"+Request("ColorDisplay")+chr(13)+chr(10)+chr(13)+chr(10)+"Ram:"+Request("Ram")+chr(13)+chr(10)+chr(13)+chr(10)+"ShareIt:"+Request("ShareIt")+chr(13)+chr(10)+chr(13)+chr(10)+"Regnow:"+Request("Regnow")+chr(13)+chr(10)+chr(13)+chr(10)+"Esellerate:"+Request("Esellerate")+chr(13)+chr(10)+chr(13)+chr(10)+"CustomVersion:"+Request("CustomVersion")+chr(13)+chr(10)+chr(13)+chr(10)+"Remark:"+Request("Remark")
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"submit@pdaapp.com","Submit 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.")
if IsValidEmail(Request("Email"))=false then
response.write(" ")
%>
Please enter your correct email.
<%
end if
response.write(" ")
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.")
if Request("ProgramName")=""then
response.write(" ")
%>
Please enter your Program Name.
<%
end if
if Request("PadFile")=""then
response.write(" ")
%>
Please enter your Pad File .
<%
end if
if Request("Email")=""then
response.write(" ")
%>
Please enter your Email .
<%
end if
if Request("Catalog")=""then
response.write(" ")
%>
Please select at least one Catalog.
<%
end if
if Request("Requirements")=""then
response.write(" ")
%>
Please enter the Requirements of your program.
<%
end if
if Request("CompatibleDevices")=""then
response.write(" ")
%>
Please enter the Compatible Devices of your program.
<%
end if
if Request("ColorDisplay")=""then
response.write(" ")
%>
Please enter the Color Display of your program.
<%
end if
if Request("Ram")=""then
response.write(" ")
%>
Please enter How much ram deos your program use.
<%
end if
if Request("ShareIt")=""and Request("Regnow")=""and Request("Esellerate")=""then
response.write(" ")
%>
Please enter at least one of Regnow, ShareIt , Esellerate
Program ID.
<%
end if
response.write(" ")
response.write("Please revise your entry below and resubmit. Thank you. ")
End if
Else
%>
Please fill these information of your program to submit
to PdaApp.
<%
End If
Session("Count")=Session("Count")+1
If Request("Address")<>""Then arrTo.Add Session("Count"),CStr(Request("Address"))
%>
<%If ErrStr<>""and ErrStr<>"success"Then%>
Your program hasn't been submitted due to the following
error: <%=ErrStr%>
<%Else%>
<%If ErrStr="success"Then%>
Your program has been submitted to PdaApp, Thank you
for your submission, please allow up to 48 hours for your
software to appear on our site. Promote your software
through our website automatically! Let's be your best
reseller.And please confirm the request from us registering
as affiliate for your products on Regnow, ShareIt, Esellerate.
Software
Submit