|
 |
| |
ช่วยดู eror ในการเซฟข้อมูลลงฐานข้อมมูลหน่อยครับไม่รู้ว่า eror ได้ไง |
| |
 |
|
|
 |
 |
|
<%
session.LCID = 1033
if connectdb() = true then
'ประกาศตัวแปร
dim namep,mail,tel,bank,times,da,totall,gates,gstes
dim sql,rs
'รับค่าจากตัวแปล
namep = trim(request.Form("namep"))
mail = trim(request.Form("mail"))
tel = trim(request.Form("tel"))
bank= trim(request.Form("bank"))
times=(request.Form("times"))
da=(request.Form("da"))
totall=(request.Form("totall"))
gates =(request.Form("gates"))
gstes = (request.Form("gates"))
'ตรวจสอบค่า หาค่าว่าง
dim varname ,varvalue
sub checknull(varname,varvalue)
if (varname="") then
response.Write("<script>"& _
"alert('กรุณากรอก"& varvalue &"ด้วยครับ');"& _
"history.back();"& _
"</script>")
response.End()
end if
end Sub
call checknull(namep,"ชื่อ-นามสกุล")
call checknull(mail,"อีเมล")
call checknull(tel,"เบอร์โทรศัพท์")
call checknull(bank,"ธนาคาร")
call checknull(times,"เวลา")
call checknull(da,"วัน/เดือน/ปี")
call checknull(totall,"จำนวนเงิน")
end if
' save ลงฐานข้อมูล
sql = "insert into bank (namep, mail,tel,bank,times,da,totall,gates,gstes)" & _
"values ("&namep&","&mail&","&tel&","&bank&","×&","&da&","&totall&","&gates&","&gstes&")"
Conn.Execute sql
response.Write("<script>"& _
"alert('บันทึกข้อมูลการโอนเงินเรียบร้อยแล้ว');window.location='index.asp';</script>")
%>
Tag : - - - -
|
|
|
 |
 |
 |
 |
| Date :
1 เม.ย. 2551 13:41:47 |
By :
terayut |
View :
1358 |
Reply :
1 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
ฟิลด์ข้อมูล ที่เป็นสตริงต้องมี ' ค่อม
Statement ของคุณน่าต้องแก้ไข
|
| |
|
|
| |
| Date :
4 เม.ย. 2551 13:27:27 |
By :
madoadza |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
| |
|
 Load balance : Server 02
|
