.asp")
Case "mk$rmsf" Server.Execute("/fw/realty/rlt_mod_search_form.asp")
End Select
End Sub
' take care of querystring and form parameter variables
Sub ReplaceQueryVars(sContent)
Do
P1=Instr(sContent,"[%")
If P1>0 Then
P2=Instr(P1,sContent,"%]")
If P2>0 Then
sVar=Mid(sContent,P1,P2-P1+2)
sKey=Mid(sVar,3,Len(sVar)-4)
sVal=Server.HTMLEncode(Request(sKey)&"")
sContent=Replace(sContent,sVar,sVal,1,-1,1)
Else
Exit Do
End If
Else
Exit Do
End If
Loop
End Sub
%>
Home - FlexScape, LLC
