| |
|
<%Else%>
<%
confirmation = "Hello" & Chr(32) & name & "," & vbcrlf & vbcrlf &_
"Your AV Center Equipment Request has been received and will be reviewed by a representative." & vbcrlf &_
"You will be contacted for clarification purposes only." & vbcrlf &_
"Below this line is a copy of the information submitted on " & Date & vbcrlf &_
"--------------------------------------------------------------------" & vbcrlf & vbcrlf &_
"INFORMATION ABOUT YOU: " & vbcrlf &_
"*Name: " & Chr(32) & name & vbcrlf &_
"*E-mail address: " & Chr(32) & email & vbcrlf &_
"*Phone: " & Chr(32) & phone & vbcrlf &_
"*Department: " & Chr(32) & department & vbcrlf & vbcrlf & vbcrlf &_
"INFORMATION ABOUT THE REQUESTED EQUIPMENT: " & vbcrlf &_
Request.Form("quantity_audio_cassette_recorder") & Chr(32) & Chr(32) & "Audio Cassette Recorder" & vbcrlf &_
Request.Form("quantity_CD_player") & Chr(32) & Chr(32) & "CD Player" & vbcrlf &_
Request.Form("quantity_extension_cord") & Chr(32) & Chr(32) & "Extension Cord" & vbcrlf &_
Request.Form("quantity_video_projector") & Chr(32) & Chr(32) & "Video Projector" & vbcrlf &_
Request.Form("quantity_data_projector") & Chr(32) & Chr(32) & "Data Projector" & vbcrlf &_
Request.Form("quantity_flipchart") & Chr(32) & Chr(32) & "Flipchart" & vbcrlf &_
Request.Form("quantity_monitor") & Chr(32) & Chr(32) & "Monitor" & vbcrlf & vbcrlf &_
Request.Form("quantity_laptop") & Chr(32) & Chr(32) & "Laptop" & vbcrlf &_
Request.Form("quantity_overhead_projector") & Chr(32) & Chr(32) & "Overhead Projector" & vbcrlf &_
Request.Form("quantity_projection_stand") & Chr(32) & Chr(32) & "Projection Stand" & vbcrlf &_
Request.Form("quantity_Document_camera") & Chr(32) & Chr(32) & "Document Camera" & vbcrlf &_
Request.Form("quantity_screen") & Chr(32) & Chr(32) & "Screen" & vbcrlf &_
Request.Form("quantity_slide_projector") & Chr(32) & Chr(32) & "Slide Projector" & vbcrlf &_
Request.Form("quantity_video_cassette_recorder") & Chr(32) & Chr(32) & "Video Cassette Recorder" & vbcrlf & vbcrlf &_
"Repair > Describe Problems: " & vbcrlf &_
"~" & Request.Form("Repair") & vbcrlf & vbcrlf & vbcrlf &_
"OBTAINING THE EQUIPMENT: " & vbcrlf &_
"Pickup/Delivery: " & Chr(32) & Request.Form("how_obtained") & vbcrlf &_
"To what address?: " & Chr(32) & Request.Form("delivery_address") & vbcrlf & vbcrlf & vbcrlf &_
"DATE EQUIPMENT IS NEEDED: " & vbcrlf &_
"Date: " & Chr(32) & Request.Form("date_requested_month") & "/" & Request.Form("date_requested_day") & "/" & Request.Form("date_requested_year") & vbcrlf &_
"-------------------------------------------------------------------" & vbcrlf & vbcrlf
'** Check how many addresses the user entered:
dim pos
pos = instr(email, "@")
if (pos > 0) then
pos = instr(pos + 1, email, "@")
if (pos > 0) then
'** User try entering too many address (spammer)
'** Either use first address, or set flag to
'** not send email (or send email of IP to admin)
end if
else
'** Invalid email address...no @ symbol
'** display error or just ignore.
end if
Set confirmemail=Server.CreateObject("CDO.Message")
confirmemail.From="hickman@kutztown.edu"
confirmemail.To=email
'** Blind copy so student doesn't know
confirmemail.Bcc="hickman@kutztown.edu,landrock@kutztown.edu,manmille@kutztown.edu"
' confirmemail.Bcc="steuer@kutztown.edu"
confirmemail.Subject="Library Equipment Reservation"
confirmemail.TextBody=confirmation
confirmemail.Send
set confirmemail=Nothing
Response.Write " Your request for equipment has been submitted, Thank you!" & vbcrlf
End If
%>
