Datorn ville inte var med längre, men nu är jag tillbaka igen.
Jo jag har flera radiobuttons som lägger upp information från en sql databas.
SQL="select *from tabell
rs.Open SQL, MinCon
If request.form("Nya")="nya_lotter" then
där informationen från sql frågan visas (i en <tabel> )
så vill jag även ha med en knapp i slutet:
<INPUT type="submit" name=knapp value="Markera lotter" onclick="return confirm('Vill du markera lotterna?');">
If request.form("knapp")="Markera lotter" then
set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open"DSN=databas;UID=sa;PWD="
SQL="sp_lott"
set rs=minCon.execute(SQL)
end if
alltså så att knappen som ska utföra store proceduren bara ska komma fram om man klickar på en viss radiobutton. Detta är väl inte så svårt med att få knappen att utföra store proceduren verkar inte gå att göra.
Jag utföra proceduren om jag lägger den brevid mina radiobuttons men inte om jag lägger den i en <tabel>.
strSQL = "EXEC proceduren bla bla"
objConn.Execute (strSQL)
jag vet inte om du försöker göra det onödigt svårt för dig.
kom bara ihåg att all asp körs INNAN sidan kommer till klienten så nånting onclick="objCOnn.execute(strSQL)" är omöjligt att utföra utan att med till exempel js-location.href ropa på en ny asp-sida som utför det du vill.
varför fungerar det inte att lägga knappen "mark" i tabellen så den
bara kommer fram då en viss radiobutton är markerad och sedan utför
store proceduren om man klickar på den?
jag förstår inte riktigt vad ni menar att jag ska göra.
\<TABLE BORDER=0 align=center COLSPAN="0" rowspan="0" WIDTH="80%"\>
\<%
Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open"DSN=databas;UID=sa;PWD="
SQL="select \* from tabell"
rs.Open SQL, MinCon
If request.form("visa_lott")="nya lotter" then
%\>\<H2\>Nya lotter\</H2\>
\<TR\>
\<TD align=middle \>\<INPUT type="submit" name=mark value="lotter" onclick="return confirm('är du säker?');"\>
\<TD ALIGN=rightcenter WIDTH="40%"\>\<B\>\<U\>namn\</B\>\</U\>\</TD\>\<TD\>\</TD\>
\<TD ALIGN=rightcenter WIDTH="20%"\>\<B\>\<U\>Antal\</B\>\</U\>\</TD\>
\<TD\>\</TD\>
\</TR\>
\<%
%\>
\<TR\>
\<TD align=rightcenter\>\<BR\>\<%Response.Write(rs("namn"))%\>\<BR\>\<BR\>
\<TD\>
\<TD align=middle\>\<BR\>\<%Response.Write(rs("lotter"))%\>\</TD\>
\<%
end if
If request.form("mark")="lotter" then
Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open"DSN=databas;UID=sa;PWD="
SQL="sp_lott"
set rs=minCon.execute(SQL)
end if
det skulle var väldigt skönt att få detta att fungera.
tack för eran hjälp