nicht angemeldet
Hallo EKKi
Und schon haben wir des Rätsels Lösung:
Zur Info hier einmal den Sourcecode, natürlich erheblich gekürzt, aber alle relevanten Stellen vorhanden.
sVersion wird einmal deklariert. Kann es sein, dass ASP durch den zweimaligen aufruf von request.form() aus dieser dann ein array macht?
Und wenn ja, ist es überhaupt von nöten, zwei response zu machen wo doch die zweite .asp nur in die erste mit eingebettet wird? Würde da nicht einmal genügen und zwar im ersten asp? Oder kennt dann das zweite asp die Werte nicht mehr?
<%@ Language = VBScript%>
<%Option Explicit%>
<%On Error Resume Next%>
<!-- #include file="includes.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<%
'Server Cache der Seite deaktivieren
Response.CacheControl = "Private"
dim iStep
dim sVersion
sVersion = replace(replace(Request.form("version"), ",", ""), " ", "")
iStep = replace(replace(Request.form("Step"), ",", ""), " ", "")
%>
</head>
<body class=nav>
<a name=CheckIn></a>
<form method="post" action="infos.asp#Infos">
<% if iStep < 3 then %>
<!-- #include file="Anfragen.asp" -->
<% else %>
<!-- #include file="Mails.asp" -->
<% end if %>
</form>
</body>
</html>
Anfragen.asp sieht dann in etwa so aus ( wieder kurzform )
<%
sVersion = replace(replace(Request.form("version"), ",", ""), " ", "")
iStep = replace(replace(Request.form("Step"), ",", ""), " ", "")
%>
<table border=0 cellPadding=0 cellSpacing=0 width="100%">
<thead class=nav>
<tr>
<td width=100%><font size=1>
<%
if sVersion = "" or VersionExist then
response.write( "<i>Version</i>" )
else
call CheckVersionNumber( sVersion )
if VersionOk then
call DbConnection("open")
call checkVersion( TvnId, sVersion )
call DbConnection("close")
if not VersionExist then
response.write( sVersion )
iStep = 2
end if
end if
end if
%></font>
</tr>
</thead>
</table>
<table border=0 cellPadding=0 cellSpacing=2 width=600>
<tbody class=info>
<tr>
<td width=400>
<% call DbConnection("open") %>
<% if Projekt <> ""
and Teilprojekt <> ""
and ( iStep = ""
or iStep = 0
or iStep = 1 ) then %>
<font color="#dc5132"><b>ACHTUNG:</b><br>
<%
call getVersion( iTvnId )
if not VersionFound then
response.write("noch keine Version übergeben<br><br>")
iStep = 0
else
%>
<% if sVersion = "" or VersionExist then %>
<script language="JavaScript">
<!--
parent.nav.nav2.location = "../navleiste.asp";
// -->
</script>
<% end if %>
<%
call checkVersion( iTvnId, sVersion )
if VersionExist then
response.write("Version existiert, neue Version melden!")
iStep = 0
else
call CheckVersionNumber( sVersion )
if not VersionOk and sVersion <> "" then
response.write( "Versionsnummer nur aus Ziffern<br>" _
mit einer Ziffer beginnen und enden!" )
iStep = 0
else
response.write( sVersion )
end if
end if
end if
%>
<br>
<input name="version" size="10">
<input type="image" src="../Images/ValueOK.gif" name="OKPrjInfo">
<% else %>
<%= sVers %>
<% end if %>
<% call DbConnection("close") %>
</td></font>
</tr>
</tbody>
</table>
<!-- Formularelemente speichern -->
<input type="hidden" name="version" value="<%= sVersion %>">
<input type="hidden" name="Step" value="<%= iStep %>">
mfg
emetiel