הרשם שאלות ותשובות רשימת חברים לוח שנה הודעות מהיום

חזור   הוסטס - פורום אחסון האתרים הגדול בישראל > עיצוב גראפי, תכנות על כל שפותיו וקידום ושיווק אתרים > פורום תיכנות

   
|!|

 
 
כלים לאשכול תצורת הצגה
Prev הודעה קודמת   הודעה הבאה Next
ישן 19-04-06, 15:40   # 1
TheGreenBoy
חבר בקהילה
 
TheGreenBoy's Avatar
 
מיני פרופיל
תאריך הצטרפות: Oct 2005
הודעות: 243

TheGreenBoy לא מחובר  

זקוק לעזרה בטופס עדכון בסיס אקסס

שלום שלום לכולם.
אני מפתח איזושהי מערכת עדכונים מזערית וקטנה וניסיתי לבנות לה טופס עדכון דרך הדפדפן.
אוקי, אז מיכוון שאני פחות מתכנת ויותר בעסקי העיצוב, נתקעתי קצת עם זה וישנה שגיאה.
הטופס הוא בעצם טופס שלקחתי ממערכת אחרת שלי מכיוון שלא היה לי את הכיוון הבסיסי איך לבנות והוא נתן לי אותו.

אז ככה:

טופס הקשר עם השרת:
קוד:
<!--#include file="CAForum/Connections/conn.asp" -->
<%response.Buffer=true%>


<html>
<head>
<title>CodeAvalanche</title>
<link href="CAForum/stylesheet/CAForum.css" rel="stylesheet" type="text/css">
</head>
<body>

     <!--#include file="inc_header.asp" -->
	 
<%
num = Request("parent")
dim datavalid
datavalid=false

if intnum="" then
if Request.Form("title")<>""  then
datavalid=true
else
datavalid=false
%>



<div class="Error">Please enter subject</div>
<br>
<%
end if
else
datavalid=true
end if
if request.FORM("nes")<>"" and datavalid=true then
datavalid=true
else
datavalid=false
%>
<div class="Error">Please enter your message text</div>
<br>
<%
end if



if datavalid=true then




DIM insertStr,strRedirectUrl


if  num="" then 
'MESSAGE
insertStr="INSERT INTO nes (title,nes,num) VALUES("
insertStr=insertStr & "'" & DATE() & "',"
insertStr=insertStr & "'" & Replace(Request.Form("title"),"'","''") & "',"
insertStr=insertStr & "'" & Replace(Request.Form("nes"),"'","''") & "',"
insertStr=insertStr & "'" & DATE() & "')"
else
'REPLY
insertStr="INSERT INTO nes (title,nes,num) VALUES("
insertStr=insertStr  & num & ","
insertStr=insertStr & "'" & DATE() & "',"
insertStr=insertStr & "'" & Replace(Request.Form("nes"),"'","''") & "')"
end if


'response.write(insertStr)
'response.Flush 
 
 
Set AddPostCmd = Server.CreateObject("ADODB.Command")
AddPostCmd.ActiveConnection = connStr
AddPostCmd.CommandText = InsertStr
AddPostCmd.Execute










  if num="" then 
  %>
 <div>

<p align="center">

ההודעה פורסמה בהצלחה

<BR> 

<a href='http://www.gamix.co.il/newforum/forums.asp?iCat_id=2'>

למרכז התגובות לחצו כאן

</a>

</div>

<%
ELSE
%>
 <div>

<p align="center">

ההודעה פורסמה בהצלחה

<BR> 

<a href='http://www.gamix.co.il/newforum/forums.asp?iCat_id=2'>

למרכז התגובות לחצו כאן

</a>

</div>
 <%
END IF
end if
  
%>

       <table width="80%" align=center border="0" cellpadding="2" cellspacing="2" ID="Table4">
                   

  </table>    
</body> 
</html>

בכל מקרה, כנראה לא שיניתי שם את כל הנתונים ואני לא מוצא מה שגוי.
אני רוצה להכניס את השדות למסד GAMIXLs.mdb
שזה ייכנס לטבלת nes
והשדות יהיו title, nes, num
כאשר num זה מספר סידורי...


כנראה יש לי עוד שגיאה גם שאני לא מוצא בקוד... בשליחת נתונים.

אשמח ואודה מאוד למי שיעזור לי D=.
בברכה, אור שוורץ.
__________________
DigitalST בניית אתרים מקסימום תוצאות מהאינטרנט
  Reply With Quote
 

חברים פעילים הצופים באשכול זה: 1 (0 חברים ו- 1 אורחים)
 


חוקי פירסום
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is מופעל
סמיילים הם מופעל
[IMG] קוד מופעל
קוד HTML מכובה

קפיצה לפורום


כל הזמנים הם GMT +2. הזמן כעת הוא 17:47.

מופעל באמצעות VBulletin גרסה 3.8.6
כל הזכויות שמורות ©
כל הזכויות שמורות לסולל יבוא ורשתות (1997) בע"מ