HTML Datei einbinden ??

[Michael]

Hallo,

Mit folgendem Code kann ich Textdateien einlesen aber keine HTML
Seiten :-< Frage warum? bzw. was muss ich ändern???

<%
Const fsForReading = 1
Dim strDateiname, strInhalt, strInhaltHTML
Dim objFs           ' FileSystemObject Objekt
Dim objTextStream   ' Textstream Objekt
strDateiname = "C:\14200.htm"
Set objFs = CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFs.OpenTextFile(strDateiname, fsForReading)
strInhalt = objTextStream.ReadAll
strInhaltHTML = Server.HTMLEncode(strInhalt)
strInhaltHTML = Replace(strInhaltHTML,vbCrLf,"<BR>" & vbCrLf)
Response.Write strInhaltHTML
objTextStream.Close
Set objTextStream = Nothing
Set objFs = Nothing
%>

Danke schonmal
Ciao
Michael

[Frank]

Hallo,

Mit folgendem Code kann ich Textdateien einlesen aber keine HTML
Seiten :-< Frage warum? bzw. was muss ich ändern???

<%
Const fsForReading = 1
Dim strDateiname, strInhalt, strInhaltHTML
Dim objFs           ' FileSystemObject Objekt
Dim objTextStream   ' Textstream Objekt
strDateiname = "C:\14200.htm"
Set objFs = CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFs.OpenTextFile(strDateiname, fsForReading)
strInhalt = objTextStream.ReadAll
strInhaltHTML = Server.HTMLEncode(strInhalt)
strInhaltHTML = Replace(strInhaltHTML,vbCrLf,"<BR>" & vbCrLf)
Response.Write strInhaltHTML
objTextStream.Close
Set objTextStream = Nothing
Set objFs = Nothing
%>

Danke schonmal
Ciao
Michael

Hi Micha:

KÜRZEN.

<% pathb = Server.mappath(file)  %>
<% set fs = Server.CreateObject("Scripting.FileSystemObject")
if fs.FileExists(pathb) then
  set data = fs.OpenTextFile (pathb,1)
  Response.Write data.readAll
  data.close
  set data = nothing
  set fs = nothing
else
  Response.Write "No such File"
end if
%>

Frank, der Minimalist (oder geht es noch kürzer??)

[Michael]

Hallo Frank,

Vielen Dank, wiedermal hast du mir sehr weitergeholfen :-)

Eine Frage habe ich da noch !

Wie kan ich aus zwei Frames die wiederum 2 unterschiedliche ASP Seiten haben die WERTE Beider ASP Seiten an eine Senden???

danke

Michael

[Frank]

Hallo Frank,

Vielen Dank, wiedermal hast du mir sehr weitergeholfen :-)

Eine Frage habe ich da noch !

Wie kan ich aus zwei Frames die wiederum 2 unterschiedliche ASP Seiten haben die WERTE Beider ASP Seiten an eine Senden???

danke

Michael

Ich nochmal, hallo!

schreib doch bitte mal genau auf, was du vorhast - warum willst du aus zwei Frames mit versch. ASP Dateien Daten an eine dritte senden??
Gleichzeitig geht das sicher nicht. Aber vielleicht hab ich ne Idee wie man dieses Problem umgehen kann.

Frank

[Michael]

Hallo Frank,

ich habe da 2 Frameseiten mit 2 unterschiedliche ASP Seiten . Durch die erste werden durch Listboxen einträge mit werten gewählt und per formular an das zweite gesendet. Bei der zweiten werden diese berechnet.
Nun möchte ich bei der ersten oder zweiten ASP Seite einen button erstellen die die daten der ersten asp und die der zweiten asp seite
gleichzeitig an eine 3 ASP Seite senden. Damit ein Bestätigungsformular entstehen kann. wie das mit dem versenden der daten geschiet weis ich ja aber zwei unterschiedliche frames mit zwei unterschiedli hen asp seiten zusammen senden weis ich leider nicht

