 |
  adventure.mountainzone.com |
" & vbCrLf End If ' Show our information retrieval form ShowReferralForm strFromName, strFromEmail, strToName, strToEmail, strStoryURL, strBody End If ' End of page logic... subs and functions follow! %> <% ' Subroutines and Functions that encapsulate some functionality ' and make the above code easier to write... and read. ' A quick email syntax checker. It's not perfect, ' but it's quick and easy and will catch most of ' the bad addresses than people type in. Function IsValidEmail(strEmail) Dim bIsValid bIsValid = True If Len(strEmail) < 5 Then bIsValid = False Else If Instr(1, strEmail, " ") <> 0 Then bIsValid = False Else If InStr(1, strEmail, "@", 1) < 2 Then bIsValid = False Else If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then bIsValid = False End If End If End If End If IsValidEmail = bIsValid End Function ' I made this a function just to get it out of the ' logic and make it easier to read. It just shows the ' form that asks for the input Sub ShowReferralForm(strFromName, strFromEmail, strToName, strToEmail, strStoryURL, strBody) ' I use script_name so users can rename this script witout having to change the code. %> <% strFromName = Request.Cookies ("txtFromName") %> <% strFromEmail = Request.Cookies ("txtFromEmail") %>
| ||
|
|
<%
'The Message to be sent:
'Subject: < %= strSubject % >
'Body: < %= strBody % >
End Sub ' This just shows our thank you message... probably didn't need to ' be a function, but since I made the form one I figured I'd do this ' for consistency. Sub ShowThanksMsg() %>
| ||
|
|
<%
End Sub
%>