PAIDIA BOITHIA!THELW STHN ISTOSELIDA MOY OTAN KANEI KAPOIOS LOGON NA KATALABAINEI TO SYSTHMA AN EINAI H PRWTH FORA POY KANEI LOGON O XRHSTHS ETSI WSTE NA TON STELNEI SE MIA SELIDA GIA NA ALLAKSEI TA STOIXEIA TOY YPOXREWTIKA.ME ALLA LOGIA,AN O XRHSTHS EXEI KANEI POLLES FORES LOGON THA TOY EMFANIZEI MIA SELIDA ME TIS EPILOGE SPOY THA EXEI STH SYNEXEIA,ENW AN EINAI H PRWTH FORA POY KANEI LOGON O XRHSTHS NA TON STELNEI SE MIA SELIDA POY THA TON PPROTREPEI NA ALLAKSEI YPOXREWTIKA TA STOIXEIA TOY.PWS GINETAI AYTO ME ASP KSEREI KANEIS?

KAI KATI ALLO.KSEREI KANEIS PWS GINETAI MOLIS O XRHSTHS KANEI EGGRAFH NA STELNETAI APEYTHEIAS STO MAIL TOY ENAS TYXAIOS KWDIKOS KI ENA TYXAIO USERNAME?

EYXARISTW PROKATABOLIKA!

Από: mihalist80 - 28/7/2002
1 απαντήσεις | Σχολίασε | Ψήφισε η καταχώρησε σε δίκτυο social news

Mipos kserei kaneis kanena site (elliniko an ginetai ) gia ekmathisi wml ? Efxaristo poli

Από: ias - 26/7/2002
Καμία απάντηση | Σχολίασε | Ψήφισε η καταχώρησε σε δίκτυο social news

i have a form where a user puts some information in the text fields and
this information goes to an xml file.but if the user puts some information
there and after a few minutes wants to go back to this page to change some
information this new information must replace the existing information in
the xml file without creating the existing information again.i use
the "createelement" but with this the xml creates both the existing
information and the new.i used the "replacechild" but this doesn't
work.Can anyone help me?Also,i think that it needs a conditional
instruction:if the node already exists,then make the replacement not add
the new node(new information),else append the new node.How can i manage
this?Plz help!

the code i used is this :

<%
Set Upload = Server.CreateObject("Persits.Upload")
Upload.Save

Function AddContactXML(strXMLFilePath, strFileName)

Dim objDom, sourceFile, objRoot, obj1, obj2, obj3, obj4, obj5, obj6, obj7,
obj8, obj9, obj10, obj11, obj12, obj13, obj14, obj15, obj16, obj17, obj18,
obj19, obj20, obj21, obj22, obj23


sourceFile = strXMLFilePath & "\" & strFileName

Set objDom = server.CreateObject("Microsoft.XMLDOM")
objDom.preserveWhiteSpace = True

objDom.load(sourceFile)

Set objRoot = objDom.documentElement


if Not IsObject(objRoot) Then
Response.Write " No file loaded"
end if

if not node.childNodes.i(6) then

Set obj1 = objDom.createElement("eponimo")
obj1.Text = Upload.Form(1)
objRoot.appendChild obj1

Set obj2 = objDom.createElement("onoma")
obj2.Text = Upload.Form(2)
objRoot.appendChild obj2

Set obj3 = objDom.createElement("onoma_patera")
obj3.Text = Upload.Form(3)
objRoot.appendChild obj3

Set obj4 = objDom.createElement("afm")
obj4.Text = Upload.Form(4)
objRoot.appendChild obj4

Set obj5 = objDom.createElement("dieu_epp")
obj5.Text = Upload.Form(5)
objRoot.appendChild obj5

Set obj6 = objDom.createElement("til_epp")
obj6.Text = Upload.Form(6)
objRoot.appendChild obj6

Set obj7 = objDom.createElement("ar_taut")
obj7.Text = Upload.Form(7)
objRoot.appendChild obj7

Set obj8 = objDom.createElement("dieu")
obj8.Text = Upload.Form(8)
objRoot.appendChild obj8

Set obj9 = objDom.createElement("tilefono")
obj9.Text = Upload.Form(9)
objRoot.appendChild obj9

Set obj10 = objDom.createElement("eggamos")
obj10.Text = Upload.Form(10)
objRoot.appendChild obj10

Set obj11 = objDom.createElement("eponimo_s")
obj11.Text = Upload.Form(11)
objRoot.appendChild obj11

Set obj12 = objDom.createElement("onoma_s")
obj12.Text = Upload.Form(12)
objRoot.appendChild obj12

Set obj13 = objDom.createElement("onoma_pat_s")
obj13.Text = Upload.Form(13)
objRoot.appendChild obj13

Set obj14 = objDom.createElement("afm_s")
obj14.Text = Upload.Form(14)
objRoot.appendChild obj14

Set obj15 = objDom.createElement("dieu_epp_s")
obj15.Text = Upload.Form(15)
objRoot.appendChild obj15

Set obj16 = objDom.createElement("til_epp_s")
obj16.Text = Upload.Form(16)
objRoot.appendChild obj16

Set obj17 = objDom.createElement("ar_taut_s")
obj17.Text = Upload.Form(17)
objRoot.appendChild obj17

Set obj18 = objDom.createElement("ekpr_epon")
obj18.Text = Upload.Form(18)
objRoot.appendChild obj18

Set obj19 = objDom.createElement("ekpr_onoma")
obj19.Text = Upload.Form(19)
objRoot.appendChild obj19

