<% 'Response.Buffer = "FALSE" Function Chop50(str) IF (Len(str) > 50) THEN str = LEFT(str,50) End If Chop50 = str End Function Function Chop2000(str) IF (Len(str) > 2000) THEN str = LEFT(str,2000) End If Chop2000 = str End Function FUNCTION stripQuotes (strx) IF NOT IsNull(strx) THEN strx = REPLACE( strx, "'", "" ) stripQuotes = REPLACE( strx, Chr(34), "" ) END IF END FUNCTION 'get variables loc_recipient = stripQuotes ( chop50 (TRIM ( Request.QueryString ( "recipient" ) ))) loc_text = stripQuotes ( chop50 (TRIM ( Request.QueryString ( "text" ) ))) 'end get variables %> Contact Us
<% IF (loc_text = "") THEN 'if level 1 %> <% ELSE %> <% END IF %>
Please Contact Us!Contact <%=loc_text%>
Your name:
Your E-mail address:
Your telephone number:
Message:
contact Dr. Trombka | contact Dr. Weitzman | contact Susan | contact Mallory
contact Erika | contact Ashley | contact Chelsea

A smile says it all...

Jerard Trombka, DDS
Cosmetic Dentistry • Family Dentistry
Implants • Teeth Whitening • General Dentistry

 

Home| Emergency | Location | Staff | Services | Policy | Gallery | Contact Us

3879 Pioneer Trail •  S. Lake Tahoe, CA 96150-8805
530-542-3371 •• & ••775-588-2949

© 2005, Jerard Trombka, DDS, e-mail: alpinedental@hotmail.com