- <html><body>
- <%language=VBscript%>
- <%
- Dim outputmail
- Dim finfor
-
- Public Sub Traitmail(varmail)
- finfor = 0
- outputmail = lcase(Mid((varmail),1,1))
- For i = 2 To Len(varmail)
- If finfor = 0 Then
- If (Mid(varmail,i,1)) = "-" Then
- outputmail = outputmail & Mid(varmail, (i+1), 1)
- Elseif Mid((varmail),i,1) = " " Then
- finfor = 1
- End If
- Else
- outputmail = lcase(outputmail & Mid((varmail), i, 1))
- End If
- Next
- outputmail = outputmail & "@domaine.com"
- Response.Write "<a href=mailto:" & outputmail & ">" & varmail & </a>"
- End Sub
-
- Traitmail("Jean-Pierre Tremblay")
- %>
- </body></html>
-
<html><body>
<%language=VBscript%>
<%
Dim outputmail
Dim finfor
Public Sub Traitmail(varmail)
finfor = 0
outputmail = lcase(Mid((varmail),1,1))
For i = 2 To Len(varmail)
If finfor = 0 Then
If (Mid(varmail,i,1)) = "-" Then
outputmail = outputmail & Mid(varmail, (i+1), 1)
Elseif Mid((varmail),i,1) = " " Then
finfor = 1
End If
Else
outputmail = lcase(outputmail & Mid((varmail), i, 1))
End If
Next
outputmail = outputmail & "@domaine.com"
Response.Write "<a href=mailto:" & outputmail & ">" & varmail & </a>"
End Sub
Traitmail("Jean-Pierre Tremblay")
%>
</body></html>