danke

Michael

[Frank]

Hallo Frank,

ich habe da 2 Frameseiten mit 2 unterschiedliche ASP Seiten . Durch die erste werden durch Listboxen einträge mit werten gewählt und per formular an das zweite gesendet. Bei der zweiten werden diese berechnet.
Nun möchte ich bei der ersten oder zweiten ASP Seite einen button erstellen die die daten der ersten asp und die der zweiten asp seite
gleichzeitig an eine 3 ASP Seite senden. Damit ein Bestätigungsformular entstehen kann. wie das mit dem versenden der daten geschiet weis ich ja aber zwei unterschiedliche frames mit zwei unterschiedli hen asp seiten zusammen senden weis ich leider nicht

danke

Michael

Hi Micha,

okay fein.

Frame1 -> aspxy1.asp

<FORM NAME="test1" action="aspxy2.asp" target="Frame2" Method=POST>
<% ' Deine Listbox mit Einträgen aus eine DB füllen %>
<input type=submit value="senden">
</FORM>

Frame2 -> aspxy2.asp

<form action="aspxyende.asp" method=post>
.... ' irgendwelche Inputfelder die du da brauchst
.... ' weitere Inputfelder...

<% For each feld in Request.Form %>
<input type="hidden" name="<%=feld%>" value="<%Request.Form(feld)%>")
<% Next %>

<input type="submit" value="abschicken">
</form>

Also einfach die per POST übergebenen Variablen wieder als Hidden-Inputs im Formular unterbringen... mit der 3. Seite kannst du es dann genauso machen.

Gruß, Frank

[Michael]

Hallo Frank,

Frame1 -> klaro

Frame2 -> berechne.asp ????

<form action="berechne.asp" method=post>
<% For each feld in Request.Form %>
<input type="hidden" name="<%=feld%>" value="<%Request.Form(feld)%>")
<% Next %>

<input type="submit" value="abschicken">
</form>

Vieleicht hilft dir das wegen dem Value da oben <%Request.Form(feld)%> <--- ????? (<hab nicht so viel ahnung in ASP :-)

So sieht der quellcode ohne die berechnungsfuntkion aus.

Dim file, Wahrung, intArtikel, intMENGE, intPreis1, intPreis2, intPreis3, intPreis4, intPreis5, intPreis6, intPreis7, intPreis8, intPreis9, IntEinzel, IntGesamt, IntMWST
if Request("wahr1") <> "" then
    Wahrung = Request("wahr1")
end if
if Request("wahr2") <> "" then
    Wahrung = Request("wahr2")
end if
if Request("MGE") <> "" then
    IntMENGE = int(Mid(Request("MGE"), 1, 2))
end if
if Request("NB") <> "" then
    intPreis1 = int(Mid(Request("NB"), 7, 5))
    intArtikel = int(Mid(Request("NB"), 1, 5))
end if
if Request("CPU") <> "" then
    intPreis2 = int(Mid(Request("CPU"), 7, 5))
end if
if Request("RAM") <> "" then
    intPreis3 = int(Mid(Request("RAM"), 7, 5))
end if
if Request("HD") <> "" then
    intPreis4 = int(Mid(Request("HD"), 7, 5))
end if
if Request("CD") <> "" then
    intPreis5 = int(Mid(Request("CD"), 7, 5))
end if
if Request("OS") <> "" then
    intPreis6 = int(Mid(Request("OS"), 7, 5))
end if
if Request("DFUE") <> "" then
    intPreis7 = int(Mid(Request("DFUE"), 7, 5))
end if
if Request("NT") <> "" then
    intPreis8 = int(Mid(Request("NT"), 7, 5))
end if
if Request("DS") <> "" then
    intPreis9 = int(Mid(Request("DS"), 7, 5))
end if

Vieleicht kannst du mir auf die sprünge helfen wie ich diese felder definiere ???

danke im Voraus

Michael