עבר עריכה לאחרונה בתאריך 06.06.08 בשעה 15:14 על-ידי Ice Cold (מנהל הפורום)
מישהו יוכל להסביר לי למה הוא לא מעדכן פה
<%@language="VBSCRIPT" CODEPAGE="1255"%><html>
<head>
<title></title>
</head>
<body dir="rtl">
<basefont face="Arial" size="2">
<p style="margin-top: 0; margin-bottom: 0">
<%
Dim ID, Edit, name, oter, phone
Dim Conn, rs, SQL ID = Request.QueryString("id")
Edit = Request.QueryString("Edit")
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "DSN=hbihybi"
Set rs = Server.CreateObject("ADODB.RecordSet") If IsEmpty(ID) or IsNumeric(ID) = False Then ID = 0
SQL = "Select * from 1 where ID="&ID
rs.Open SQL, Conn
If rs.EOF Then
Response.Write "<h3 align=""center"">אין נתונים </h3>" & vbcrlf
Else
If Edit <> "True" Then
%>
</p>
<p align="center" style="margin-top: 0; margin-bottom: 0"><font size="4">חלק
עליון:</font></p>
<form method="POST" action="?Edit1=True&id=<%=ID%>">
<table dir="rtl" width="60%" align="center">
<tr>
<td width="83%">
<p style="margin-top: 0; margin-bottom: 0">
<textarea rows="13" name="txt" cols="68"><%=rs("txt")%></p>
<p style="margin-top: 0; margin-bottom: 0" align="center">
<input type="submit" value="שמור"></td>
</tr>
</table>
</form>
<%
Else
txt = Request.Form("txt")
rs.Close
SQL = "Select * from 1 where ID="&ID
rs.Open SQL, Conn, 2, 3
rs("txt") = txt
rs.Update
rs.Close Response.Write "<h3 align=""center"">הרשומה נערכה בהצלחה!<br>" & vbcrlf End If
End If Set rs = Nothing
Conn.Close
Set Conn = Nothing
%> </body>
</html>
|
http://omri.singit.co.il/melave.php?date=30/07/2008?.gif
גירסת הדפסה
סגן המנהל
מפקח
Winner
צל"ש
מומחה
