Hejsan! du kan ju göra nånting sånthär... Mitt förslag är att skipa redirect. Posta informationen från admin.asp till admin.asp.<br>Response.Redirect i popup ruta ...
Jag har en popup ruta i mitt vb-script:
%>
<SCRIPT>
<!--
alert("Du måste fylla i ALLA fälten!");
-->
</SCRIPT>
<%
Kan jag använda Response.Redirect "admin.asp" tillsammans med den?
/TomasSv: Response.Redirect i popup ruta ...
<code>
%>
<SCRIPT>
<!--
alert("Du måste fylla i ALLA fälten!");
location.replace('admin.asp');
-->
</SCRIPT>
<%
</code>
eller så kan du byta ut location.replace('admin.asp') mot
<code>history.go(-1)</code>
det är detsamma som att klicka på bakåtknappen i browsern. då kommer förhoppningsvis fälten som var ifyllda fortfarande vara ifyllda.Sv: Response.Redirect i popup ruta ...
<br>
Exempel:
<code>
<%@ Language=VBScript %>
<%Option Explicit%>
<HTML>
<HEAD>
<TITLE>Test</TITLE>
</HEAD>
<BODY>
<%
Function SQLText(Value)
If Len(Value) > 0 Then
SQLText = "'" & Replace(SQLText,"'","''") & "'"
Else
SQLText = "Null"
End if
End Function
Sub Main
Dim con
Dim strFirstName
Dim strLastName
Dim strEMail
Dim strMessage
If Request.Form("Action") = "Save" Then
strFirstName = Trim(Request.Form("FirstName"))
strLastName = Trim(Request.Form("LastName"))
strEMail = Trim(Request.Form("EMail"))
If Len(strFirstName) = 0 Then
strMessage = strMessage & ", fylla i förnamn"
End if
If Len(strLastName) = 0 Then
strMessage = strMessage & ", fylla i efternamn"
End if
If Len(strEMail) = 0 Then
strMessage = strMessage & ", fylla i E-Mail"
ElseIf instr(strEMail, "@") = 0 Then
strMessage = strMessage & ", fylla i en korrekt E-Mail"
End if
If Len(strMessage) > 0 Then
%>
<FORM action="" method=post id=form1 name=form1>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TR>
<TD><B>Förnamn:</B></TD>
<TD><INPUT name=FirstName value="<%=Replace(strFirstName,"""","""""")%>"></TD></TR>
<TR>
<TD><B>Efternamn:</B></TD>
<TD><INPUT name=LastName value="<%=Replace(strLastName,"""","""""")%>"></TD></TR>
<TR>
<TD><B>E-Post:</B></TD>
<TD><INPUT name=EMail value="<%=Replace(strEMail,"""","""""")%>"></TD></TR>
<TR>
<TD align=right colSpan=2><INPUT type=submit value=Save name=Action></TD></TR>
</TABLE>
</FORM>
<SCRIPT language=javascript>
alert("För att kunna spara måste du <%=Mid(strMessage, 3)%>");
</SCRIPT>
<%
Else
'*** Exempel på spara kod
'*** Set con = Server.CreateObject("ADODB.Connection")
'*** con.Open "<<<Connection Sträng>>>"
'*** con.Execute "INSERT INTO TabellNamn (FirstName, LastName, EMail) VALUES (" & SQLText(strFirstName) & ", " & SQLText(strLastName) & ", " & SQLText(strEMail) & ")"
'*** con.Close
%>
<H3>Din post är sparad:</H3>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TR>
<TD><B>Förnamn:</B></TD>
<TD><%=strFirstName%></TD></TR>
<TR>
<TD><B>Efternamn:</B></TD>
<TD><%=strLastName%></TD></TR>
<TR>
<TD><B>E-Post:</B></TD>
<TD><%=strEMail%></TD></TR></TABLE>
<TR>
<TD align=right colSpan=2>Huvudmenyn</TD></TR>
<%
End if
Else
%>
<FORM action="" method=post id=form1 name=form1>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TR>
<TD><B>Förnamn:</B></TD>
<TD><INPUT name=FirstName></TD></TR>
<TR>
<TD><B>Efternamn:</B></TD>
<TD><INPUT name=LastName></TD></TR>
<TR>
<TD><B>E-Post:</B></TD>
<TD><INPUT name=EMail></TD></TR>
<TR>
<TD align=right colSpan=2><INPUT type=submit value=Save name=Action></TD></TR>
</TABLE>
</FORM>
<%
End if
End sub
Main
%>
</BODY>
</HTML>
</code>