相互開発㈱ Webショップ売りたい

<% 'メール送信元を指定します。 Const CstFrom = "info@sogok.co.jp" 'メール送信者を指定します。 Const CstFromName = "相互開発㈱ WEBショップ" 'メールサーバを指定します。 Const CstSv = "mail.sogok.co.jp" 'メールタイトルを指定します。 Const CstTitle = "相互開発㈱ WEBショップより確認メール" Dim ObjConn,ObjRS 'パラメータを取得します。 name = Request.Form("name") hurigana = Request.Form("hurigana") TEL = Request.Form("TEL") yubin = Request.Form("yubin") jyusyo = Request.Form("jyusyo") mail = Request.Form("mail") syokugyo = Request.Form("syokugyo") ensen = Request.Form("ensen") moyorieki = Request.Form("moyorieki") toho = Request.Form("toho") basu = Request.Form("basu") sikiti = Request.Form("sikiti") tatemono = Request.Form("tatemono") madori = Request.Form("madori") tyusyajyo = Request.Form("tyusyajyo") tikunen1 = Request.Form("tikunen1") tikunen2 = Request.Form("tikunen2") kakaku = Request.Form("kakaku") jiki = Request.Form("jiki") komento = Request.Form("komento") act = Request("act") 'デフォルトページを登録画面に設定します。 if act = "" then act = "ent" end if '登録確認画面でエラーチェックをします。 if act = "entconf" then flg_err = "" if name = "" then flg_err = "name" end if if hurigana = "" then flg_err = "hurigana" end if if TEL = "" then flg_err = "TEL" end if if mail = "" then flg_err = "mail" end if end if 'エラーがある場合はエラー表示画面に移動させます。 if flg_err <> "" then act = "err" end if '================================================= '-----　登録画面 '================================================= Sub Gamen_ent( ) %> 相互開発㈱ Webショップ売りたい


	ご売却の時期や価格など、お客様のご希望をご遠慮なくお聞かせください。市場動向や周辺の取引事例などを総合的に考慮し、弊社スタッフが適正価格をはじめ売却に関するさまざまなアドバイスをさせて頂きます。
	下記シートに必要事項をご記入の上、メールにてご連絡ください。折り返し弊社スタッフによりご連絡させて頂きます。
	お電話での直接のお問合せを頂いても結構です。お気軽にご連絡ください。
	ご登録頂いた内容は、お客様の意志に反して公開することは決してございません。
	お客様の個人情報につきましては、弊社「個人情報保護方針」に基づき適正な取扱いと保護・管理に努めます。
	媒介（委任）契約についての詳細はこちら

お名前	※
フリガナ	※
電話番号	※
メールアドレス	※
郵便番号
ご住所
ご職業
最寄駅	駅徒歩分バス分
物件の種類	敷地面積㎡建物床面積㎡
間取	駐車場
築年数	年
ご希望売却価格	万円
ご売却時期
コメント	＿

※は必須項目

<%%>

アクセス	<%%>
お名前	<%%>
フリガナ	<%%>
電話番号	<%%>
メールアドレス	<%%>
郵便番号	<%%>
ご住所	<%%>
ご職業	<%%>
最寄駅	<%%> <%%>駅徒歩<%%>分バス<%%>分
物件の種類	<%%> 土地面積<%%>㎡建物面積<%%>㎡
間取	<%%> 駐車場<%%>
築年数	<%%><%%>年
ご売却希望価格	<%%><%%>万円
ご売却時期	<%%>
コメント	<%%>

<%%> <%%> <%%> <% "" Then 'Basp21でメールを送信します。 Set ObjBasp = Server.CreateObject("basp21") rc = ObjBasp.SendMail(m_sv,m_to,m_from,m_title,m_naiyou2,"") End If End Sub '================================================= '-----　DBに接続 '================================================= Sub ConnDB() 'スクリプトと同じフォルダにあるAccessのdb1.mdbに接続します。 DBName="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & _ Server.Mappath("member.mdb") Set ObjConn = Server.CreateObject("ADODB.Connection") ObjConn.open DBName StrSQL = "select * from member" Set ObjRS = Server.CreateObject("ADODB.Recordset") ObjRS.Open StrSQL, ObjConn,3,3 End Sub '================================================= '-----　DBにデータを追加 '================================================= Sub UpdateDB() StrSQL = "insert into member (" StrSQL = StrSQL & " name, " StrSQL = StrSQL & " hurigana, " StrSQL = StrSQL & " TEL, " StrSQL = StrSQL & " yubin, " StrSQL = StrSQL & " jyusyo, " StrSQL = StrSQL & " syokugyo, " StrSQL = StrSQL & " ensen, " StrSQL = StrSQL & " moyorieki, " StrSQL = StrSQL & " toho, " StrSQL = StrSQL & " basu, " StrSQL = StrSQL & " sikiti, " StrSQL = StrSQL & " tatemono, " StrSQL = StrSQL & " madori, " StrSQL = StrSQL & " tyusyajyo, " StrSQL = StrSQL & " tikunen1, " StrSQL = StrSQL & " tikunen2, " StrSQL = StrSQL & " kakaku, " StrSQL = StrSQL & " jiki, " StrSQL = StrSQL & " komento, " StrSQL = StrSQL & " mail " StrSQL = StrSQL & ") values (" StrSQL = StrSQL & "'" & name & "'," StrSQL = StrSQL & "'" & hurigana & "'," StrSQL = StrSQL & "'" & TEL & "'," StrSQL = StrSQL & "'" & yubin & "'," StrSQL = StrSQL & "'" & jyusyo & "'," StrSQL = StrSQL & "'" & syokugyo & "'," StrSQL = StrSQL & "'" & ensen & "'," StrSQL = StrSQL & "'" & moyorieki & "'," StrSQL = StrSQL & "'" & toho & "'," StrSQL = StrSQL & "'" & basu & "'," StrSQL = StrSQL & "'" & sikiti & "'," StrSQL = StrSQL & "'" & tatemono & "'," StrSQL = StrSQL & "'" & madori & "'," StrSQL = StrSQL & "'" & tyusyajyo & "'," StrSQL = StrSQL & "'" & tikunen1 & "'," StrSQL = StrSQL & "'" & tikunen2 & "'," StrSQL = StrSQL & "'" & kakaku & "'," StrSQL = StrSQL & "'" & jiki & "'," StrSQL = StrSQL & "'" & komento & "'," StrSQL = StrSQL & "'" & mail & "'" StrSQL = StrSQL & ")" ObjConn.Execute(StrSQL) If Err = 0 Then Call SendMail(name,mail) End If End Sub '================================================= '-----　DBを閉じる '================================================= Sub CloseDB() ObjRS.Close Set ObjRS = Nothing ObjConn.Close Set ObjConn = Nothing End Sub '================================================= 'HTML表示処理開始 '================================================= ]]>%> <%%>

横浜市の不動産のことなら“住まいのプロフェッショナル”相互開発におまかせください｡
横浜エリアを中心に不動産の賃貸・売買・新築住宅・リフォーム情報を提供しております｡