Notifikationer

Markér alle som læst Log ud

isaac Nybegynder

20. august 2003 - 00:12 Der er 50 kommentarer og
1 løsning

Hvad gør jeg forkert?

Jeg har tilført disse koder for at få det sådan at jeg kan rette i præmierne også:

SQL = "select * from spmpraemie where spmGruppe=" & id
Set rs = Conn.Execute(SQL)
premieOverskrift = rs("premieOverskrift")
premieNavn = rs("premieNavn")
premieBillede = rs("premieBillede")

<tr><td>premie Overskrift</td>
<td><input type="text" size="50" name="premieOverskrift" value="<%=premieOverskrift%>">
</td></tr>

<tr><td>Præmie Navn</td>
<td><input type="text" size="50" name="premieNavn" value="<%=premieNavn%>">
</td></tr>

<tr><td>Premie Billede</td>
<td><input type="text" size="50" name="premieBillede" value="<%=premieBillede%>">
</td></tr>

Og jeg kan se præmierne men jeg kan ikke få lov til at rette dem
Men jeg kan stadig få lov til at rette i konkurrencen.

Hvad gør jeg forkert
Alle konkurrence koderne er posteret da jeg ikke ved hvilke koder jeg gør for i!

case "konkurrencesiden"

submode=Request.QueryString("submode")
if submode = "" then submode = "list"

select case submode
case "list"

Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.recordset")
Conn.Open tempConn

SQL = "select * from spmGruppe order by gruppeID desc"
Set rs = Conn.Execute(SQL)

Response.Write "<center><table><tr>"
Response.Write "<td>ID   </td><td>navn</td>"
Response.Write "<td>Test</td>"
Response.Write "<td>Ret</td>"
Response.Write "</tr>"

