Kan jeg blive på samme side ved opdatering fra form
Jeg har en form der opretter eller ændre min DB, når jeg trykker submit kommer jeg over på min side der skriver til db, kan det laves så det er den samme side jeg bliver på.Side1.asp::
<!-- #include file="connect.asp" -->
<html>
<body>
<%' SQL forespørgsel
strSQL = "SELECT * from tblProjektData"
Set rs = DataConn.Execute(strSQL)%>
<table border="0" width="760" id="table2" cellspacing="0" cellpadding="0">
<tr>
<td rowspan="3" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0" id="table3">
<tr>
<td height="22">Sag:</td>
</tr>
<tr>
<td height="22">Martr.</td>
</tr>
<tr>
<td height="22">Ejer</td>
</tr>
<tr>
<td height="22">Adresse</td>
</tr>
<tr>
<td height="22"> </td>
</tr>
<tr>
<td height="22">Post By
</td>
</tr>
<tr>
<td height="22"> </td>
</tr>
</table>
</td>
<td rowspan="3" valign="top">
<form action="side2.asp" method="get">
<input type="text" name="sag" size="16" value="<%Response.Write rs("sag") %>"><br>
<input type="text" name="MatrNr" size="41" value="<%Response.Write rs("MatrNr") %>"><br>
<input type="text" name="Ejer" size="41" value="<%Response.Write rs("Ejer") %>"><br>
<input type="text" name="AdresseI" size="41" value="<%Response.Write rs("AdresseI") %>"><br>
<input type="text" name="AdresseII" size="41" value="<%Response.Write rs("AdresseII") %>"><br>
<input type="text" name="PostNr" size="8" value="<%Response.Write rs("PostNr") %>">
<input type="text" name="By" size="30" value="<%Response.Write rs("By_1") %>"><br><br>
<input type="submit" name="Submit" value="Submit Form"> <input type="reset" value="Reset" name="B2"></form>
</td>
</tr>
</tabel>
<%
' Luk databaseforbindelse
DataConn.Close
Set DataConn = Nothing
%>
</body>
</html>
Side2.asp::
<html>
<!-- #include file="connect.asp" -->
<%
Sag = Request.QueryString("Sag")
Ejer = Request.QueryString("Ejer")
MatrNr = Request.QueryString("MatrNr")
If Sag = "" Then
strSQL = "Insert into tblProjektData(Ejer, MatrNr) values('"& Ejer &"','" & MatrNr &"')"
Else
strSQL = "Update tblProjektData SET Ejer='"& Ejer &"',MatrNr='" & MatrNr &"' WHERE Sag = " & Sag
End If
DataConn.Execute(strSQL)
%>
<body>
<%If Sag = "" Then%>
Følgende Sag er blevet indsat:<br>
<%=Sag%><br>
<%=Ejer%><br>
<%=MatrNr%>
<%Else%>
Følgende er blevet Opdateret:<br>
<%=Sag%><br>
<%=Ejer%><br>
<%=MatrNr%>
<%End If%>
</body>
</html>
<%
' Luk databaseforbindelse
DataConn.Close
Set DataConn = Nothing
%>
