Evo koda za formular, on radi kako treba:
<HTML>
<HEAD>
<TITLE>Izdavacka kuca CET</TITLE>
</HEAD>
<BODY>
<FONT FACE="Arial" SIZE="6">Dnevni izvestaj kuce cet</FONT><HR>
<FORM ACTION="napraviIzvestaj.asp" METHOD="post">
<P>Izaberite odsek: <SELECT id="Odsek" name="Odsek" style="Height: 22px; Width: 131px">
<OPTION selected value="knjige" name="knjige">Izdavastvo</OPTION>
<OPTION value="kurs" name="kurs">Kursevi</OPTION>
<OPTION value="prodaja" name="prodaja">Prodaja</OPTION>
</SELECT>
</P>
<P>Sazetak:<BR>
<INPUT id="kljucneInformacije" name="kljucneInformacije" style="Width: 350px; Height=50px">
</P>
<P>Naziv:<BR>
<INPUT id="Naziv" name="Naziv" style="width:350px">
</P>
<P>Izvestaj<BR>
<INPUT id="Izvestaj" name="izvestaj" style="width:500px; height:200px;">
</P>
<P>Pritisnite ovde kako biste poslali izvestaj:
<INPUT type="submit" value="Posalji izvestaj">
</P>
</FORM>
</BODY>
</HTML>
Ali zato kada pritisnem Posalji izvestaj ( submit dugme ), izbaci mi samo ceo kod ovog drugog dokumenta, tj. napraviIzvestaj.asp, a on izgleda ovako:
<%@LANGUAGE="VBScript"%>
<HTML>
<BODY>
<FONT FACE="arial" SIZE="6">Pravljenje XML datoteke sa dnevnim izvestajem </FONT><HR>
<P>
<%
strOdsek = Request.Form("Odsek")
strKljucneInformacije = Request.Form("kljucneInformacije")
strNaziv = Request.Form("Naziv")
strIzvestaj = Request.Form("Izvestaj")
strDatum = Year(Now) & "-" & Right("00" & Month(Now), 2) & "-" & Right("00" & Day(Now), 2)
strImeDatoteke = "C:\XMLDatoteke\" & strDatum & strOdsek & ".xml"
QUOT=Chr(34)
CRLF=VbCrLf
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile(strImeDatoteke, True)
strLinija = "<?xml version=" & QUOT & "1.0" & QUOT &" ?>"
objFile.WriteLine strLinija & CRLF
strLinija = "<dnevniIzvestaj datumPravljenja=" & QUOT & strDatum & QUOT & "Odsek=" & QUOT & strOdsek & QUOT & ">"
objFile.WriteLine strLinija & CRLF
strLinija = "<kljucneInformacije>" &strKljucneInformacije & "</kljucneInformacije>"
objFile.WriteLine strLinija & CRLF
strLinija = "<naziv>" & strNaziv & "</naziv>"
objFile.WriteLine strLinija & CRLF
strLinija = "<izvestaj>" & strIzvestaj & "</izvestaj>"
objFile.WriteLine strLinija & CRLF
strLinija = "</dnevniIzvestaj>"
objFile.WriteLine strLinija
objFile.Close
Set objFile = Nothing
Set objFile = Nothing
Response.Write("Napravili ste izvesta za" & strOdsek & "odsek, za" & strDatum & ".<BR>")
Response.Write("<HR>")
Response.Write(strIzvestaj)
Response.Write("<HR>")
%>
</P>
</BODY>
</HTML>
Ja stvarno ne znam gde gresim, znam da mi treba izbaciti ovo iz Response.Write, tj. Napravili ste .....
Bio bih i vise nego zahvalan ukoliko biste mogli naci gresku, ili me barem naveli na bolje razmisljane.
Hvala unapred.