<%
Dim FileObject, OutStream, InStream
'Set up the email notification info here to save speed up form submissition
'Set DafTools = Server.CreateObject("daftools.daftools.1")
'MailServer = "ns.cosentini.com"
'ReturnPath = "nabrams@cosentini.com"
REM Subject = "Add Link Request"
'Subject = "Add Link Request"
'MailTo = "nabrams@cosentini.com"
Set objMail = CreateObject("CDONTS.Newmail")
objMail.From = "nabrams@barbneal.com"
objMail.Subject = "Add Link Request"
objMail.To = "nabrams@cosentini.com"
Action = UCase(Request("Action"))
msg1=""
msg2=""
topmsg = "Use this form to request a link to be added to my links pages."
DisplayForm = 1 'Show the form flag
' Do Some form validation
If Action = "SUBMIT" Then
If Request("vendor") = "" Then msg1=" - This field is required"
If Request("vurl") = "" Then msg2=" - This field is required"
If msg1="" AND msg2="" Then 'The form is valid and no missing fields
Data = "Request for link by visitor " & session("visitorcount") & chr(10) & "Name: " & Request("name") & chr(10) & "Email: " & Request("email") & chr(10) & "Description: " & Request("vendor") & chr(10) & "URL: " & Request("vurl")
objMail.Body = "Request for link by visitor " & session("visitorcount") & chr(10) & "Name: " & Request("name") & chr(10) & "Email: " & Request("email") & chr(10) & "Description: " & Request("vendor") & chr(10) & "URL: " & Request("vurl")
'Status = DafTools.SendMail(MailServer,ReturnPath,Subject,MailTo,Data)
objMail.Send
Set objMail = Nothing
'if status <> "OK" then
'Error, message was not sent
'topmsg = "There was an error sending the request, please send Email to: nabrams@cosentini.com"
'else
'Success, message was sent
topmsg = "Thanks! An Email message has been sent with your request. Your link will be added to my links pages at a later date."
'End if
DisplayForm = 0 'Don't show the form flag
End if
End If
%>
Add a Link - Request Form
