A Publication of Qurtuba University, Pakistan                                                                                                                       ISSN #: 1819-6470



Send Us Your Feedback / Comments

  <% If Request("submit") <> "" Then dim errors(4) errored = false if request("name") = "" then errors(0) = "Please enter your name" errored = true end if if request("email") = "" then errors(1) = "Please enter your email address" errored = true end if if request("email") <> "" and not IsEmail(request("email")) then errors(1) = "Your email address appears to be invalid" errored = true end if if request("subject") = "" then errors(2) = "Please enter a subject" errored = true end if if request("message") = "" then errors(3) = "Please enter a message" errored = true end if if not errored then Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = mailHost message = replace(request("message"), VbCrLf, "
") message = clearUnSafeTags(message) subject = clearUnSafeTags(request("subject")) name = clearUnSafeTags(request("name")) email = clearUnSafeTags(request("email")) emailHtml = "

" emailHtml = emailHtml & "

The following submission was made on the " & date & " at " & time & "

" emailHtml = emailHtml & "" emailHtml = emailHtml & "" emailHtml = emailHtml & "" emailHtml = emailHtml & "" if request("rating") <> "" then emailHtml = emailHtml & "" end if emailHtml = emailHtml & "" emailHtml = emailHtml & "" emailHtml = emailHtml & "" emailHtml = emailHtml & "
Name" & name & "
Email" & email & "
Subject" & subject & "
Site Rating" & request("rating") & "
Message" & message & "

IP" & request.serverVariables("REMOTE_ADDR") & "
User Agent" & request.serverVariables("HTTP_USER_AGENT") & "
" emailHtml = emailHtml & "

Powered by CJ ASP Feedback Form V1.0

" Mail.From = email Mail.FromName = name Mail.AddAddress adminEmailAddress Mail.Subject = subject Mail.Body = emailHtml Mail.IsHTML = true success = false On Error Resume Next Mail.Send if Err <> 0 then errors(4) = Err.Description errored = true else success = true end if end if end if if success then thankYouMessage = Replace(thankYouMessage, "%name%", name) thankYouMessage = Replace(thankYouMessage, "%email%", email) thankYouMessage = Replace(thankYouMessage, "%subject%", subject) thankYouMessage = Replace(thankYouMessage, "%message%", message) response.write(thankYouMessage) else if errored then response.write("
") response.write(errorMessage) response.write("
    ") for i = lbound(errors) to ubound(errors) if errors(i) <> "" then response.write("
  • " & errors(i) & "
    • ") end if next response.write("
") response.write("
") end if %>
"> <% if showRating then %> <% end if %>
Name " size="25">
Email " size="25">
Subject " size="25">
Site Rating
Message
 
<% end if %>

 



Journal home

Peshawar Campus
K-1, Phase III, Hayatabad,
Peshawar,
N.W.F.P Pakistan
Tel:92-92-5812117, 5813322, 5825707
Fax: 92-91-5825837
D.I Khan Campus
Qurtuba University of Sciences & IT
Sheikh Yusuf Road
Dera Ismail Khan,
N.W.F.P Pakistan
Tel: 92-961-714007-8
Fax: 92-961-714008
All Rights Reserved -- Qurtuba University, Pakistan