den skrive alert med det samme

Inden den har forespurgt på formen? Går ud fra det er en post fra en form der for den til det :-)

if isNumeric(Request.Form("pris")&"") then
if request.form("update") <> "" then

strSQL = "update pris set pris='" & replace(Request.Form("pris"),"'","''") & "' where id = " & request.querystring("id")
Set rs = DataConn.Execute(strSQL)

Alert = "Prisen er nu opdateret "

else
  Alert = "Du skal angive pris som et tal"

end if
end if
strSQL = "Select * From pris Where Id = " & Request.Querystring("id")
Set rs = DataConn.Execute(strSQL)

%>



<form method="post" action="retpris.asp?id=<%=request.querystring("id")%>">

<TABLE>
<TR>
    <TD>Pris: </TD>
    <TD><input type="text" name="pris" value="<%=rs("pris")%>" class="Formindhold" size="40"></TD>
</TR>

</TABLE>
<BR>       
<BR>
<center>   


<INPUT TYPE='submit' NAME='update' value='Ret pris' class='knap'>
</form>
<BR>
<B><FONT COLOR="#ff0000" size="2"><%=Alert%></FONT></B><BR>
</TD>
  </TR>
  </TABLE>

if isNumeric(Request.Form("pris")&"") then
if request.form("update") <> "" then

strSQL = "update pris set pris='" & replace(Request.Form("pris"),"'","''") & "' where id = " & request.querystring("id")
Set rs = DataConn.Execute(strSQL)

Alert = "Prisen er nu opdateret "

else
  Alert = "Du skal angive pris som et tal"

end if
end if
strSQL = "Select * From pris Where Id = " & Request.Querystring("id")
Set rs = DataConn.Execute(strSQL)

%>

<form method="post" action="retpris.asp?id=<%=request.querystring("id")%>">

<TABLE>
<TR>
<TD>Pris: </TD>
<TD>

<input type="text" name="pris" value="<%=rs("pris")%>" class="Formindhold" size="40">
<input type="text" name="update" value="1"></

</TD>
</TR>

</TABLE>
<BR>       
<BR>
<center>   


<INPUT TYPE='submit' NAME='submit' value='Ret pris' class='knap'>
</form>
<BR>
<B><FONT COLOR="#ff0000" size="2"><%=Alert%></FONT></B><BR>
</TD>
  </TR>
  </TABLE>

Hovsa - prøv denne her i stedet.

<%
if isNumeric(Request.Form("pris")&"") then
if request.form("update") <> "" then

strSQL = "update pris set pris='" & replace(Request.Form("pris"),"'","''") & "' where id = " & request.querystring("id")
Set rs = DataConn.Execute(strSQL)

Alert = "Prisen er nu opdateret "
else
Alert = "Du skal angive pris som et tal"

end if
end if
strSQL = "Select * From pris Where Id = " & Request.Querystring("id")
Set rs = DataConn.Execute(strSQL)
%>

<form method="post" action="retpris.asp?id=<%=request.querystring("id")%>">

<TABLE>
<TR>
<TD>Pris: </TD>
<TD>

<input type="text" name="pris" value="<%=rs("pris")%>" class="Formindhold" size="40">
<input type="hidden" name="update" value="1">

</TD>
</TR>

</TABLE>
<BR>       
<BR>
<center>   


<INPUT TYPE='submit' NAME='submit' value='Ret pris' class='knap'>
</form>
<BR>
<B><FONT COLOR="#ff0000" size="2"><%=Alert%></FONT></B><BR>
</TD>
  </TR>
  </TABLE>

ok nu skriver den ikke alerten Alert = "Du skal angive pris som et tal"

Var det ikke det du gerne ville ha? Eller skriver den det heller ikke hvis man indtaster bogstaver?

nemlig den skriver det ikke når man skriver bogstaver

Har fundet en løsning til dig og den er testet :-)

<%
if isNumeric(Request.Form("pris")&"") AND request.form("update") <> "" then

strSQL = "update pris set pris='" & replace(Request.Form("pris"),"'","''") & "' where id = " & request.querystring("id")
Set rs = DataConn.Execute(strSQL)

Alert = "Prisen er nu opdateret "

else

Alert = "Du skal angive pris som et tal"

end if

strSQL = "Select * From pris Where Id = " & Request.Querystring("id")
Set rs = DataConn.Execute(strSQL)
%>

Og alligevel ikke - fandt lige ud af at den skriver hele tiden nu at man skal angive prisen i tal. Kommer lige med noget nyt.

<%
if isNumeric(Request.Form("pris")&"") AND request.form("update") <> "" then

strSQL = "update pris set pris='" & replace(Request.Form("pris"),"'","''") & "' where id = " & request.querystring("id")
Set rs = DataConn.Execute(strSQL)

Alert = "Prisen er nu opdateret "

else

if request.form("update") <> "" then
Alert = "Du skal angive pris som et tal"
end if

end if

strSQL = "Select * From pris Where Id = " & Request.Querystring("id")
Set rs = DataConn.Execute(strSQL)
%>

og så skal jeg have et svar ... sådan jubii og 1000000 tak

Det var godt, vi fik det til at virke :-)

Men her er svaret.

ja så skal jeg lige have denne chekker ind som gør at man ikke kan rettet til en pris der allerede er oprettet

strSQL = "Select pris From pris Where pris = '" & replace(Request.Form("pris"),"'","''") & "';"

set rst = DataConn.Execute (strSQL)

if rst.bof and rst.eof then


Alert = "Du har allerede oprettet den pris, prøv igen"

hjælp

Opret en nyt spørgsmål - så deltager jeg gerne :-)

sådan