<%@ Language=VBScript %> <%option explicit%> <%sub start%> Garuda HRM: Book Meeting
<< home

Providing people with opportunities

Contact Us

Log in
<% if not thanks then%> <%else %> <%end if%>

Book free screen-to-screen demonstration
If you wish to have more thorough and detailed knowledge about Garuda tools and concepts, we offer you a free on-line demonstration on your own computer. Just fill in the form below and we will contact you to arrange a net-meeting. Due to time-zone differences, we will contact you next office day at the latest.

Note: To be able to make the arrangements we need your phone#, state and email. None of the information will be passed on - see our privacy policy below. <%if len(sterror)>0 then%>
<%=sterror%>

<%end if%>

"" then%> color="brown" <%end if%>>Name

"" then%> color="brown" <%end if%>>E-mail address

"" then%> color="brown" <%end if%>>Country-code + phone#

"" then%> color="brown" <%end if%>>Company Name

"" then%> color="brown" <%end if%>> What time (local) 
will be most convenient for you?

 
Thank you for your request for net-meeting demonstration of the Garuda HRM&D tools. You will be contacted by one of consultants latest next office day.
 

ONLINE DEMONSTRATION
How can Garuda Tools help you in your business? We offer you a FREE online presentation of one or more Garuda Tools....

Book Netmeeting >>

IN THIS SECTION
Garuda Partnership
License
Book Free Netmeeting
Contact us

OUR PRIVACY POLICY
We respect your privacy, and we know that you're too busy for unwanted e-mails.

So rest assured that e-mail addresses and other information you provide through this site will never be sold, rented, or shared with any third parties.
Garuda Research Institute, Voldbjergvej 16a, 8240 Risskov, Denmark info@garudahr.com
Phone: +45 87 46 86 00 CVR 1082113

<% end sub %> <% sub getvalue sttime = request.form("mtime") stemail = request.form("email") stcompany = request.form("company") stname = Request.form("name") stphone = request.form("phone") end sub%> <% function CheckValue dim bo dim errorlist bo=true if len(stname)<3 then sterror=sterror & "
Please write your full name." cname="error" bo=false end if if len(stemail)>6 then errorlist="" if new_validateEmail(stemail, errorList) then sterror=sterror & "
This email address is not correct." cemail="error" bo=false end if else sterror=sterror & "
This email address is not correct." cemail="error" bo=false end if if len(stcompany)<2 then sterror=sterror & "
Please write your company name." ccompany="error" bo=false end if if len(stphone)<8 then sterror=sterror & "
Please write your phone number incl country code." cphone="error" bo=false end if if len(sttime)<3 then sterror=sterror & "
Please write a convenient time for the meeting." ctime="error" bo=false end if CheckValue=bo end function sub send_premail() dim txtbody, txtcbody dim hpic1,pic1 dim ml dim bo dim html dim stt,st2 dim style,css dim bool,bool2 dim subject, from pic1="logo.gif" hpic1="C:\Inetpub\New garudahr\aspunits\logo.gif" getemail 2, txtbody, subject, from txtbody=memo_change(txtbody,"[#name]", stname) txtbody=memo_change(txtbody,"[#email]", stemail) txtbody=memo_change(txtbody,"[#company]", stcompany) txtbody=memo_change(txtbody,"[#phone]", stphone) txtbody=memo_change(txtbody,"[#mtime]", sttime) txtbody=memo_change(txtbody,"[#mstate]", "") txtbody=memo_change(txtbody,"[#mcountry]", "") if len(toollink)>1 then txtbody=memo_change(txtbody,"[#toollink]", "The tool is " & toollink & ".") else txtbody=memo_change(txtbody,"[#toollink]", "") end if Set ml = CreateObject("CDONTS.NewMail") 'Prep the NewMail object 'Response.end ml.From = from ml.Subject = subject ml.BodyFormat =0 ml.MailFormat =0 ml.To=mailmaster ml.Body = txtbody ml.Cc = "" ml.AttachURL hpic1, pic1 'Send the copy mail 'Response.End ml.Send 'Clean Up Set ml = Nothing end sub dim UrlAction,sAction,MailMaster dim sttime,stphone,stemail,stname,stcompany dim ctime,cphone,cemail,cname,ccompany dim sterror,thanks dim toollink,nwin,item thanks=false MailMaster="support@garudahr.com" UrlAction="garuda_book-net.htm" toollink="" For Each item In Request.QueryString("tool") nwin=nwin+1 toollink=item next if len(toollink)>1 then urlaction=urlaction & "?tool=" & toollink end if sttime="" stphone="" stemail="" stname="" stcompany="" ctime="" cname="" cphone="" cemail="" ccompany="" sterror="" sAction=Request.Form("action") if sAction="" then call start else call getvalue if not checkvalue then call start else thanks=true call start call send_premail end if end if %>