<%@ Language=VBScript %>
<%
Option Explicit
'On Error Resume Next
Const strTo="krc@krc-net.com"
Const strTitle="お問い合わせ"
Dim Rs,Cn,strSQL
Dim strMsg,strMsgName,strMsgFurigana,strMsgEmail,strAdd,flag
Dim objMail,strBody
Set Cn=Server.CreateObject("ADODB.Connection")
Set Rs=Server.CreateObject("ADODB.Recordset")
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\WDB\zip.mdb"
If Request.Form("zip")="true" Then
If Request.Form("zip3")="" Or IsNumeric(Request.Form("zip3"))=false Or len(Request.Form("zip3"))<>3 Then strMsg="郵便番号は半角数字で***-****の7桁で"
If Request.Form("zip4")="" Or IsNumeric(Request.Form("zip4"))=false Or len(Request.Form("zip4"))<>4 Then strMsg="郵便番号は半角数字で***-****の7桁で"
If strMsg="" Then
Rs.Open "SELECT * FROM KEN_ALL WHERE フィールド3='" & Request.Form("zip3") & Request.Form("zip4") & "'",Cn,1,3
If Rs.EOF Then
strAdd="その郵便番号に該当する住所はありませんでした"
Else
strAdd=strAdd & Rs("フィールド7") & Rs("フィールド8")
If Rs("フィールド9")<>"以下に掲載がない場合" Then
If InStr(1,Rs("フィールド9"),"（")=0 Then
strAdd=strAdd & Rs("フィールド9")
Else
strAdd=strAdd & left(Rs("フィールド9"),InStr(1,Rs("フィールド9"),"（")-1)
End If
End If
End If
End If
flag="true"
End If
If Request.Form<>"" And Request.Form("zip")<>"true" Then
If ChkEmail(Request("e_mail")) = false Then flag="true":strMsgEmail=" ←メールアドレスを正しくご記入ください。"
If Request.Form("name")="" Then flag="true":strMsgName=" ←お名前をご記入ください。"
If Request.Form("furigana")="" Then flag="true":strMsgFurigana=" ←ふりがなをご記入ください。"
End If
If Request.Form="" Or flag="true" Then
%>
株式会社 KRC
