::連絡曜中美妍::

<% if request("Request_Method")="POST" then cname=request("cname") email=request("email") Domain = Request.ServerVariables("SERVER_NAME") Response.Cookies("cname") = cname Response.Cookies("cname").Domain = Domain Response.Cookies("cname").Expires = date()+30 Response.Cookies("email") = email Response.Cookies("email").Domain = Domain Response.Cookies("email").Expires = date()+30 yr=right(Year(now), 2) mth=Month(now) if mth<10 then mth="0" & mth dy=day(now) if dy<10 then dy="0" & dy hr=hour(now) if hr<10 then hr="0" & hr mte=minute(now) if mte<10 then mte="0" & mte sec=second(now) if sec<10 then sec="0" & sec Set conn=Server.CreateObject("ADODB.Connection") param = "driver={Microsoft Access Driver (*.mdb)}" conn.Open param & ";dbq=" & Server.MapPath("consult.mdb") Set rs=Server.CreateObject("ADODB.Recordset") sqlstr="select * from report" rs.open sqlstr,conn,3,2 rs.movelast repno=rs("repno") rs.AddNew repno= repno +1 rs("repno")=repno rs("author")= left(cname, 12) rs("email")=email rs("authorip")=Request.ServerVariables("REMOTE_ADDR") rs("city")=request("city") rs("addr")=request("addr") rs("phone")=request("phone") rs("fax")=request("fax") rs("btype")=request("btype") rs("room")=request("room") rs("living")=request("living") rs("bath")=request("bath") rs("date")=yr & "/" & mth & "/" & dy rs("time")=hr & ":" & mte & ":" & sec content= request("content") content=Replace(content, chr(10)&chr(13), "
") content=Replace(content, chr(13), "
") rs("content")=content rs("room")=request("room") rs("living")=request("living") rs("bath")=request("bath") rs("house")=request("house") rs("use")=request("use") rs("use1")=request("use1") rs("reqire")=request("reqire1")&request("reqire2")&request("reqire3")&request("reqire4")&request("reqire5")&request("reqire6")&request("reqire7")&request("reqire8")&request("reqire9")&request("reqire10")&request("reqire11")&request("reqire12")&request("reqire13")&request("reqire14")&request("reqire15")&request("reqire16")&request("reqire17")&request("reqire18")&request("reqire19")&request("reqire20")&request("reqire21")&request("reqire22")&request("reqire23")&request("reqire24")&request("reqire25")&request("reqire26")&request("reqire27")&request("reqire28")&request("reqire29") rs("wtime")=request("wtime") rs("hstyle")=request("hstyle") rs("cash")=request("cash") rs.Update rs.close conn.close response.redirect"../base.asp" end if %> ::連絡曜中美妍::

1.聯絡資料

*貴賓姓名

*聯絡電話

*聯絡地址

*電子信箱

*方便電話聯絡

2.貴賓身分(可複選)

美容美髮沙龍店	個人使用愛好者	教育學院機構
證照評審講師	經銷通路商	婚紗.造型師

意見及需求內容: