%@ Page ContentType="text/html" Language="VB" Explicit="True" %> <%@ OutputCache CacheProfile="MyCache" %> <%@ import namespace="system.data" %> <%@ import namespace="system.data.sqlclient" %> <% dim stErrMsg as string = "" dim sErrorClass = " error" if FncRF("mode") = "確認" then stErrMsg = DataCheck("") else end if dim sErrorST as string = "
" dim sErrorED as string = "
" dim name_sei as String = FncRF("name_sei") dim name_mei as String = FncRF("name_mei") dim gender as String = FncRF("gender") dim company as String = FncRF("company") dim industry as String = FncRF("industry") dim title as String = FncRF("title") dim zip as String = FncRF("zip") dim state as String = FncRF("state") dim country as String = FncRF("country") dim addr1 as String = FncRF("addr1") dim addr2 as String = FncRF("addr2") dim tel as String = FncRF("tel") dim fax as String = FncRF("fax") dim email as String = FncRF("email") dim email_v as String = FncRF("email_v") dim website as String = FncRF("website") dim msg as String = FncRF("msg") dim name_sei_ERR_CLS as String = DataCheckClass("name_sei") dim name_mei_ERR_CLS as String = DataCheckClass("name_mei") dim gender_ERR_CLS as String = DataCheckClass("gender") dim company_ERR_CLS as String = DataCheckClass("company") dim industry_ERR_CLS as String = DataCheckClass("industry") dim title_ERR_CLS as String = DataCheckClass("title") dim zip_ERR_CLS as String = DataCheckClass("zip") dim state_ERR_CLS as String = DataCheckClass("state") dim country_ERR_CLS as String = DataCheckClass("country") dim addr1_ERR_CLS as String = DataCheckClass("addr1") dim addr2_ERR_CLS as String = DataCheckClass("addr2") dim tel_ERR_CLS as String = DataCheckClass("tel") dim fax_ERR_CLS as String = DataCheckClass("fax") dim email_ERR_CLS as String = DataCheckClass("email") dim email_v_ERR_CLS as String = DataCheckClass("email_v") dim website_ERR_CLS as String = DataCheckClass("website") dim msg_ERR_CLS as String = DataCheckClass("msg") dim name_sei_ERR_MSG as String = DataCheck("name_sei").replace("@ST@",sErrorST).replace("@ED@",sErrorED) dim name_mei_ERR_MSG as String = DataCheck("name_mei").replace("@ST@",sErrorST).replace("@ED@",sErrorED) dim gender_ERR_MSG as String = DataCheck("gender").replace("@ST@",sErrorST).replace("@ED@",sErrorED) dim company_ERR_MSG as String = DataCheck("company").replace("@ST@",sErrorST).replace("@ED@",sErrorED) dim industry_ERR_MSG as String = DataCheck("industry").replace("@ST@",sErrorST).replace("@ED@",sErrorED) dim title_ERR_MSG as String = DataCheck("title").replace("@ST@",sErrorST).replace("@ED@",sErrorED) dim zip_ERR_MSG as String = DataCheck("zip").replace("@ST@",sErrorST).replace("@ED@",sErrorED) dim state_ERR_MSG as String = DataCheck("state").replace("@ST@",sErrorST).replace("@ED@",sErrorED) dim country_ERR_MSG as String = DataCheck("country").replace("@ST@",sErrorST).replace("@ED@",sErrorED) dim addr1_ERR_MSG as String = DataCheck("addr1").replace("@ST@",sErrorST).replace("@ED@",sErrorED) dim addr2_ERR_MSG as String = DataCheck("addr2").replace("@ST@",sErrorST).replace("@ED@",sErrorED) dim tel_ERR_MSG as String = DataCheck("tel").replace("@ST@",sErrorST).replace("@ED@",sErrorED) dim fax_ERR_MSG as String = DataCheck("fax").replace("@ST@",sErrorST).replace("@ED@",sErrorED) dim email_ERR_MSG as String = DataCheck("email").replace("@ST@",sErrorST).replace("@ED@",sErrorED) dim email_v_ERR_MSG as String = DataCheck("email_v").replace("@ST@",sErrorST).replace("@ED@",sErrorED) dim website_ERR_MSG as String = DataCheck("website").replace("@ST@",sErrorST).replace("@ED@",sErrorED) dim msg_ERR_MSG as String = DataCheck("msg").replace("@ST@",sErrorST).replace("@ED@",sErrorED) dim stSQL as string dim srd1 as sqlclient.sqldatareader %>Please use the following contact form for business inquiries.