devi fare il replace degli apici ' con backslash-apice \'
e ti consiglio di delimitare il valore dell'href con le virgolette
codice:
strfotomedia = rs("fotomedia")
if isNull(strfotomedia) then strfotomedia=""
strfotomedia = Replace(strfotomedia,"'","\'")
Response.Write("
 VEDI FOTO PUBBLICATA ( " & rs("fotomedia") & " )")