do while not rs.EOF
Response.Write "<tr>"
Response.Write "<td>" & rs("gruppeID") & "</td>"
Response.Write "<td>" & rs("spmGruppeNavn") & "</td>"
Response.Write "<td><a href=""/kon/default.asp?testthis=visfortest&ID=" & rs("gruppeID") & """>Test</a></td>"
Response.Write "<td><a href=""" & adminFilNavn & "?mode=konkurrencesiden&submode=add&ID=" & rs("gruppeID") & """>Ret</a></td>"
Response.Write "</tr>"
rs.MoveNext
loop
Response.Write "</table>"

Response.Write "<br><br>"
Response.Write "<a href=""" & adminFilNavn & "?mode=konkurrencesiden&submode=add"">Tilføj konkurrence</a>"
Response.Write " | "
Response.Write "<a href=""" & adminFilNavn & "?mode=konkurrencesiden&submode=addpraemie"">Tilføj præmie</a>"
Response.Write " | "
Response.Write "<a href=""" & adminFilNavn & """>Tilbage</a>"
Response.Write "</center>"

Conn.Close
Set Conn = Nothing

case "add"
id = Request("ID")

Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.recordset")
Conn.Open tempConn

str10 = ",,,,,,,,,"
arrSpm = split(str10, ",")
arrSvar = split(str10, ",")
if id <> "" then
SQL = "select * from spmGruppe where gruppeID=" & id
Set rs = Conn.Execute(SQL)

spmGruppeNavn = rs("spmGruppeNavn")
sponsorNavn = rs("sponsorNavn")
sponsorWWW = rs("sponsorWWW")
sponsorBillede = rs("sponsorBillede")
startDato = rs("startDato")
slutDato = rs("slutDato")
valg = rs("valg")
bemerkning = rs("bemerkning")
aktiv = rs("aktiv")

SQL = "select * from spmpraemie where spmGruppe=" & id
Set rs = Conn.Execute(SQL)
premieOverskrift = rs("premieOverskrift")
premieNavn = rs("premieNavn")
premieBillede = rs("premieBillede")

SQL = "select * from spmTabel where spmGruppeId=" & id
Set rs = Conn.Execute(SQL)
i = 0
do while not rs.EOF
arrSpm(i) = rs("spmText")
arrSvar(i) = rs("spmSvar")
i = i + 1
rs.Movenext
loop
End If
%><center>
<form method="POST" action="<%=adminFilNavn%>?mode=konkurrencesiden&submode=
<% if id = "" then
Response.Write "gem"
else
Response.Write "opdater&ID=" & id
end if %>
">

<table>
<tr><td><b>Sponser</b></td><td><b>Tekst</b></td></tr>

<tr><td>Sponsor</td>
<td><input type="text" size="50" name="sponsorNavn" value="<%=sponsorNavn%>">
</td></tr>

<tr><td>Link</td>
<td><input type="text" size="50" name="wwwSponsorAdr" value="<%=sponsorWWW%>">
</td></tr>

<tr><td>Sponsor Billede</td>
<td><input type="text" size="50" name="sponsorBillede" value="<%=sponsorBillede%>">
</td></tr>

<tr><td><b>konkurrence Data</b></td><td><b></b></td></tr>
<tr><td>Gruppe Navn</td>
<td><input type="text" size="50" name="spmGruppe" value="<%=spmGruppeNavn%>"></td>
</tr>

<tr><td>Start Dato (dd-mm-yyyy)</td>
<td><input type="text" size="50" name="startDato" value="<%=startDato%>"></td>
</tr>

<tr><td>Slut Dato (dd-mm-yyyy)</td>
<td><input type="text" size="50" name="slutDato" value="<%=slutDato%>"></td>
</tr>

<tr><td><b>Spørgsmål</b></td><td><b>Svar mulighed</b></td></tr>
<tr><td><input type="text" size="50" name="spm1" value="<%=arrSpm(0)%>"></td>
<td>Ja <input type="Radio" name="1" value="1"
<% if CStr(""&arrSvar(0)) = "1" then Response.Write " CHECKED " %>
>
Nej <input type="Radio" name="1" value="0"
<% if CStr(""&arrSvar(0)) = "0" then Response.Write " CHECKED " %>
>
</td></tr>

<tr><td><input type="text" size="50" name="spm2" value="<%=arrSpm(1)%>"></td>
<td>Ja <input type="Radio" name="2" value="1"
<% if CStr(""&arrSvar(1)) = "1" then Response.Write " CHECKED " %>
>
Nej <input type="Radio" name="2" value="0"
<% if CStr(""&arrSvar(1)) = "0" then Response.Write " CHECKED " %>
> </td></tr>

<tr><td><input type="text" size="50" name="spm3" value="<%=arrSpm(2)%>"></td>
<td>Ja <input type="Radio" name="3" value="1"
<% if CStr(""&arrSvar(2)) = "1" then Response.Write " CHECKED " %>
>
Nej <input type="Radio" name="3" value="0"
<% if CStr(""&arrSvar(2)) = "0" then Response.Write " CHECKED " %>
> </td></tr>

<tr><td><input type="text" size="50" name="spm4" value="<%=arrSpm(3)%>"></td>
<td>Ja <input type="Radio" name="4" value="1"
<% if CStr(""&arrSvar(3)) = "1" then Response.Write " CHECKED " %>
>
Nej <input type="Radio" name="4" value="0"
<% if CStr(""&arrSvar(3)) = "0" then Response.Write " CHECKED " %>
> </td></tr>

<tr><td><input type="text" size="50" name="spm5" value="<%=arrSpm(4)%>"></td>
<td>Ja <input type="Radio" name="5" value="1"
<% if CStr(""&arrSvar(4)) = "1" then Response.Write " CHECKED " %>
>
Nej <input type="Radio" name="5" value="0"
<% if CStr(""&arrSvar(4)) = "0" then Response.Write " CHECKED " %>
> </td></tr>

<tr><td><input type="text" size="50" name="spm6" value="<%=arrSpm(5)%>"></td>
<td>Ja <input type="Radio" name="6" value="1"
<% if CStr(""&arrSvar(5)) = "1" then Response.Write " CHECKED " %>
>
Nej <input type="Radio" name="6" value="0"
<% if CStr(""&arrSvar(5)) = "0" then Response.Write " CHECKED " %>
> </td></tr>

<tr><td><input type="text" size="50" name="spm7" value="<%=arrSpm(6)%>"></td>
<td>Ja <input type="Radio" name="7" value="1"
<% if CStr(""&arrSvar(6)) = "1" then Response.Write " CHECKED " %>
>
Nej <input type="Radio" name="7" value="0"
<% if CStr(""&arrSvar(6)) = "0" then Response.Write " CHECKED " %>
> </td></tr>

<tr><td><input type="text" size="50" name="spm8" value="<%=arrSpm(7)%>"></td>
<td>Ja <input type="Radio" name="8" value="1"
<% if CStr(""&arrSvar(7)) = "1" then Response.Write " CHECKED " %>
>
Nej <input type="Radio" name="8" value="0"
<% if CStr(""&arrSvar(7)) = "0" then Response.Write " CHECKED " %>
> </td></tr>

<tr><td><input type="text" size="50" name="spm9" value="<%=arrSpm(8)%>"></td>
<td>Ja <input type="Radio" name="9" value="1"
<% if CStr(""&arrSvar(8)) = "1" then Response.Write " CHECKED " %>
>
Nej <input type="Radio" name="9" value="0"
<% if CStr(""&arrSvar(8)) = "0" then Response.Write " CHECKED " %>
> </td></tr>

<tr><td><input type="text" size="50" name="spm10" value="<%=arrSpm(9)%>"></td>
<td>Ja <input type="Radio" name="10" value="1"
<% if CStr(""&arrSvar(9)) = "1" then Response.Write " CHECKED " %>
>
Nej <input type="Radio" name="10" value="0"
<% if CStr(""&arrSvar(9)) = "0" then Response.Write " CHECKED " %>
> </td></tr>

<tr><td>Valg-muligheder til "Jeg forstækker":<br> (adskil med ; max 100 karakter)</td>
<td><input type="text" size="50" maxlength="100" name="valg" value="<%=valg%>"></td>
</tr>
</tr>

<tr><td>Bemærkninger</td>
<td><input type="text" size="50" name="bemerkning" value="<%=bemerkning%>"></td>
</tr>

<tr><td>Skal konkurrencen være aktiv:</td><td><input type="checkbox" name="aktiv" value="ok"
<% if CStr(""&aktiv) = "1" then Response.Write " CHECKED " %>
></td></tr>

<tr><td>premie Overskrift</td>
<td><input type="text" size="50" name="premieOverskrift" value="<%=premieOverskrift%>">
</td></tr>

<tr><td>Præmie Navn</td>
<td><input type="text" size="50" name="premieNavn" value="<%=premieNavn%>">
</td></tr>

<tr><td>Premie Billede</td>
<td><input type="text" size="50" name="premieBillede" value="<%=premieBillede%>">
</td></tr>

<tr><td> </td><td><input type="submit" name="Gem" value="Gem"></td></tr>
<tr><td colspan=2>Note: Udfyld alle felter!!</td></tr>
</table>
</form>
</center>
<%

case "addpraemie"
%>
<center>
<form method="POST" action="<%=adminFilNavn%>?mode=konkurrencesiden&submode=gempraemie">
<table>
<tr><td>Præmie</td>
<td><input type="text" size="50" name="premieNavn">
</td></tr>

<tr><td>Præmie billede</td>
<td><input type="text" size="50" name="premieBillede">
</td></tr>

<tr><td>Overskrift</td>
<td><input type="text" size="50" name="premieOverskrift">
</td></tr>

<tr><td>Til Konkurrence</td>
<td><select name="premieKonkurrence">
<%
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.recordset")
Conn.Open tempConn

SQL = "select gruppeID, spmGruppeNavn from spmGruppe order by gruppeID desc"
Set rs = Conn.Execute(SQL)

do while not rs.EOF
Response.Write "<option value=""" & rs("gruppeID") & """>" & rs("spmGruppeNavn") & "</option>"
rs.MoveNext
loop

Conn.Close
Set Conn = Nothing
%>
</select>
</td></tr>

<tr><td> </td><td><input type="submit" name="Gem" value="Gem"></td></tr>
<tr><td colspan="2">Note: Udfyld alle felter!!</td></tr>
</table>
</form>

</center>

<%

case "gem"
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.recordset")
Conn.Open tempConn

if Request.ServerVariables("REQUEST_METHOD") = "POST" then
spmGruppeNavn = Request.Form("spmGruppe")
sponsorNavn = Request.Form("sponsorNavn")
sponsorWWW = Request.Form("wwwSponsorAdr")
sponsorBillede = Request.Form("sponsorBillede")
startDato = Dato(Request.Form("startDato"))
slutDato = Dato(Request.Form("slutDato"))
valg = Request.Form("valg")
bemerkning = Request.Form("bemerkning")
aktiv = Request.Form("aktiv")
if aktiv = "" then
aktiv = 0
else
aktiv = 1
end if

strSQL = "INSERT INTO spmGruppe (spmGruppeNavn,sponsorNavn,sponsorWWW,sponsorBillede,"
strSQL = strSQL & "startDato,slutDato,valg,bemerkning,aktiv) VALUES ("
strSQL = strSQL & "'" & spmGruppeNavn & "',"
strSQL = strSQL & "'" & sponsorNavn & "',"
strSQL = strSQL & "'" & sponsorWWW & "',"
strSQL = strSQL & "'" & sponsorBillede & "',"
if DATABASE_TYPE = "MySQL" then
strSQL = strSQL & "'" & startDato & "',"
strSQL = strSQL & "'" & slutDato & "',"
else
strSQL = strSQL & "#" & startDato & "#,"
strSQL = strSQL & "#" & slutDato & "#,"
end if
strSQL = strSQL & "'" & valg & "',"
strSQL = strSQL & "'" & bemerkning & "',"
strSQL = strSQL & "" & aktiv & ""
strSQL = strSQL & ");"
' Response.Write strSQL
Conn.execute(strSQL)

'Find den nye gruppe
if DATABASE_TYPE = "MySQL" then
strSQL = "SELECT * FROM spmGruppe ORDER BY gruppeID DESC LIMIT 0,1;"
else
strSQL = "SELECT TOP 1 * FROM spmGruppe ORDER BY gruppeID DESC;"
end if
set rs = conn.execute(strSQL)
gruppeID = rs("gruppeID")

'Indsæt spørgsmålene i den nye gruppe
for i = 1 to 10
spmText = replace(Request.Form("spm"&i),"'","''")
spmSvar = Request.Form("" & i)

if spmText <> "" and spmSvar <> "" then
strSQL = "insert into spmTabel (spmGruppeId,spmText,spmSvar) VALUES ("
strSQL = strSQL & "" & gruppeID & ", "
strSQL = strSQL & "'" & spmText & "', "
strSQL = strSQL & "" & spmSvar & ")"
' Response.Write strSQL & "<br>"
Conn.execute(strSQL)
end if
next

'Så er den nye konkurrence lagt ind.
End If

Conn.Close
Set Conn = Nothing

Response.Redirect(adminFilNavn & "?mode=konkurrencesiden")
case "opdater"
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.recordset")
Conn.Open tempConn

if Request.ServerVariables("REQUEST_METHOD") = "POST" then
spmGruppeNavn = Request.Form("spmGruppe")
sponsorNavn = Request.Form("sponsorNavn")
sponsorWWW = Request.Form("wwwSponsorAdr")
sponsorBillede = Request.Form("sponsorBillede")
startDato = Dato(Request.Form("startDato"))
slutDato = Dato(Request.Form("slutDato"))
valg = Request.Form("valg")
bemerkning = Request.Form("bemerkning")
aktiv = Request.Form("aktiv")
if aktiv = "" then
aktiv = 0
else
aktiv = 1
end if

strSQL = "UPDATE spmGruppe SET "
strSQL = strSQL & "spmGruppeNavn = '" & spmGruppeNavn & "', "
strSQL = strSQL & "sponsorNavn = '" & sponsorNavn & "', "
strSQL = strSQL & "sponsorWWW = '" & sponsorWWW & "', "
strSQL = strSQL & "sponsorBillede = '" & sponsorBillede & "',"
strSQL = strSQL & "startDato = '" & startDato & "', "
strSQL = strSQL & "slutDato = '" & slutDato & "', "
strSQL = strSQL & "valg = '" & valg & "', "
strSQL = strSQL & "bemerkning = '" & replace(bemerkning, "'", "''") & "', "
strSQL = strSQL & "aktiv = " & aktiv & " "
strSQL = strSQL & " WHERE gruppeID = " & Request("ID")

Conn.execute(strSQL)

strSQL = "DELETE FROM spmTabel WHERE spmGruppeId = " & request("ID")
conn.execute(strSQL)
gruppeID = Request("ID")

'Indsæt spørgsmålene i den nye gruppe
for i = 1 to 10
spmText = replace(Request.Form("spm"&i),"'","''")
spmSvar = Request.Form("" & i)

if spmText <> "" and spmSvar <> "" then
strSQL = "insert into spmTabel (spmGruppeId,spmText,spmSvar) VALUES ("
strSQL = strSQL & "" & gruppeID & ", "
strSQL = strSQL & "'" & spmText & "', "
strSQL = strSQL & "" & spmSvar & ")"
' Response.Write strSQL & "<br>"
Conn.execute(strSQL)
end if
next

'Så er den konkurrence rettet.
End If

Conn.Close
Set Conn = Nothing

Response.Redirect(adminFilNavn & "?mode=konkurrencesiden")

'Gem præmie i databasen her:
Case "gempraemie"

Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.recordset")
Conn.Open tempConn

if Request.ServerVariables("REQUEST_METHOD") = "POST" then
premieNavn = Request.Form("premieNavn")
premieBillede = Request.Form("premieBillede")
premieOverskrift = Request.Form("premieOverskrift")
premieKonkurrence = Request.Form("premieKonkurrence")

SQL = "insert into spmPraemie (spmgruppe, premieNavn, premieBillede, premieOverskift)"
SQL = SQL & " VALUES ("
SQL = SQL & "" & premieKonkurrence & ", "
SQL = SQL & "'" & premieNavn & "', "
SQL = SQL & "'" & premieBillede & "', "
SQL = SQL & "'" & premieOverskrift & "'"
SQL = SQL & ")"
Conn.Execute(SQL)
end if
Conn.Close
Set Conn = Nothing

Response.Redirect(adminFilNavn & "?mode=konkurrencesiden")

'Hvis det er en ukendt submode så redirect til mode= konkurrencesiden
Case Else
Response.Redirect(adminFilNavn & "?mode=konkurrencesiden")

End Select 'submode

Synes godt om

erikjacobsen Ekspert

20. august 2003 - 00:16 #1

Velsagtens fordi du har en UPDATE til anden tabel og ikke til denne.

Prøv at strukturere din kode, så du selv kan se hvad der foregår.

Synes godt om

isaac Nybegynder

20. august 2003 - 00:25 #2

Det er meget svært for mig at gøre noget med mine koder da jeg ikke har skrevet dem, og ikke selv kan koder ud over ud over de småting jeg efterhånden har kigget mig til....og det er ikke særlig meget (c:

Kunne du ikke give mig lidt flere hints?
Gerne lidt skæret ud i pap

Synes godt om

erikjacobsen Ekspert

20. august 2003 - 00:27 #3

Så synes det også som et stort projekt du er gået i gang med ;)
Måske der er andre der har tid og lyst

Synes godt om

isaac Nybegynder

20. august 2003 - 00:31 #4

er det meget jeg mangler!
Jeg kunne selv forestille mig at det ikke er særlig meget der skal tilrettes jeg ved bare ikke hvad det er? :)

Synes godt om

ellebaek Nybegynder

20. august 2003 - 10:32 #5

jeg lovede dig at kigge på det...

Så det skal jeg nok..
Skal bare lige spise morgenmad først...!

Synes godt om

isaac Nybegynder

20. august 2003 - 17:29 #6

Det lyder godt!
Har du fået spist morgenmaden (c:

Synes godt om

ellebaek Nybegynder

20. august 2003 - 22:02 #7

Først den del hvor du kan se de forskellige præmier:
<%

SQL = "select * from spmpraemie where spmGruppe=" & id
Set rs = Conn.Execute(SQL)
premieOverskrift = rs("premieOverskrift")
premieNavn = rs("premieNavn")
premieBillede = rs("premieBillede")
%>

<form method="POST" action="<%=adminFilNavn%>?mode=konkurrencesiden&submode=editPraemie&id=<%=id%>">

<tr><td>premie Overskrift</td>
<td><input type="text" size="50" name="premieOverskrift" value="<%=premieOverskrift%>">
</td></tr>

<tr><td>Præmie Navn</td>
<td><input type="text" size="50" name="premieNavn" value="<%=premieNavn%>">
</td></tr>

<tr><td>Premie Billede</td>
<td><input type="text" size="50" name="premieBillede" value="<%=premieBillede%>">
</td></tr>
<tr><td><INPUT TYPE="submit" NAME="send" Value="ret Præmie"></td><td> </td></tr>
</form>

Derefter den del du skal tilføje i hele din side, for at få muligheden for at opdatere præmierne....

case editPraemie

Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.recordset")
Conn.Open tempConn

if Request.ServerVariables("REQUEST_METHOD") = "POST" then
premieNavn = Request.Form("premieNavn")
premieBillede = Request.Form("premieBillede")
premieOverskrift = Request.Form("premieOverskrift")

SQL = "Update spmPraemie SET premieNavn='"&premieNavn&"', premieBillede='"&premieBillede&"', premieOverskift='"&premieOverskrift&"' WHERE spmGruppe = " & request.querystring("id")

Conn.Execute(SQL)
end if
Conn.Close
Set Conn = Nothing

Response.Redirect(adminFilNavn & "?mode=konkurrencesiden")

Jeg har ikke rigtig mulighed for at chekke det, men prøv det engang og meld tilbage...

Synes godt om

isaac Nybegynder

21. august 2003 - 02:42 #8

Hejsa

Jeg er lige forbi for en kort bemærkning, jeg skal i seng igen :)

Jeg bliver nød til at ha' lidt hjælp på hvor koderne skal stå og hvilke der evt. skal slettes.

Synes godt om

ellebaek Nybegynder

21. august 2003 - 09:19 #9

Hele den første del, den del med formen skal bare ind i stedet for den form du selv har lavet, altså det du selv har sat ind i starten af dit spg.

Resten sætter du ind nederst på din side mellem

Response.Redirect(adminFilNavn & "?mode=konkurrencesiden")

'Her skal resten af scriptet sættes ind..!

'Hvis det er en ukendt submode så redirect til mode= konkurrencesiden
Case Else
Response.Redirect(adminFilNavn & "?mode=konkurrencesiden")

End Select 'submode

Synes godt om

isaac Nybegynder

21. august 2003 - 09:25 #10

Tak :)
Jeg kigger lige på det

Synes godt om

isaac Nybegynder

21. august 2003 - 09:38 #11

Jeg kan ikke teste det lige nu!
Min udbyder er ved at flytte servere så jeg kan nok først teste det i aften!

Jeg skal lige høre....
Jeg skal altså skifte disse:
<tr><td>premie Overskrift</td>
<td><input type="text" size="50" name="premieOverskrift" value="<%=premieOverskrift%>">
</td></tr>

<tr><td>Præmie Navn</td>
<td><input type="text" size="50" name="premieNavn" value="<%=premieNavn%>">
</td></tr>

<tr><td>Premie Billede</td>
<td><input type="text" size="50" name="premieBillede" value="<%=premieBillede%>">
</td></tr>

Med disse:

<form method="POST" action="<%=adminFilNavn%>?mode=konkurrencesiden&submode=editPraemie&id=<%=id%>">

<tr><td>premie Overskrift</td>
<td><input type="text" size="50" name="premieOverskrift" value="<%=premieOverskrift%>">
</td></tr>

<tr><td>Præmie Navn</td>
<td><input type="text" size="50" name="premieNavn" value="<%=premieNavn%>">
</td></tr>

<tr><td>Premie Billede</td>
<td><input type="text" size="50" name="premieBillede" value="<%=premieBillede%>">
</td></tr>
<tr><td><INPUT TYPE="submit" NAME="send" Value="ret Præmie"></td><td> </td></tr>
</form>

Synes godt om

isaac Nybegynder

21. august 2003 - 09:39 #12

Ups gej glemte lidt af de koder som skulle udskiftes
Her er det hele:

<tr><td>premie Overskrift</td>
<td><input type="text" size="50" name="premieOverskrift" value="<%=premieOverskrift%>">
</td></tr>

<tr><td>Præmie Navn</td>
<td><input type="text" size="50" name="premieNavn" value="<%=premieNavn%>">
</td></tr>

<tr><td>Premie Billede</td>
<td><input type="text" size="50" name="premieBillede" value="<%=premieBillede%>">
</td></tr>

<tr><td> </td><td><input type="submit" name="Gem" value="Gem"></td></tr>
<tr><td colspan=2>Note: Udfyld alle felter!!</td></tr>

Synes godt om

ellebaek Nybegynder

21. august 2003 - 09:40 #13

ja, det skal du...!

Synes godt om

isaac Nybegynder

21. august 2003 - 09:42 #14

Ok!
Jeg vender tilbage når jeg kan teste :=)

Synes godt om

isaac Nybegynder

21. august 2003 - 23:17 #15

Jeg vil bare lige sige at siden er ikke oppe endnu, så jeg har ikke kunne teste det!

Så jeg tester det i morgen tidlig

Synes godt om

isaac Nybegynder

22. august 2003 - 07:50 #16

Hej ellebaek

Så har jeg endelig testet den!
Man kan stadig ikke "rette præmie", når man rettet et eller andet bliver det ikke fjernet

Synes godt om

isaac Nybegynder

22. august 2003 - 08:02 #17

Det er også en anden lille ting!

Konkurrencen er lavet sådan at hvis jeg har flere præmier på en gang kan den lave dette! altså under "spmgruppe 4" er der 3 forskellige præmier:

id spmgruppe premieOverskrift premieNavn
1 4 Præmie: 2 stk. DVD filmen osv
2 4 Præmie: 2 stk DVD filmen osv
3 4 Præmie: 2 stk. DVD filmen osv

Hvordan laver vi det så hvis der netop er flere præmier så vises der også flere præmier inde på adminsiden som kan rettes

Synes godt om

isaac Nybegynder

22. august 2003 - 17:10 #18

Hejsa ellebaek

Gider du stadig kigge lidt vidre på det??

Synes godt om

ellebaek Nybegynder

22. august 2003 - 19:12 #19

ja...

Synes godt om

isaac Nybegynder

22. august 2003 - 19:20 #20

det lyder godt (c:

Synes godt om

ellebaek Nybegynder

22. august 2003 - 19:24 #21

<%

SQL = "select * from spmpraemie where spmGruppe=" & id
Set rs = Conn.Execute(SQL)
premieOverskrift = rs("premieOverskrift")
premieNavn = rs("premieNavn")
premieBillede = rs("premieBillede")
%>

<form method="POST" action="<%=adminFilNavn%>?mode=konkurrencesiden&submode=editPraemie&id=<%=id%>">
<%
while not rs.eof
%>
<tr><td>premie Overskrift</td>
<td><input type="text" size="50" name="premieOverskrift" value="<%=premieOverskrift%>">
</td></tr>

<tr><td>Præmie Navn</td>
<td><input type="text" size="50" name="premieNavn" value="<%=premieNavn%>">
</td></tr>

<tr><td>Premie Billede</td>
<td><input type="text" size="50" name="premieBillede" value="<%=premieBillede%>">
</td></tr>
<%
rs.movenext
wend
%>
<tr><td><INPUT TYPE="submit" NAME="send" Value="ret Præmie"></td><td> </td></tr>
</form>

På ovenstående måde får du alle de forskellige præmier der er tilgængelige...

Jeg er ikke sikker på jeg forstår hvad du mener med:
"Man kan stadig ikke "rette præmie", når man rettet et eller andet bliver det ikke fjernet"

Er det ikke meningen at du skal kunne ændre det der står som præmir, i stedet for at slippe den..!

Synes godt om

isaac Nybegynder

22. august 2003 - 19:56 #22

Nu virker den slet ikke!

Det med præmier er helt forsvundet bortset fra "ret præmier" knappen

Og copyright teksten er flyttet op i toppen

Synes godt om

ellebaek Nybegynder

22. august 2003 - 20:02 #23

<%

SQL = "select * from spmpraemie where spmGruppe=" & id
Set rs = Conn.Execute(SQL)
%>

<form method="POST" action="<%=adminFilNavn%>?mode=konkurrencesiden&submode=editPraemie&id=<%=id%>">
<%
while not rs.eof
%>
<tr><td>premie Overskrift</td>
<td><input type="text" size="50" name="premieOverskrift" value="<%=rs("premieOverskrift")%>">
</td></tr>

<tr><td>Præmie Navn</td>
<td><input type="text" size="50" name="premieNavn" value="<%=rs("premieNavn")%>">
</td></tr>

<tr><td>Premie Billede</td>
<td><input type="text" size="50" name="premieBillede" value="<%=rs("premieBillede")%>">
</td></tr>
<%
rs.movenext
wend
%>
<tr><td><INPUT TYPE="submit" NAME="send" Value="ret Præmie"></td><td> </td></tr>
</form>

Prøv lige dette...!

Synes godt om

isaac Nybegynder

22. august 2003 - 20:03 #24

Jeg sætter ige stykket ind med de koder som er tilrettet så kan du se om jeg har rettet den rigtigt!

-------------------------------------

bemerkning = rs("bemerkning")
aktiv = rs("aktiv")

SQL = "select * from spmpraemie where spmGruppe=" & id
Set rs = Conn.Execute(SQL)
premieOverskrift = rs("premieOverskrift")
premieNavn = rs("premieNavn")
premieBillede = rs("premieBillede")

SQL = "select * from spmTabel where spmGruppeId=" & id
Set rs = Conn.Execute(SQL)
i = 0
do while not rs.EOF
arrSpm(i) = rs("spmText")
arrSvar(i) = rs("spmSvar")
i = i + 1
rs.Movenext
loop
End If
%><center>
<form method="POST" action="<%=adminFilNavn%>?mode=konkurrencesiden&submode=
<% if id = "" then
Response.Write "gem"
else
Response.Write "opdater&ID=" & id
end if %>
">

<table>
<tr><td><b>Sponser</b></td><td><b>Tekst</b></td></tr>

<tr><td>Sponsor</td>
<td><input type="text" size="50" name="sponsorNavn" value="<%=sponsorNavn%>">
</td></tr>

<tr><td>Link</td>
<td><input type="text" size="50" name="wwwSponsorAdr" value="<%=sponsorWWW%>">
</td></tr>

<tr><td>Sponsor Billede</td>
<td><input type="text" size="50" name="sponsorBillede" value="<%=sponsorBillede%>">
</td></tr>

<tr><td><b>konkurrence Data</b></td><td><b></b></td></tr>
<tr><td>Gruppe Navn</td>
<td><input type="text" size="50" name="spmGruppe" value="<%=spmGruppeNavn%>"></td>
</tr>

<tr><td>Start Dato (dd-mm-yyyy)</td>
<td><input type="text" size="50" name="startDato" value="<%=startDato%>"></td>
</tr>

<tr><td>Slut Dato (dd-mm-yyyy)</td>
<td><input type="text" size="50" name="slutDato" value="<%=slutDato%>"></td>
</tr>

<tr><td><b>Spørgsmål</b></td><td><b>Svar mulighed</b></td></tr>
<tr><td><input type="text" size="50" name="spm1" value="<%=arrSpm(0)%>"></td>
<td>Ja <input type="Radio" name="1" value="1"
<% if CStr(""&arrSvar(0)) = "1" then Response.Write " CHECKED " %>
>
Nej <input type="Radio" name="1" value="0"
<% if CStr(""&arrSvar(0)) = "0" then Response.Write " CHECKED " %>
>
</td></tr>

<tr><td><input type="text" size="50" name="spm2" value="<%=arrSpm(1)%>"></td>
<td>Ja <input type="Radio" name="2" value="1"
<% if CStr(""&arrSvar(1)) = "1" then Response.Write " CHECKED " %>
>
Nej <input type="Radio" name="2" value="0"
<% if CStr(""&arrSvar(1)) = "0" then Response.Write " CHECKED " %>
> </td></tr>

<tr><td><input type="text" size="50" name="spm3" value="<%=arrSpm(2)%>"></td>
<td>Ja <input type="Radio" name="3" value="1"
<% if CStr(""&arrSvar(2)) = "1" then Response.Write " CHECKED " %>
>
Nej <input type="Radio" name="3" value="0"
<% if CStr(""&arrSvar(2)) = "0" then Response.Write " CHECKED " %>
> </td></tr>

<tr><td><input type="text" size="50" name="spm4" value="<%=arrSpm(3)%>"></td>
<td>Ja <input type="Radio" name="4" value="1"
<% if CStr(""&arrSvar(3)) = "1" then Response.Write " CHECKED " %>
>
Nej <input type="Radio" name="4" value="0"
<% if CStr(""&arrSvar(3)) = "0" then Response.Write " CHECKED " %>
> </td></tr>

<tr><td><input type="text" size="50" name="spm5" value="<%=arrSpm(4)%>"></td>
<td>Ja <input type="Radio" name="5" value="1"
<% if CStr(""&arrSvar(4)) = "1" then Response.Write " CHECKED " %>
>
Nej <input type="Radio" name="5" value="0"
<% if CStr(""&arrSvar(4)) = "0" then Response.Write " CHECKED " %>
> </td></tr>

<tr><td><input type="text" size="50" name="spm6" value="<%=arrSpm(5)%>"></td>
<td>Ja <input type="Radio" name="6" value="1"
<% if CStr(""&arrSvar(5)) = "1" then Response.Write " CHECKED " %>
>
Nej <input type="Radio" name="6" value="0"
<% if CStr(""&arrSvar(5)) = "0" then Response.Write " CHECKED " %>
> </td></tr>

<tr><td><input type="text" size="50" name="spm7" value="<%=arrSpm(6)%>"></td>
<td>Ja <input type="Radio" name="7" value="1"
<% if CStr(""&arrSvar(6)) = "1" then Response.Write " CHECKED " %>
>
Nej <input type="Radio" name="7" value="0"
<% if CStr(""&arrSvar(6)) = "0" then Response.Write " CHECKED " %>
> </td></tr>

<tr><td><input type="text" size="50" name="spm8" value="<%=arrSpm(7)%>"></td>
<td>Ja <input type="Radio" name="8" value="1"
<% if CStr(""&arrSvar(7)) = "1" then Response.Write " CHECKED " %>
>
Nej <input type="Radio" name="8" value="0"
<% if CStr(""&arrSvar(7)) = "0" then Response.Write " CHECKED " %>
> </td></tr>

<tr><td><input type="text" size="50" name="spm9" value="<%=arrSpm(8)%>"></td>
<td>Ja <input type="Radio" name="9" value="1"
<% if CStr(""&arrSvar(8)) = "1" then Response.Write " CHECKED " %>
>
Nej <input type="Radio" name="9" value="0"
<% if CStr(""&arrSvar(8)) = "0" then Response.Write " CHECKED " %>
> </td></tr>

<tr><td><input type="text" size="50" name="spm10" value="<%=arrSpm(9)%>"></td>
<td>Ja <input type="Radio" name="10" value="1"
<% if CStr(""&arrSvar(9)) = "1" then Response.Write " CHECKED " %>
>
Nej <input type="Radio" name="10" value="0"
<% if CStr(""&arrSvar(9)) = "0" then Response.Write " CHECKED " %>
> </td></tr>

<tr><td>Valg-muligheder til "Jeg forstækker":<br> (adskil med ; max 100 karakter)</td>
<td><input type="text" size="50" maxlength="100" name="valg" value="<%=valg%>"></td>
</tr>
</tr>

<tr><td>Bemærkninger</td>
<td><input type="text" size="50" name="bemerkning" value="<%=bemerkning%>"></td>
</tr>

<tr><td>Skal konkurrencen være aktiv:</td><td><input type="checkbox" name="aktiv" value="ok"
<% if CStr(""&aktiv) = "1" then Response.Write " CHECKED " %>
></td></tr>

<form method="POST" action="<%=adminFilNavn%>?mode=konkurrencesiden&submode=editPraemie&id=<%=id%>">
<%
while not rs.eof
%>
<tr><td>premie Overskrift</td>
<td><input type="text" size="50" name="premieOverskrift" value="<%=premieOverskrift%>">
</td></tr>

<tr><td>Præmie Navn</td>
<td><input type="text" size="50" name="premieNavn" value="<%=premieNavn%>">
</td></tr>

<tr><td>Premie Billede</td>
<td><input type="text" size="50" name="premieBillede" value="<%=premieBillede%>">
</td></tr>
<%
rs.movenext
wend
%>
<tr><td><INPUT TYPE="submit" NAME="send" Value="ret Præmie"></td><td> </td></tr>
</form></center>
<%

case "addpraemie"
%>
<center>
<form method="POST" action="<%=adminFilNavn%>?mode=konkurrencesiden&submode=gempraemie">
<table>
<tr><td>Præmie</td>
<td><input type="text" size="50" name="premieNavn">
</td></tr>

<tr><td>Præmie billede</td>
<td><input type="text" size="50" name="premieBillede">
</td></tr>

<tr><td>Overskrift</td>
<td><input type="text" size="50" name="premieOverskrift">
</td></tr>

<tr><td>Til Konkurrence</td>
<td><select name="premieKonkurrence">
<%
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.recordset")
Conn.Open tempConn

SQL = "select gruppeID, spmGruppeNavn from spmGruppe order by gruppeID desc"
Set rs = Conn.Execute(SQL)

do while not rs.EOF
Response.Write "<option value=""" & rs("gruppeID") & """>" & rs("spmGruppeNavn") & "</option>"
rs.MoveNext
loop

Conn.Close
Set Conn = Nothing
%>
</select>
</td></tr>

<tr><td> </td><td><input type="submit" name="Gem" value="Gem"></td></tr>
<tr><td colspan="2">Note: Udfyld alle felter!!</td></tr>
</table>
</form>

</center>

<%

case "gem"
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.recordset")
Conn.Open tempConn

if Request.ServerVariables("REQUEST_METHOD") = "POST" then
spmGruppeNavn = Request.Form("spmGruppe")
sponsorNavn = Request.Form("sponsorNavn")
sponsorWWW = Request.Form("wwwSponsorAdr")
sponsorBillede = Request.Form("sponsorBillede")
startDato = Dato(Request.Form("startDato"))
slutDato = Dato(Request.Form("slutDato"))
valg = Request.Form("valg")
bemerkning = Request.Form("bemerkning")
aktiv = Request.Form("aktiv")
if aktiv = "" then
aktiv = 0
else
aktiv = 1
end if

strSQL = "INSERT INTO spmGruppe (spmGruppeNavn,sponsorNavn,sponsorWWW,sponsorBillede,"
strSQL = strSQL & "startDato,slutDato,valg,bemerkning,aktiv) VALUES ("
strSQL = strSQL & "'" & spmGruppeNavn & "',"
strSQL = strSQL & "'" & sponsorNavn & "',"
strSQL = strSQL & "'" & sponsorWWW & "',"
strSQL = strSQL & "'" & sponsorBillede & "',"
if DATABASE_TYPE = "MySQL" then
strSQL = strSQL & "'" & startDato & "',"
strSQL = strSQL & "'" & slutDato & "',"
else
strSQL = strSQL & "#" & startDato & "#,"
strSQL = strSQL & "#" & slutDato & "#,"
end if
strSQL = strSQL & "'" & valg & "',"
strSQL = strSQL & "'" & bemerkning & "',"
strSQL = strSQL & "" & aktiv & ""
strSQL = strSQL & ");"
' Response.Write strSQL
Conn.execute(strSQL)

'Find den nye gruppe
if DATABASE_TYPE = "MySQL" then
strSQL = "SELECT * FROM spmGruppe ORDER BY gruppeID DESC LIMIT 0,1;"
else
strSQL = "SELECT TOP 1 * FROM spmGruppe ORDER BY gruppeID DESC;"
end if
set rs = conn.execute(strSQL)
gruppeID = rs("gruppeID")

'Indsæt spørgsmålene i den nye gruppe
for i = 1 to 10
spmText = replace(Request.Form("spm"&i),"'","''")
spmSvar = Request.Form("" & i)

if spmText <> "" and spmSvar <> "" then
strSQL = "insert into spmTabel (spmGruppeId,spmText,spmSvar) VALUES ("
strSQL = strSQL & "" & gruppeID & ", "
strSQL = strSQL & "'" & spmText & "', "
strSQL = strSQL & "" & spmSvar & ")"
' Response.Write strSQL & "<br>"
Conn.execute(strSQL)
end if
next

'Så er den nye konkurrence lagt ind.
End If

Conn.Close
Set Conn = Nothing

Response.Redirect(adminFilNavn & "?mode=konkurrencesiden")
case "opdater"
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.recordset")
Conn.Open tempConn

if Request.ServerVariables("REQUEST_METHOD") = "POST" then
spmGruppeNavn = Request.Form("spmGruppe")
sponsorNavn = Request.Form("sponsorNavn")
sponsorWWW = Request.Form("wwwSponsorAdr")
sponsorBillede = Request.Form("sponsorBillede")
startDato = Dato(Request.Form("startDato"))
slutDato = Dato(Request.Form("slutDato"))
valg = Request.Form("valg")
bemerkning = Request.Form("bemerkning")
aktiv = Request.Form("aktiv")
if aktiv = "" then
aktiv = 0
else
aktiv = 1
end if

strSQL = "UPDATE spmGruppe SET "
strSQL = strSQL & "spmGruppeNavn = '" & spmGruppeNavn & "', "
strSQL = strSQL & "sponsorNavn = '" & sponsorNavn & "', "
strSQL = strSQL & "sponsorWWW = '" & sponsorWWW & "', "
strSQL = strSQL & "sponsorBillede = '" & sponsorBillede & "',"
strSQL = strSQL & "startDato = '" & startDato & "', "
strSQL = strSQL & "slutDato = '" & slutDato & "', "
strSQL = strSQL & "valg = '" & valg & "', "
strSQL = strSQL & "bemerkning = '" & replace(bemerkning, "'", "''") & "', "
strSQL = strSQL & "aktiv = " & aktiv & " "
strSQL = strSQL & " WHERE gruppeID = " & Request("ID")

Conn.execute(strSQL)

strSQL = "DELETE FROM spmTabel WHERE spmGruppeId = " & request("ID")
conn.execute(strSQL)
gruppeID = Request("ID")

'Indsæt spørgsmålene i den nye gruppe
for i = 1 to 10
spmText = replace(Request.Form("spm"&i),"'","''")
spmSvar = Request.Form("" & i)

if spmText <> "" and spmSvar <> "" then
strSQL = "insert into spmTabel (spmGruppeId,spmText,spmSvar) VALUES ("
strSQL = strSQL & "" & gruppeID & ", "
strSQL = strSQL & "'" & spmText & "', "
strSQL = strSQL & "" & spmSvar & ")"
' Response.Write strSQL & "<br>"
Conn.execute(strSQL)
end if
next

'Så er den konkurrence rettet.
End If

Conn.Close
Set Conn = Nothing

Response.Redirect(adminFilNavn & "?mode=konkurrencesiden")

'Gem præmie i databasen her:
Case "gempraemie"

Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.recordset")
Conn.Open tempConn

if Request.ServerVariables("REQUEST_METHOD") = "POST" then
premieNavn = Request.Form("premieNavn")
premieBillede = Request.Form("premieBillede")
premieOverskrift = Request.Form("premieOverskrift")
premieKonkurrence = Request.Form("premieKonkurrence")

SQL = "insert into spmPraemie (spmgruppe, premieNavn, premieBillede, premieOverskift)"
SQL = SQL & " VALUES ("
SQL = SQL & "" & premieKonkurrence & ", "
SQL = SQL & "'" & premieNavn & "', "
SQL = SQL & "'" & premieBillede & "', "
SQL = SQL & "'" & premieOverskrift & "'"
SQL = SQL & ")"
Conn.Execute(SQL)
end if
Conn.Close
Set Conn = Nothing

Response.Redirect(adminFilNavn & "?mode=konkurrencesiden")

case editPraemie

Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.recordset")
Conn.Open tempConn

if Request.ServerVariables("REQUEST_METHOD") = "POST" then
premieNavn = Request.Form("premieNavn")
premieBillede = Request.Form("premieBillede")
premieOverskrift = Request.Form("premieOverskrift")

SQL = "Update spmPraemie SET premieNavn='"&premieNavn&"', premieBillede='"&premieBillede&"', premieOverskrift='"&premieOverskrift&"' WHERE spmGruppe = " & request.querystring("id")

Conn.Execute(SQL)
end if
Conn.Close
Set Conn = Nothing

Response.Redirect(adminFilNavn & "?mode=konkurrencesiden")

'Hvis det er en ukendt submode så redirect til mode= konkurrencesiden
Case Else
Response.Redirect(adminFilNavn & "?mode=konkurrencesiden")

End Select 'submode

Synes godt om

isaac Nybegynder

22. august 2003 - 20:16 #25

Jeg er altså meget forvirret!
Er det alt den tekst du sender som skal rettes, for noget af det ligner det samme!

Det er stadig det samme....
inden ting med præmier der inde og copyright teksten er i toppen nu

De der <% du skriver i de overste koder skal de med også?

<%

SQL = "select * from spmpraemie where spmGruppe=" & id
Set rs = Conn.Execute(SQL)
%>

Synes godt om

isaac Nybegynder

22. august 2003 - 20:40 #26

Er du gået i koma? (c:

Synes godt om

ellebaek Nybegynder

22. august 2003 - 21:05 #27

Sorry...

Jeg var lige væk..
Alt det her:
<%

SQL = "select * from spmpraemie where spmGruppe=" & id
Set rs = Conn.Execute(SQL)
%>

<form method="POST" action="<%=adminFilNavn%>?mode=konkurrencesiden&submode=editPraemie&id=<%=id%>">
<%
while not rs.eof
%>
<tr><td>premie Overskrift</td>
<td><input type="text" size="50" name="premieOverskrift" value="<%=rs("premieOverskrift")%>">
</td></tr>

<tr><td>Præmie Navn</td>
<td><input type="text" size="50" name="premieNavn" value="<%=rs("premieNavn")%>">
</td></tr>

<tr><td>Premie Billede</td>
<td><input type="text" size="50" name="premieBillede" value="<%=rs("premieBillede")%>">
</td></tr>
<%
rs.movenext
wend
%>
<tr><td><INPUT TYPE="submit" NAME="send" Value="ret Præmie"></td><td> </td></tr>
</form>

Skal stå i stedet for:
<%

SQL = "select * from spmpraemie where spmGruppe=" & id
Set rs = Conn.Execute(SQL)
premieOverskrift = rs("premieOverskrift")
premieNavn = rs("premieNavn")
premieBillede = rs("premieBillede")
%>

<form method="POST" action="<%=adminFilNavn%>?mode=konkurrencesiden&submode=editPraemie&id=<%=id%>">

<tr><td>premie Overskrift</td>
<td><input type="text" size="50" name="premieOverskrift" value="<%=premieOverskrift%>">
</td></tr>

<tr><td>Præmie Navn</td>
<td><input type="text" size="50" name="premieNavn" value="<%=premieNavn%>">
</td></tr>

<tr><td>Premie Billede</td>
<td><input type="text" size="50" name="premieBillede" value="<%=premieBillede%>">
</td></tr>
<tr><td><INPUT TYPE="submit" NAME="send" Value="ret Præmie"></td><td> </td></tr>
</form>

Synes godt om

isaac Nybegynder

22. august 2003 - 21:25 #28

Det gav ingen forskel!

Synes godt om

ellebaek Nybegynder

22. august 2003 - 21:25 #29

hmm...

Hvordan ser siden ud nu..?
Har du et link??

Synes godt om

isaac Nybegynder

22. august 2003 - 21:26 #30

Er det her inde imellem de koder skal pladseres?
SQL = "select * from spmpraemie where spmGruppe=" & id
Set rs = Conn.Execute(SQL)

case "add"
id = Request("ID")

Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.recordset")
Conn.Open tempConn

str10 = ",,,,,,,,,"
arrSpm = split(str10, ",")
arrSvar = split(str10, ",")
if id <> "" then
SQL = "select * from spmGruppe where gruppeID=" & id
Set rs = Conn.Execute(SQL)

spmGruppeNavn = rs("spmGruppeNavn")
sponsorNavn = rs("sponsorNavn")
sponsorWWW = rs("sponsorWWW")
sponsorBillede = rs("sponsorBillede")
startDato = rs("startDato")
slutDato = rs("slutDato")
valg = rs("valg")
bemerkning = rs("bemerkning")
aktiv = rs("aktiv")

SQL = "select * from spmpraemie where spmGruppe=" & id
Set rs = Conn.Execute(SQL)

SQL = "select * from spmTabel where spmGruppeId=" & id
Set rs = Conn.Execute(SQL)
i = 0
do while not rs.EOF
arrSpm(i) = rs("spmText")
arrSvar(i) = rs("spmSvar")
i = i + 1
rs.Movenext
loop
End If

Synes godt om

ellebaek Nybegynder

22. august 2003 - 21:28 #31

har du et link til din side, så jeg kan se den, for det er svært at forestille sig hvad den gør forkert lige nu..!

Synes godt om

isaac Nybegynder

22. august 2003 - 21:28 #32

Har du en mail så skal jeg sende dig et printscreen af siden!
Siden er lavet sådan at kun min IP kan gå der ind

Synes godt om

ellebaek Nybegynder

22. august 2003 - 21:29 #33

ok...

jens@mail.zix.dk

Synes godt om

isaac Nybegynder

22. august 2003 - 21:36 #34

2 mails er sendt

Synes godt om

ellebaek Nybegynder

22. august 2003 - 21:37 #35

ok...

Jeg ser på det, og vender tilbage, er godt nok på vej i seng, skal arbejde i morgen og søndag...

Så vender nok desværre først tilbage søndag aften... Håber det er i orden.

Synes godt om

isaac Nybegynder

22. august 2003 - 21:38 #36

Det er helt OK

Sov godt!

Synes godt om

isaac Nybegynder

24. august 2003 - 16:09 #37

Hejsa

Er du ved frisk mod? (c:
Skal vi arbejde lidt i eftermiddag/aften?

Synes godt om

isaac Nybegynder

24. august 2003 - 20:57 #38

>>ellebaek

Er du her?
Har du kigget lidt vidre på det?

Synes godt om

ellebaek Nybegynder

24. august 2003 - 22:34 #39

Vi kan kigge på det i morgen, jeg er for kvæstet i dag...

Synes godt om

isaac Nybegynder

25. august 2003 - 06:46 #40

Det er bare i orden!
Jeg gik også i seng kl. 22.00.

Du skriver bare når du er klar!

Synes godt om

ellebaek Nybegynder

25. august 2003 - 20:57 #41

jeg er klar til at kode nu...!

Synes godt om

isaac Nybegynder

26. august 2003 - 00:27 #42

Jeg har lige været ind i biografen og se Ringenes herre 2, men jeg er nød til at gå i seng, jeg skal op igen kl. 05.00 :(

Godnat

Synes godt om

isaac Nybegynder

26. august 2003 - 05:18 #43

Godmorgen!

Hvis du vil kan du også sende de næste koder så kan jeg teste dem og vende tilbage!?

Synes godt om

ellebaek Nybegynder

26. august 2003 - 10:31 #44

jeg har ikke fået rigtig kigget på det..
Men det du ville have var at retpræmie muligheden kom i bunden af ret konkurrence ikke??

Synes godt om

isaac Nybegynder

26. august 2003 - 10:37 #45

Jo!

Jeg køre på arbejde igen kl. 11.00 og er tilbage kl. 17.00
Og som skrevet tidligere så bare send de koder du evt. måtte have så tester jeg dem efter arbejde og vender tilbage.

Synes godt om

isaac Nybegynder

26. august 2003 - 17:44 #46

Hejsa

Så er jeg klar!
Er du også det??

Synes godt om

ellebaek Nybegynder

26. august 2003 - 19:03 #47

nu ??

Synes godt om

isaac Nybegynder

26. august 2003 - 19:08 #48

Det kan vi godt!

Synes godt om

ellebaek Nybegynder

26. august 2003 - 19:13 #49

har du ikke en mail så jeg kan sende frem og tilbage der i stedet..?

Synes godt om

isaac Nybegynder

26. august 2003 - 19:17 #50

Jeg håbede du ville spørge :)

mullan@besked.com

Synes godt om

ellebaek Nybegynder

27. august 2003 - 22:49 #51

case "konkurrencesiden"

submode=Request.QueryString("submode")
if submode = "" then submode = "list"

select case submode
case "list"

Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.recordset")
Conn.Open tempConn

SQL = "select * from spmGruppe order by gruppeID desc"
Set rs = Conn.Execute(SQL)

Response.Write "<center><table><tr>"
Response.Write "<td>ID   </td><td>navn</td>"
Response.Write "<td>Test</td>"
Response.Write "<td>Ret</td>"
Response.Write "</tr>"

do while not rs.EOF
Response.Write "<tr>"
Response.Write "<td>" & rs("gruppeID") & "</td>"
Response.Write "<td>" & rs("spmGruppeNavn") & "</td>"
Response.Write "<td><a href=""/kon/default.asp?testthis=visfortest&ID=" & rs("gruppeID") & """>Test</a></td>"
Response.Write "<td><a href=""" & adminFilNavn & "?mode=konkurrencesiden&submode=add&ID=" & rs("gruppeID") & """>Ret</a></td>"
Response.Write "</tr>"
rs.MoveNext
loop
Response.Write "</table>"

Response.Write "<br><br>"
Response.Write "<a href=""" & adminFilNavn & "?mode=konkurrencesiden&submode=add"">Tilføj konkurrence</a>"
Response.Write " | "
Response.Write "<a href=""" & adminFilNavn & "?mode=konkurrencesiden&submode=addpraemie"">Tilføj præmie</a>"
Response.Write " | "
Response.Write "<a href=""" & adminFilNavn & """>Tilbage</a>"
Response.Write "</center>"

Conn.Close
Set Conn = Nothing

case "add"
id = Request("ID")

Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.recordset")
Conn.Open tempConn

str10 = ",,,,,,,,,"
arrSpm = split(str10, ",")
arrSvar = split(str10, ",")
if id <> "" then
SQL = "select * from spmGruppe where gruppeID=" & id
Set rs = Conn.Execute(SQL)

spmGruppeNavn = rs("spmGruppeNavn")
sponsorNavn = rs("sponsorNavn")
sponsorWWW = rs("sponsorWWW")
sponsorBillede = rs("sponsorBillede")
startDato = rs("startDato")
slutDato = rs("slutDato")
valg = rs("valg")
bemerkning = rs("bemerkning")
aktiv = rs("aktiv")

SQL = "select * from spmTabel where spmGruppeId=" & id
Set rs = Conn.Execute(SQL)
i = 0
do while not rs.EOF
arrSpm(i) = rs("spmText")
arrSvar(i) = rs("spmSvar")
i = i + 1
rs.Movenext
loop
End If
%><center>
<form method="POST" action="<%=adminFilNavn%>?mode=konkurrencesiden&submode=
<% if id = "" then
Response.Write "gem"
else
Response.Write "opdater&ID=" & id
end if %>
">

<table>
<tr><td><b>Sponser</b></td><td><b>Tekst</b></td></tr>

<tr><td>Sponsor</td>
<td><input type="text" size="50" name="sponsorNavn" value="<%=sponsorNavn%>">
</td></tr>

<tr><td>Link</td>
<td><input type="text" size="50" name="wwwSponsorAdr" value="<%=sponsorWWW%>">
</td></tr>

<tr><td>Sponsor Billede</td>
<td><input type="text" size="50" name="sponsorBillede" value="<%=sponsorBillede%>">
</td></tr>

<tr><td><b>konkurrence Data</b></td><td><b></b></td></tr>
<tr><td>Gruppe Navn</td>
<td><input type="text" size="50" name="spmGruppe" value="<%=spmGruppeNavn%>"></td>
</tr>

<tr><td>Start Dato (dd-mm-yyyy)</td>
<td><input type="text" size="50" name="startDato" value="<%=startDato%>"></td>
</tr>

<tr><td>Slut Dato (dd-mm-yyyy)</td>
<td><input type="text" size="50" name="slutDato" value="<%=slutDato%>"></td>
</tr>

<tr><td><b>Spørgsmål</b></td><td><b>Svar mulighed</b></td></tr>
<tr><td><input type="text" size="50" name="spm1" value="<%=arrSpm(0)%>"></td>
<td>Ja <input type="Radio" name="1" value="1"
<% if CStr(""&arrSvar(0)) = "1" then Response.Write " CHECKED " %>
>
Nej <input type="Radio" name="1" value="0"
<% if CStr(""&arrSvar(0)) = "0" then Response.Write " CHECKED " %>
>
</td></tr>

<tr><td><input type="text" size="50" name="spm2" value="<%=arrSpm(1)%>"></td>
<td>Ja <input type="Radio" name="2" value="1"
<% if CStr(""&arrSvar(1)) = "1" then Response.Write " CHECKED " %>
>
Nej <input type="Radio" name="2" value="0"
<% if CStr(""&arrSvar(1)) = "0" then Response.Write " CHECKED " %>
> </td></tr>

<tr><td><input type="text" size="50" name="spm3" value="<%=arrSpm(2)%>"></td>
<td>Ja <input type="Radio" name="3" value="1"
<% if CStr(""&arrSvar(2)) = "1" then Response.Write " CHECKED " %>
>
Nej <input type="Radio" name="3" value="0"
<% if CStr(""&arrSvar(2)) = "0" then Response.Write " CHECKED " %>
> </td></tr>

<tr><td><input type="text" size="50" name="spm4" value="<%=arrSpm(3)%>"></td>
<td>Ja <input type="Radio" name="4" value="1"
<% if CStr(""&arrSvar(3)) = "1" then Response.Write " CHECKED " %>
>
Nej <input type="Radio" name="4" value="0"
<% if CStr(""&arrSvar(3)) = "0" then Response.Write " CHECKED " %>
> </td></tr>

<tr><td><input type="text" size="50" name="spm5" value="<%=arrSpm(4)%>"></td>
<td>Ja <input type="Radio" name="5" value="1"
<% if CStr(""&arrSvar(4)) = "1" then Response.Write " CHECKED " %>
>
Nej <input type="Radio" name="5" value="0"
<% if CStr(""&arrSvar(4)) = "0" then Response.Write " CHECKED " %>
> </td></tr>

<tr><td><input type="text" size="50" name="spm6" value="<%=arrSpm(5)%>"></td>
<td>Ja <input type="Radio" name="6" value="1"
<% if CStr(""&arrSvar(5)) = "1" then Response.Write " CHECKED " %>
>
Nej <input type="Radio" name="6" value="0"
<% if CStr(""&arrSvar(5)) = "0" then Response.Write " CHECKED " %>
> </td></tr>

<tr><td><input type="text" size="50" name="spm7" value="<%=arrSpm(6)%>"></td>
<td>Ja <input type="Radio" name="7" value="1"
<% if CStr(""&arrSvar(6)) = "1" then Response.Write " CHECKED " %>
>
Nej <input type="Radio" name="7" value="0"
<% if CStr(""&arrSvar(6)) = "0" then Response.Write " CHECKED " %>
> </td></tr>

<tr><td><input type="text" size="50" name="spm8" value="<%=arrSpm(7)%>"></td>
<td>Ja <input type="Radio" name="8" value="1"
<% if CStr(""&arrSvar(7)) = "1" then Response.Write " CHECKED " %>
>
Nej <input type="Radio" name="8" value="0"
<% if CStr(""&arrSvar(7)) = "0" then Response.Write " CHECKED " %>
> </td></tr>

<tr><td><input type="text" size="50" name="spm9" value="<%=arrSpm(8)%>"></td>
<td>Ja <input type="Radio" name="9" value="1"
<% if CStr(""&arrSvar(8)) = "1" then Response.Write " CHECKED " %>
>
Nej <input type="Radio" name="9" value="0"
<% if CStr(""&arrSvar(8)) = "0" then Response.Write " CHECKED " %>
> </td></tr>

<tr><td><input type="text" size="50" name="spm10" value="<%=arrSpm(9)%>"></td>
<td>Ja <input type="Radio" name="10" value="1"
<% if CStr(""&arrSvar(9)) = "1" then Response.Write " CHECKED " %>
>
Nej <input type="Radio" name="10" value="0"
<% if CStr(""&arrSvar(9)) = "0" then Response.Write " CHECKED " %>
> </td></tr>

<tr><td>Valg-muligheder til "Jeg forstækker":<br> (adskil med ; max 100 karakter)</td>
<td><input type="text" size="50" maxlength="100" name="valg" value="<%=valg%>"></td>
</tr>
</tr>

<tr><td>Bemærkninger</td>
<td><input type="text" size="50" name="bemerkning" value="<%=bemerkning%>"></td>
</tr>

<tr><td>Skal konkurrencen være aktiv:</td><td><input type="checkbox" name="aktiv" value="ok"
<% if CStr(""&aktiv) = "1" then Response.Write " CHECKED " %>
></td></tr>

<%
SQL = "select * from spmpraemie where spmGruppe=" & id
set rs = server.createObject("adodb.connection")
rs.open tempConn
Set rs = rs.Execute(SQL)
i = 0
while not rs.eof
premieOverskrift = rs("premieOverskrift")
premieNavn = rs("premieNavn")
premieBillede = rs("premieBillede")
id = rs.fields("id")
i = i+1
%>

<tr><td>Præmie Overskrift</td>
<td><input type="text" size="50" name="premieOverskrift_<%=i%>" value="<%=premieOverskrift%>">
</td></tr>

<tr><td>Præmie Navn</td>
<td><input type="text" size="50" name="premieNavn_<%=i%>" value="<%=premieNavn%>">
</td></tr>

<tr><td>Præmie Billede</td>
<td><input type="text" size="50" name="premieBillede_<%=i%>" value="<%=premieBillede%>">
</td></tr>
<input type="hidden" name="id_<%=i%>" value="<%=id%>">

<%

rs.movenext
wend
%>
<input type="hidden" name="antal" value="<%=i%>">
<tr><td> </td><td><input type="submit" name="Gem" value="Gem"></td></tr>
<tr><td colspan=2>Note: Udfyld alle felter!!</td></tr>
</table>
</form>
</center>
<%

case "addpraemie"
%>
<center>
<form method="POST" action="<%=adminFilNavn%>?mode=konkurrencesiden&submode=gempraemie">
<table>
<tr><td>Præmie</td>
<td><input type="text" size="50" name="premieNavn">
</td></tr>

<tr><td>Præmie billede</td>
<td><input type="text" size="50" name="premieBillede">
</td></tr>

<tr><td>Overskrift</td>
<td><input type="text" size="50" name="premieOverskrift">
</td></tr>

<tr><td>Til Konkurrence</td>
<td><select name="premieKonkurrence">
<%
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.recordset")
Conn.Open tempConn

SQL = "select gruppeID, spmGruppeNavn from spmGruppe order by gruppeID desc"
Set rs = Conn.Execute(SQL)

do while not rs.EOF
Response.Write "<option value=""" & rs("gruppeID") & """>" & rs("spmGruppeNavn") & "</option>"
rs.MoveNext
loop

Conn.Close
Set Conn = Nothing
%>
</select>
</td></tr>

<tr><td> </td><td><input type="submit" name="Gem" value="Gem"></td></tr>
<tr><td colspan="2">Note: Udfyld alle felter!!</td></tr>
</table>
</form>

</center>

<%

case "gem"
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.recordset")
Conn.Open tempConn

if Request.ServerVariables("REQUEST_METHOD") = "POST" then
spmGruppeNavn = Request.Form("spmGruppe")
sponsorNavn = Request.Form("sponsorNavn")
sponsorWWW = Request.Form("wwwSponsorAdr")
sponsorBillede = Request.Form("sponsorBillede")
startDato = Dato(Request.Form("startDato"))
slutDato = Dato(Request.Form("slutDato"))
valg = Request.Form("valg")
bemerkning = Request.Form("bemerkning")
aktiv = Request.Form("aktiv")
if aktiv = "" then
aktiv = 0
else
aktiv = 1
end if

strSQL = "INSERT INTO spmGruppe (spmGruppeNavn,sponsorNavn,sponsorWWW,sponsorBillede,"
strSQL = strSQL & "startDato,slutDato,valg,bemerkning,aktiv) VALUES ("
strSQL = strSQL & "'" & spmGruppeNavn & "',"
strSQL = strSQL & "'" & sponsorNavn & "',"
strSQL = strSQL & "'" & sponsorWWW & "',"
strSQL = strSQL & "'" & sponsorBillede & "',"
if DATABASE_TYPE = "MySQL" then
strSQL = strSQL & "'" & startDato & "',"
strSQL = strSQL & "'" & slutDato & "',"
else
strSQL = strSQL & "#" & startDato & "#,"
strSQL = strSQL & "#" & slutDato & "#,"
end if
strSQL = strSQL & "'" & valg & "',"
strSQL = strSQL & "'" & bemerkning & "',"
strSQL = strSQL & "" & aktiv & ""
strSQL = strSQL & ");"
' Response.Write strSQL
Conn.execute(strSQL)

'Find den nye gruppe
if DATABASE_TYPE = "MySQL" then
strSQL = "SELECT * FROM spmGruppe ORDER BY gruppeID DESC LIMIT 0,1;"
else
strSQL = "SELECT TOP 1 * FROM spmGruppe ORDER BY gruppeID DESC;"
end if
set rs = conn.execute(strSQL)
gruppeID = rs("gruppeID")

'Indsæt spørgsmålene i den nye gruppe
for i = 1 to 10
spmText = replace(Request.Form("spm"&i),"'","''")
spmSvar = Request.Form("" & i)

if spmText <> "" and spmSvar <> "" then
strSQL = "insert into spmTabel (spmGruppeId,spmText,spmSvar) VALUES ("
strSQL = strSQL & "" & gruppeID & ", "
strSQL = strSQL & "'" & spmText & "', "
strSQL = strSQL & "" & spmSvar & ")"
' Response.Write strSQL & "<br>"
Conn.execute(strSQL)
end if
next

'Så er den nye konkurrence lagt ind.
End If

Conn.Close
Set Conn = Nothing

Response.Redirect(adminFilNavn & "?mode=konkurrencesiden")

case "opdater"
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.recordset")
Conn.Open tempConn

if Request.ServerVariables("REQUEST_METHOD") = "POST" then
spmGruppeNavn = Request.Form("spmGruppe")
sponsorNavn = Request.Form("sponsorNavn")
sponsorWWW = Request.Form("wwwSponsorAdr")
sponsorBillede = Request.Form("sponsorBillede")
startDato = Dato(Request.Form("startDato"))
slutDato = Dato(Request.Form("slutDato"))
valg = Request.Form("valg")
bemerkning = Request.Form("bemerkning")
aktiv = Request.Form("aktiv")

if aktiv = "" then
aktiv = 0
else
aktiv = 1
end if

strSQL = "UPDATE spmGruppe SET "
strSQL = strSQL & "spmGruppeNavn = '" & spmGruppeNavn & "', "
strSQL = strSQL & "sponsorNavn = '" & sponsorNavn & "', "
strSQL = strSQL & "sponsorWWW = '" & sponsorWWW & "', "
strSQL = strSQL & "sponsorBillede = '" & sponsorBillede & "',"
strSQL = strSQL & "startDato = '" & startDato & "', "
strSQL = strSQL & "slutDato = '" & slutDato & "', "
strSQL = strSQL & "valg = '" & valg & "', "
strSQL = strSQL & "bemerkning = '" & replace(bemerkning, "'", "''") & "', "
strSQL = strSQL & "aktiv = " & aktiv & " "
strSQL = strSQL & " WHERE gruppeID = " & Request("ID")

Conn.execute(strSQL)

for i = 1 to CInt(request.form("antal"))
premieNavn = Request.Form("premieNavn_" & i)
premieBillede = Request.Form("premieBillede_" & i)
premieOverskrift = Request.Form("premieOverskrift_" & i)
id = request.form("id_" & i)

SQL = "Update spmPraemie SET premieNavn='"&premieNavn&"', premieBillede='"&premieBillede&"', premieOverskrift='"&premieOverskrift&"' WHERE id = " & CInt(id)
Conn.execute(SQL)
Next

strSQL = "DELETE FROM spmTabel WHERE spmGruppeId = " & request("ID")
conn.execute(strSQL)
gruppeID = Request("ID")

'Indsæt spørgsmålene i den nye gruppe
for i = 1 to 10
spmText = replace(Request.Form("spm"&i),"'","''")
spmSvar = Request.Form("" & i)

if spmText <> "" and spmSvar <> "" then
strSQL = "insert into spmTabel (spmGruppeId,spmText,spmSvar) VALUES ("
strSQL = strSQL & "" & gruppeID & ", "
strSQL = strSQL & "'" & spmText & "', "
strSQL = strSQL & "" & spmSvar & ")"
' Response.Write strSQL & "<br>"
Conn.execute(strSQL)
end if
next

'Så er den konkurrence rettet.
End If

Conn.Close
Set Conn = Nothing

Response.Redirect(adminFilNavn & "?mode=konkurrencesiden")

'Gem præmie i databasen her:
Case "gempraemie"

Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.recordset")
Conn.Open tempConn

if Request.ServerVariables("REQUEST_METHOD") = "POST" then
premieNavn = Request.Form("premieNavn")
premieBillede = Request.Form("premieBillede")
premieOverskrift = Request.Form("premieOverskrift")
premieKonkurrence = Request.Form("premieKonkurrence")

SQL = "insert into spmPraemie (spmgruppe, premieNavn, premieBillede, premieOverskift)"
SQL = SQL & " VALUES ("
SQL = SQL & "" & premieKonkurrence & ", "
SQL = SQL & "'" & premieNavn & "', "
SQL = SQL & "'" & premieBillede & "', "
SQL = SQL & "'" & premieOverskrift & "'"
SQL = SQL & ")"
Conn.Execute(SQL)
end if
Conn.Close
Set Conn = Nothing

Response.Redirect(adminFilNavn & "?mode=konkurrencesiden")

'Hvis det er en ukendt submode så redirect til mode= konkurrencesiden
Case Else
Response.Redirect(adminFilNavn & "?mode=konkurrencesiden")

End Select 'submode

Siden der gav successen...

..Ellebæk!

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS