Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,028

HOME > ASP > ASP Forum > asp ไม่รับค่าจากฟอร์ม เราก็เขียนโค้ดถูกแล้วทุกอย่างนะมันไม่ error อะไร



 

asp ไม่รับค่าจากฟอร์ม เราก็เขียนโค้ดถูกแล้วทุกอย่างนะมันไม่ error อะไร

 



Topic : 036100



โพสกระทู้ ( 5 )
บทความ ( 0 )



สถานะออฟไลน์




asp ไม่รับค่าจากฟอร์ม เราก็เขียนโค้ดถูกแล้วทุกอย่างนะมันไม่ error อะไร แต่ว่าตอนจะ insert เข้าไปปรากฎว่ามันไม่รับค่าจาก ฟอร์มอ่ะค่ะ ทั้งที่เมื่อวานยัง insert ได้อยู่เลย แล้วก้อใช้ code ตัวอย่างที่ได้มาจากเว็บนี้อ่ะคะ
อยากทราบว่าเป็นปัญหาที่อะไรอ่ะคะ

ขอบคุณค่ะ
หน้าฟอร์ม

Code (ASP)
<%@LANGUAGE="VBSCRIPT" CODEPAGE="874"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874" />
<title>สถาน ประกอบการ </title>
<style type="text/css">
<!--
.style1 {font-family: "MS Serif"}
-->
</style>
</head>

<body>
<form id="form1" name="form1" method="post" action="regis_enterprise_get.asp">
  <table cellspacing="1" cellpadding="0">
    <tr>
      <td height="5" colspan="3" bgcolor="#CCCCCC">ข้อมูลสำหรับการเข้าสู่ระบบ</td>
    </tr>
    <tr>
      <td align="right">*ชื่อผู้ใช้</td>
      <td align="middle">:</td>
      <td align="left"><input name="Username_Enterprise" id="Username_Enterprise" />
      ( &quot;ชื่อผู้ใช้&quot; ต้องเป็นภาษาอังกฤษหรือตัวเลขเท่านั้น )</td>
    </tr>
    <tr>
      <td align="right">*รหัสผ่าน</td>
      <td align="middle">:</td>
      <td align="left"><input name="Password_Enterprise" type="password" id="Password_Enterprise" value="" /></td>
    </tr>
    <tr>
      <td align="right">*ยืนยันรหัสผ่าน</td>
      <td align="middle">:</td>
      <td align="left"><input name="RePassword_Enterprise" type="password" id="RePassword_Enterprise" value="" /></td>
    </tr>
    <!--  Personal Details //-->
    <tr>
      <td colspan="3" height="5"></td>
    </tr>
    <tr>
      <td colspan="3" align="right" bgcolor="#CCCCCC"><div align="left">
          <p>ข้อมูลส่วนบุคคล</p>
      </div></td>
    </tr>
    <tr>
      <td align="right">*ชื่อ</td>
      <td align="middle">:</td>
      <td align="left"><input type="text" name="Name_Contact" id="Name_Contact" /></td>
    </tr>
    <tr>
      <td align="right">*นามสกุล</td>
      <td align="middle">&nbsp;</td>
      <td align="left"><input type="text" name="Surename_Contact" id="Surename_Contact" /></td>
    </tr>
    <tr>
      <td align="right">*ตำแหน่ง</td>
      <td align="middle">:</td>
      <td align="left"><input  type="text" name="Position_Contact" id="Position_Contact" /></td>
    </tr>
    <tr>
      <td align="right">*ชื่อบริษัท</td>
      <td align="middle">:</td>
      <td align="left"><input  type="text" name="Enterprise_name" id="Enterprise_name" /></td>
    </tr>
    <tr>
      <td align="right">*ใบทะเบียนพาณิชย์เลขที่</td>
      <td align="middle">:</td>
      <td align="left"><input  type="text" name="Commercial_ID" id="Commercial_ID" maxlength="13" /></td>
    </tr>
    <tr>
      <td align="right">ประเภทสถานประกอบการ</td>
      <td align="middle">&nbsp;</td>
      <td align="left"><label>
      <span class="style1">
      <select name="Type_Enterprise" size="1" id="Type_Enterprise">
        <%
Dim Conn,strSQL,objRec
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "Driver={SQL Server};Server=MY-MAC\SQLEXPRESS;Database=rmutt_job;UID=sa;PWD=123456;" 
strSQL = "SELECT * FROM Type_Enterprise "

Set objRec = Server.CreateObject("ADODB.Recordset")
objRec.Open strSQL, Conn,1,3
%>
        <option value=" " selected="selected">----------โปรดเลือก------------</option>
        <!----------------------------------------------------------------------------->
        <%
While (NOT objRec.EOF)
%>
        <option value='<%=objRec.Fields("ID_TypeEnterprise").Value%>'> <%=objRec.Fields("Name_TypeEnterprise").Value%></option>
        <!----------------------------------------------------------------------------->
        <% 
