for each item in Request.Form
If Instr(item,".") < 1 Then
Execute "m_"&item &"="""& Trim(Replace(Request.Form(item),"'","")) &""""
End If
next
If Instr(item,".") < 1 Then
Execute "m_"&item &"="""& Trim(Replace(Request.Form(item),"'","")) &""""
End If
next