<%@ language="VBScript"%> Guest Book <% ' Log requests to the wiz_hits.log ' set strHome = Request.ServerVariables("APPL_PHYSICAL_PATH") if len(strHome) > 5 then dim strLogfilename strLogfilename = strHome + "_private\wiz_hits.log" dim objFileFSO set objFileFSO = CreateObject("Scripting.FileSystemObject") dim objFileTS if objFileFSO.FileExists(strLogfilename) then set objFileTS = objFileFSO.OpenTextFile(strLogfilename, 8) else set objFileTS = objFileFSO.CreateTextFile(strLogfilename) end if objFileTS.WriteLine "---------------------------------------------------------------------" SubmitDate = cstr(FormatDateTime(Now,1)&" @ "&FormatDateTime(Now,3)) objFileTS.WriteLine "New Request Entry: " & SubmitDate set Name = Request("Name") objFileTS.WriteLine "Name: " & Name if len(Name) < 1 then Name = "No Name Provided" end if set Title = Request("Title") objFileTS.WriteLine "Title: " & Title if len(Title) < 1 then Title = "No Title Provided" end if set eMail = Request("eMail") objFileTS.WriteLine "eMail: " & eMail if len(eMail) < 1 then eMail = "No eMail Provided" end if set Company = Request("Company") objFileTS.WriteLine "Company: " & Company if len(Company) < 1 then Company = "No Company Provided" end if set Address1 = Request("Address1") objFileTS.WriteLine "Address Line 1: " & Address1 if len(Address1) < 1 then Address1 = " " end if set Address2 = Request("Address2") objFileTS.WriteLine "Address Line 2: " & Address2 if len(Address2) < 1 then Address2 = " " end if set City = Request("City") objFileTS.WriteLine "City: " & City if len(City) < 1 then City = "No City Provided" end if set State = Request("State") objFileTS.WriteLine "State/Prov: " & State if len(State) < 1 then State = "No State Provided" end if set Country = Request("Country") objFileTS.WriteLine "Country: " & Country if len(Country) < 1 then Country = "No Country Provided" end if set Zip = Request("Zip") objFileTS.WriteLine "ZIP/PC: " & Zip if len(Zip) < 1 then Zip = "No ZIP/PC Provided" end if set Phone = Request("Phone") objFileTS.WriteLine "Telephone: " & Phone if len(Phone) < 1 then Phone = "No Phone Provided" end if set Fax = Request("Fax") objFileTS.WriteLine "Fax : " & Fax if len(Fax) < 1 then Fax = "No Fax Provided" end if set Found_By = Request("Found_By") objFileTS.WriteLine "Found Site By: " & Found_By set Job_Function = Request("Job_Function") objFileTS.WriteLine "Job Function: " & Job_Function set Group_Function = Request("Group_Function") objFileTS.WriteLine "Group Function: " & Group_Function set MCAD_System = Request("MCAD_System") objFileTS.WriteLine "MCAD System: " & MCAD_System set ANAL_System = Request("ANAL_System") objFileTS.WriteLine "Analysis System: " & ANAL_System set Mail_List = Request("Mail_List") if isempty(Mail_List) then Mail_List = "No" end if objFileTS.WriteLine "Mail List ?: " & Mail_List set Comments = Request("Comments") if len(Comments) < 1 then Comments = "None" end if objFileTS.WriteLine "Comments: " & Comments objFileTS.Close end if %>
Thermal Wizard Feedback

<%= Request("Name") %>,

Thanks for your interest and comments on MAYA's Thermal Wizard Web Site. You may also be interested in some of the following articles on our web site:

<% ' Submit eMail to MAYA for response ' eMailTo = "wizard@mayahtt.com" eMailSubject = "Thermal Wizard Feedback: " & Name & " - " & Company eMailText = "" &chr(13) _ & "" &chr(13) _ & "" &chr(13) _ & "" &chr(13) _ & "" &chr(13) _ & "

Thermal Wizard Feed Back

" &chr(13) _ & "" &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & " " &chr(13) _ & "
Background Information
Date"&SubmitDate&"
Name"&Name&"
Title"&Title&"
eMail"&eMail&"
Company"&Company&"
Address Line 1"&Address1&"
Address Line 2"&Address2&"
City"&City&"
State/Province"&State&"
Country"&Country&"
ZIP/Postal Code"&Zip&"
Telephone"&Phone&"
Fax"&Fax&"
How did you find the MAYA Web Site ?"&Found_By&"
Describe your job function."&Job_Function&"
Describe your groups function."&Group_Function&"
Your primary MCAD system ?"&MCAD_System&"
Your primary Thermal Analysis system ?"&ANAL_System&"
Add my name to the MAYA mail list ?"&Mail_List&"
Additional Comments or Questions
"&Comments&"
" &chr(13) _ & "" &chr(13) _ & "" Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "mail.webhosting.com" Mailer.FromName = Name Mailer.FromAddress = eMail Mailer.AddRecipient "Wizard Feedback", "wizard@mayahtt.com" Mailer.Subject = eMailSubject Mailer.BodyText = eMailText Mailer.Priority = 1 Mailer.ContentType = "text/html" Mailer.SMTPLog = Request.ServerVariables("APPL_PHYSICAL_PATH") & "_private/smtp.log" if not Mailer.SendMail then Response.Write "Send Message failed, contact MAYA at info@mayahtt.com
" 'Response.Write "This component expires: " & Mailer.Expires & "Response is" & Mailer.Response & "

" else Response.Write " Message sent successfully to MAYA.

" end if %>