objRec.MoveNext()
Wend
%>
      </select>
      </span>      </label></td>
    </tr>
    <tr>
      <td align="right">*อีเมลล์</td>
      <td align="middle">:</td>
      <td align="left"><input type="text" name="Email" id="Email" /></td>
    </tr>
    <tr>
      <td align="right">*โทรศัพท์</td>
      <td align="middle">:</td>
      <td align="left"><input   type="text" name="Tel_Enterprise" id="Tel_Enterprise" onkeypress="toNumeric(this)" onkeyup="toNumeric(this)" size="20" maxlength="9" />      </td>
    </tr>
    <tr>
      <td align="right">*สถานที่ติดต่อ</td>
      <td align="middle">:</td>
      <td align="left"><input type="text" name="Address_Enterprisee" id="Address_Enterprisee" /></td>
    </tr>
    <tr>
      <td align="right">*จังหวัด</td>
      <td align="middle">:</td>
      <td align="left"><input type="text" name="Province_Enterprise" id="Province_Enterprise" /></td>
    </tr>
    <tr>
      <td align="right">*เขต/อำเภอ</td>
      <td align="middle">:</td>
      <td align="left"><input type="text"  id="District_Enterprise" name="District_Enterprise" /></td>
    </tr>
    <tr>
      <td align="right">*รหัสไปรษณีย์</td>
      <td align="middle">:</td>
      <td align="left"><input type="text" name="Zipcode_Enterprise" id="Zipcode_Enterprise" maxlength="10" /></td>
    </tr>
    <tr>
      <td align="right">*ประเทศ</td>
      <td align="middle">:</td>
      <td align="left"><input type="text" name="Countrt_Enterprise" id="Countrt_Enterprise" />
        <input name="FlagStatus" id="FlagStatus" maxlength="1" value="0" type="hidden"/></td>
    </tr>
    <tr>
      <td colspan="3" height="30"><div align="center">
            <input type="submit" name="button" id="button" value="Submit" />
        </div></td>
    </tr>
  </table>
</form>
</body>
</html>




หน้า insert ข้อมูล
<% Option Explicit %>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html;  charset=tis-620"></head>
<body>
<%

Dim Conn,strSQL,objRec
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "Driver={SQL Server};Server=MY-MAC\SQLEXPRESS;Database=rmutt_job;UID=sa;PWD=123456;" 
strSQL = "INSERT INTO Enterprise "
strSQL = strSQL &"(Username_Enterprise,Password_Enterprise,Name_Contact,Surename_Contact,Position_Contact,Enterprise_name,Commercial_ID,Type_Enterprise,Email,Tel_Enterprise,Address_Enterprisee,Province_Enterprise,District_Enterprise,Zipcode_Enterprise,Countrt_Enterprise,FlagStatus) "
strSQL = strSQL &"VALUES "
strSQL = strSQL &"('"&Request.Form("Username_Enterprise")&"','"&Request.Form("Password_Enterprise")&"'"
strSQL = strSQL &",'"&Request.Form("Name_Contact")&"','"&Request.Form("Surename_Contact")&"','"&Request.Form("Position_Contact")&"'"
strSQL=strSQL &",'"&Request.Form("Enterprise_name")&"','"&Request.Form("Commercial_ID")&"','"&Request.Form("Type_Enterprise")&"'"
strSQL=strSQL &",'"&Request.Form("Email")&"','"&Request.Form("Tel_Enterprise")&"','"&Request.Form("Address_Enterprisee")&"'"
strSQL=strSQL &",'"&Request.Form("Province_Enterprise")&"','"&Request.Form("District_Enterprise")&"'"
strSQL=strSQL &",'"&Request.Form("Zipcode_Enterprise")&"','"&Request.Form("Countrt_Enterprise")&"','"&Request.Form("FlagStatus")&"')"

Response.Write(strSQL)

Set objRec = Server.CreateObject("ADODB.Recordset")
objRec.Open strSQL, Conn,1,3

If Err.Number = 0 Then
	Response.write("Save Done.")
Else
	Response.write("Error Save ["&strSQL&"] ("&Err.Description&")")
End If

	Conn.Close()
	Set objRec = Nothing
	Set Conn = Nothing		
%>
</body>
</html>




Tag : - - - -






Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2009-12-22 16:42:44 By : aonja View : 1329 Reply : 2
 

 

No. 1



โพสกระทู้ ( 74,058 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

Response.Write(strSQL) มีค่าหรือเปล่าครับ


Date : 2009-12-22 18:28:12 By : webmaster
 


 

No. 2



โพสกระทู้ ( 10 )
บทความ ( 0 )



สถานะออฟไลน์


check และความถูกต้องของ Field ที่รับค่า
ใส่
Response.Write(strSQL)
Response.end

Set objRec = Server.CreateObject("ADODB.Recordset")
ได้ script ลองนำไป Run ใน sql
Date : 2009-12-23 08:58:28 By : nid5620
 

   

ค้นหาข้อมูล
   
 

แสดงความคิดเห็น
Re : asp ไม่รับค่าจากฟอร์ม เราก็เขียนโค้ดถูกแล้วทุกอย่างนะมันไม่ error อะไร
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
 Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 04
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2024 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่