Set obj20 = objDom.createElement("ekpr_onoma_pat")
obj20.Text = Upload.Form(20)
objRoot.appendChild obj20

Set obj21 = objDom.createElement("ekpr_afm")
obj21.Text = Upload.Form(21)
objRoot.appendChild obj21

Set obj22 = objDom.createElement("ekpr_dieu")
obj22.Text = Upload.Form(22)
objRoot.appendChild obj22

Set obj23 = objDom.createElement("ekpr_til")
obj23.Text = Upload.Form(23)
objRoot.appendChild obj23

else

Set obj1 = objDom.createElement("eponimo")
obj1.Text = Upload.Form(1)
objRoot.replaceChild obj1 , obj1

Set obj2 = objDom.createElement("onoma")
obj2.Text = Upload.Form(2)
objRoot.replaceChild obj2 , obj2

Set obj3 = objDom.createElement("onoma_patera")
obj3.Text = Upload.Form(3)
objRoot.replaceChild obj3 , obj3

Set obj4 = objDom.createElement("afm")
obj4.Text = Upload.Form(4)
objRoot.replaceChild obj4 , obj4

Set obj5 = objDom.createElement("dieu_epp")
obj5.Text = Upload.Form(5)
objRoot.replaceChild obj5 , obj5

Set obj6 = objDom.createElement("til_epp")
obj6.Text = Upload.Form(6)
objRoot.replaceChild obj6 , obj6

Set obj7 = objDom.createElement("ar_taut")
obj7.Text = Upload.Form(7)
objRoot.replaceChild obj7 , obj7

Set obj8 = objDom.createElement("dieu")
obj8.Text = Upload.Form(8)
objRoot.replaceChild obj8 , obj8

Set obj9 = objDom.createElement("tilefono")
obj9.Text = Upload.Form(9)
objRoot.replaceChild obj9 , obj9

Set obj10 = objDom.createElement("eggamos")
obj10.Text = Upload.Form(10)
objRoot.replaceChild obj10 , obj10

Set obj11 = objDom.createElement("eponimo_s")
obj11.Text = Upload.Form(11)
objRoot.replaceChild obj11 , obj11

Set obj12 = objDom.createElement("onoma_s")
obj12.Text = Upload.Form(12)
objRoot.replaceChild obj12 , obj12

Set obj13 = objDom.createElement("onoma_pat_s")
obj13.Text = Upload.Form(13)
objRoot.replaceChild obj13 , obj13

Set obj14 = objDom.createElement("afm_s")
obj14.Text = Upload.Form(14)
objRoot.replaceChild obj14 , obj14

Set obj15 = objDom.createElement("dieu_epp_s")
obj15.Text = Upload.Form(15)
objRoot.replaceChild obj15 , obj15

Set obj16 = objDom.createElement("til_epp_s")
obj16.Text = Upload.Form(16)
objRoot.replaceChild obj16 , obj16

Set obj17 = objDom.createElement("ar_taut_s")
obj17.Text = Upload.Form(17)
objRoot.replaceChild obj17 , obj17

Set obj18 = objDom.createElement("ekpr_epon")
obj18.Text = Upload.Form(18)
objRoot.replaceChild obj18 , obj18

Set obj19 = objDom.createElement("ekpr_onoma")
obj19.Text = Upload.Form(19)
objRoot.replaceChild obj19 , obj19

Set obj20 = objDom.createElement("ekpr_onoma_pat")
obj20.Text = Upload.Form(20)
objRoot.replaceChild obj20 , obj20

Set obj21 = objDom.createElement("ekpr_afm")
obj21.Text = Upload.Form(21)
objRoot.replaceChild obj21 , obj21

Set obj22 = objDom.createElement("ekpr_dieu")
obj22.Text = Upload.Form(22)
objRoot.replaceChild obj22 , obj22

Set obj23 = objDom.createElement("ekpr_til")
obj23.Text = Upload.Form(23)
objRoot.replaceChild obj23 , obj23
end if

'objDom.insertBefore objPI, objDom.childNodes(0)

objDom.Save(sourceFile)


Set objDom = nothing
Set objRoot = nothing
Set obj1 = nothing
Set obj2 = nothing
Set obj3 = nothing
Set obj4 = nothing
Set obj5 = nothing
Set obj6 = nothing
Set obj7 = nothing
Set obj8 = nothing
Set obj9 = nothing
Set obj10 = nothing
Set obj11 = nothing
Set obj12 = nothing
Set obj13 = nothing
Set obj14 = nothing
Set obj15 = nothing
Set obj16 = nothing
Set obj17 = nothing
Set obj18 = nothing
Set obj19 = nothing
Set obj20 = nothing
Set obj21 = nothing
Set obj22 = nothing
Set obj23 = nothing

End Function
%>

Από: mihalist80 - 25/7/2002
Καμία απάντηση | Σχολίασε | Ψήφισε η καταχώρησε σε δίκτυο social news

exo vrei to http://www.eeei.gr/odhgos/htmlfaq.htm pou exei mathimata html tzampa mesa apo to internet..mipos iparxei kanena tetoio paromoio site gia asp?

Από: mosky - 23/7/2002
1 απαντήσεις | Σχολίασε | Ψήφισε η καταχώρησε σε δίκτυο social news

exo ena asp script, to opoio prostateuei tis selides xrisimopoiontas username/password..pos tha prostheso na stelnei ton password kapoiou xristi otan aftos to exei ksexasei kai dilonei to email tou gia na tou to steilo?

Από: mosky - 20/7/2002
2 απαντήσεις | Σχολίασε | Ψήφισε η καταχώρησε σε δίκτυο social news