Tip en ven - paramtre for exact side?

Har denne funktion som tipper en ven.

Function sendEmail(fctUsrMail,fctRmtUsrMail)
Set Jmail = Server.Createobject("JMAIL.SPEEDMAILER")
Jmail.Sendmail strUsrMail,strRmtUsrMail,"Prøv at se denne webside","Du har fået anbefalet denne side af " & fctUsrMail & "," & vbCrlf & "http://www.undervisning.nu/" & vbCrlf & vbCrlf & "Brugeren der har sendt dig denne email stammer fra IP nr.: " & Request.Servervariables("REMOTE_ADDR"),"smtp.cliche.dk"
End Function

Hvilken parametre skal jeg smide med for at få linket i adressefeltet istedetfor den faste adresse jeg har nu?

dvs at uanset hvor "tip en ven" blir sat ind, kan man tippe en ven med det exacte link..