<% if request("submit") = " ส่งเมล์ " then Set objCDO = Server.CreateObject("CDO.Message") With objCDO .To = request("toMail") '"kitpaiboon@hotmail.com" .From = request("fromMail") .Subject = request("subjectMail") .BodyPart.Charset = "Tis-620" .HtmlBody = request("bodyMail") ' BEFORE YOU UNCOMMENT THIS CHANGE THE VALUE OF ' strFrom ABOVE! IF YOU CAN'T FIND IT SEARCH FOR ' strFrom = "User Name " ' THANK YOU. .Send End With msgMail = "ส่งเมล์เรียบร้อยแล้ว" end if %> <% id = request("id") Set Conn=Server.CreateObject("ADODB.Connection") dbname="CbaoMember0948.mdb" dbpath="DBQ=" & server.mappath(dbname) Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & dbpath sql = "select * from register where id = " & id & " and mType <> 'x' " set rs = Conn.execute(sql) if not rs.eof then %> <% if session("addView") = "noAdd" then session("addView") = "" else if session("uid") = id then session("uid") = "" else viewer = rs("viewer") +1 sql1 = "update register set viewer = " & viewer & " where id = " & id & " " Conn.execute(sql1) session("uid") = id end if end if %>
รายละเอียดสมาชิกคาราบาว.เน็ต

<% on error resume next fileName=rs("fileName") Dim filesys,demofile, createdate Set filesys = CreateObject("Scripting.FileSystemObject") Set demofile = filesys.GetFile(server.mappath("picture_file/" & fileName)) fileNameSize = demofile.Size %> <%if fileNameSize > 25000 then%> <%else%> <%end if%>
คลิ๊กเพื่อดูภาพขนาดจริง
หมายเลขสมาชิก : <%if rs("mType") = "mc" then%>[MC]<%=right("0000" & rs("mOrder"),4)%><%else%> - <%end if%>
ชื่อ-นามสกุล : <%if not rs("nameStatus") = "checked" then%>-<%else%><%=rs("name")%><%end if%>  <%if not rs("surnameStatus") = "checked" then%><%else%><%=rs("surName")%><%end if%>
ชื่อนามแฝงในกระทู้ : <%=rs("nickName")%>
Email Address : <%=rs("emailAddress")%>
เพศ : <%if rs("sex")="male" then response.write "ชาย" else response.write "หญิง" end if%>
เกิด : <%if len(rs("age"))=4 then%><%=rs("age")%><%else%><%=int(left(rs("age"),2))%> <%=monthname(mid(rs("age"),4,2))%> <%=right(rs("age"),4)%><%end if%>
ที่อยู่/รหัสไปรษณีย์ : <%if not rs("addressStatus") = "checked" then%>N/A<%else%><%=rs("address")%><%end if%>
จังหวัด : <%=rs("provence")%>
โทรศัพท์บ้าน/ที่ทำงาน : <%if not rs("telephoneStatus") = "checked" then%>N/A<%else%><%=rs("telephone")%><%end if%>
โทรศัพท์มือถือ : <%if not rs("mobileStatus") = "checked" then%>N/A<%else%><%=rs("mobile")%>    ระบบ  <%=rs("mobileSystem")%><%end if%>
สถานะลักษณะงานที่ทำ : <%=rs("occupation")%>
ข้อมูลเพิ่มเติม : <%=rs("detailData")%>
   
   
  <%=msgMail%>
   
ส่งเมล์ถึง : <%=rs("nickName")%>    [<%=rs("emailAddress")%>]
ผู้ส่ง :
หัวข้อเรื่อง :
" name="toMail">
<%else%> <%response.Redirect("default.asp")%> <%end if%>