Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,027

HOME > ASP > ASP Forum > พี่ๆ ช่วยดู code update ให้หน่อยคะ ไม่ออกซักกะที ขอบคุณมากคะ

พี่ๆ ช่วยดู code update ให้หน่อยคะ ไม่ออกซักกะที ขอบคุณมากคะ

เริ่มหัวข้อใหม่

namaea

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

<%
dim conn
dim sql
dim rs

set conn=server.CreateObject("ADODB.Connection")
conn.Open "driver={microsoft access driver (*.mdb)};DBQ= "&Server.MapPath("dbforeigner.mdb")
sql="select * from tbforeigner a,tbchild b where (a.fempno='"&trim(request.QueryString("fempno"))&"') and (b.fempno='"&trim(request.QueryString("fempno"))&"')"

set rs=server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
set rs=conn.execute(sql)
if rs.eof then
%>
<center>No Any Data!!!
<br />
<br />
<center>[<a href="addchil.asp?fempno=<%=request.QueryString("fempno")%>">Add Data Children</a>]
<%else%>
</p>
<table width="627" border="0" align="center">
<tr>
<td width="95"><strong>EN:</strong><span class="style6"> <%=rs("fempno")%>
<input type="hidden" name="fempno" value="<%=rs("fempno")%>" />
</span></td>
<td width="175"><strong>Name:</strong><span class="style6"> <%=rs("fempname")%>
<input type="hidden" name="fempname" value="<%=rs("fempname")%>" /> </span></td>
<td width="203"><strong>Surname:</strong><span class="style6"> <%=rs("fsurname")%>
<input type="hidden" name="fsurname" value="<%=rs("fsurname")%>" /> </span></td>
<td width="136"><strong>Dept:</strong><span class="style6"> <%=rs("fdeptcode")%>
<input type="hidden" name="fdeptcode" value="<%=rs("fdeptcode")%>" /> </span></td>
</tr>
</table>
<%
While Not rs.EOF and n=0<=rs.EOF %>
<%n=n+1%>
<table width="700" border="0" align="center">
<tr>
<td colspan="2"><div align="center"><b>DATA CHILDREN <span class="style9">
<%response.Write(n)%>
</span></b></div></td>
</tr>
<tr>
<td><div align="left">Name of Children:<input name="txtnamechi" type="text" id="txtnamechi" value="<%=rs("name_child")%>" maxlength="50" />
</div></td>
<td><div align="left">Passport No:<input name="txtpasschi" type="text" id="txtpasschi" value="<%=rs("pass_no")%>" maxlength="15" />
</div></td>
</tr>

<tr>
<td><div align="left">Date of issue:<input name="txtdischi" type="text" id="txtdischi" onfocus="showCalendarControl(this);" value="<%=rs("date_issue")%>" />
</div></td>
<td><div align="left">Date of expire:<input name="txtexchi" type="text" id="txtexchi" onfocus="showCalendarControl(this);" value="<%=rs("date_exp")%>" />
</div></td>
</tr>

<tr>
<td><div align="left">Nationality:<input name="txtnachi" type="text" id="txtnachi" value="<%=rs("national")%>" maxlength="20" />
</div></td>
<td><div align="left">Date of Birth:<input name="txtbirchi" type="text" id="txtbirchi" onfocus="showCalendarControl(this);" value="<%=rs("date_birth")%>" />
</div></td>
</tr>

<tr>
<td colspan="2"><div align="center"><b>IMMIGRATION OFFICE</b></div></td>
</tr>

<tr>
<td><div align="left">Date of issue:or date walk in:<input name="date_walkchi" type="text" id="date_walkchi" onfocus="showCalendarControl(this);" value="<%=rs("date_workin")%>" />
</div></td>
<td><div align="left">TM.6.No:<input name="txttmchi" type="text" id="txttmchi" value="<%=rs("tmchild")%>" />
</div></td>
</tr>

<tr>
<td colspan="2"><div align="left">Due date for 90 days:<input name="chi_due" type="text" id="chi_due" value="<%=rs("due_date")%>" />
</div></td>
</tr>

<tr>
<td colspan="2"><div align="left">Due date E-mail alert:<input name="chi_alert" type="text" id="chi_alert" value="<%=rs("date_alert")%>" />
</div></td>
</tr>
</table>
<p> </p>
<p align="center">
<label>

<p align="center">
<%rs.Movenext
wend%>
<input type="submit" name="Submit" value="SAVE" /><br />
<center>
[<a href="addchil.asp?fempno=<%=request.QueryString("fempno")%>">Add Data Children</a>]

<%
rs.close
Conn.close
end if
%>

code update
<%
Dim Conn1
Dim sql
Dim Rs
Dim child
child=Request.Form("fempno").count
for i=1 to child
Set Conn1 = Server.Createobject("ADODB.Connection")
Conn1.Open "driver={microsoft access driver (*.mdb)};DBQ= "&Server.MapPath("dbforeigner.mdb")
sql="select * from tbchild where (fempno='"&trim(request("fempno").item(i))&"')"

Set Rs= Server.CreateObject("ADODB.recordset")
RS.open sql,Conn1,1,3

Rs("fempno")=Request("fempno").item(i)
Rs("name_child")=Request("txtnamechi").item(i)
Rs("pass_no")=Request.Form("txtpasschi").item(i)
Rs("date_issue")=Request.Form("txtdischi").item(i)
Rs("date_exp")=Request.Form("txtexchi").item(i)
Rs("date_birth")=Request.Form("txtbirchi").item(i)
Rs("national")=Request.Form("txtnachi").item(i)
Rs("date_workin")=Request.Form("date_walkchi").item(i)
Rs("tmchild")=Request.Form("txttmchi").item(i)
Rs("due_date")=Request.Form("")
Rs("date_alert")=Request.Form("")
Rs.Update
Rs.Close
Conn1.Close
set Rs=nothing
Next
response.write("<center><b>Update Data Completed!!")

%>

รบกวนหน่อยคะ เครียดจังเลยค่ะ

Tag : - - - -

Date : 2009-03-06 09:07:06

By : namaea

View : 1271

Reply : 1

No. 1

Guest

สูตรคูณเลือกได้ 1-999
Code (C#)

#include<stdio.h>
#include<conio.h>
void main(void)
{
 int x,y,sum;
 printf("PROGRAM MULTICATION TABLE\n");
 printf("Enter Number :");
 scanf("%d",&x);
 y=1;
 while(y<=12)
 {
  sum=x*y;
  printf("%d*%d=%d\n",x,y,sum);
  y++;
 }
 getch();

Date : 2009-03-06 09:21:10

By : udonzaa

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : พี่ๆ ช่วยดู code update ให้หน่อยคะ ไม่ออกซักกะที ขอบคุณมากคะ

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

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

Notice

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

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

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

Load balance : Server 03

Registered : 109,027

document.write("<font color=996600>[ASP]</font>"); พี่ๆ ช่วยดู code update ให้หน่อยคะ ไม่ออกซักกะที ขอบคุณมากคะ

No. 1

ค้นหาข้อมูล

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

Notice

พี่ๆ ช่วยดู code update ให้หน่อยคะ ไม่ออกซักกะที ขอบคุณมากคะ