Notifikationer

Markér alle som læst Log ud

isaac Nybegynder

17. august 2003 - 08:02 Der er 60 kommentarer og
1 løsning

Hvordan indføre jeg kolonne mere fra MySQL?

Jeg håber at jeg har posteret de rigtige koder til "RETTE" funktionen, jeg er nemlig ikke så god til koder!

Jeg skal ha' tilført en kolonne mere under der hvor man kan "RETTE"
Hvordan gør jeg det?

Jeg håber folk forstår hvad jer mener, ellers må jeg prøve at forklare det på en anden måde!

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

hossein Nybegynder

17. august 2003 - 09:22 #1

mener du under opdate? hvis ja, så først sætter du værdien fra din form i en variabel:
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
...
minnyVariabel= Request.Form("minnyVariabel")
...

også i din SQL sætning:

strSQL = "UPDATE spmGruppe SET "
...
strSQL = strSQL & "minnyVariabel= '" & minnyVariabel & "', "
...

Feltet eller kolonnen kan du oprette/tilføje i selve db'en.

Synes godt om

isaac Nybegynder

17. august 2003 - 09:36 #2

Jeg er slet ikke sikker på at jeg har alle de rigtige koder med.....men

I min admin side kan jeg opstarte en konkurrence og tilføje præmierne, samt teste og rette konkurrencerne men IKKE rette i præmierne. Og det ville jeg godt kunne!

Konkurrencerne og præmierne ligger i forskellige tabeller i MySQL'en

Kunne jeg ikke få dig til at se på koderne for at se om det overhoved kan lade sig gøre?

Synes godt om

isaac Nybegynder

17. august 2003 - 09:48 #3

Hej hossein
Jeg lukke lige dette spørgsmål og åbner det igen ved at spørge på en anden måde! Du er velkommen til at kigge forbi :)

Synes godt om

hossein Nybegynder

17. august 2003 - 09:49 #4

Jeg har desværre ikke MySQL, men jeg kan prøve at hjælpe så meget som jeg kan. Så meget kan jeg se fra ovenstående kode, du kan tilføje/insert en ny præmiere men du kan ikke ændre/opdatere, du skal bare tilføje en SQL opdate til dette.

Synes godt om

isaac Nybegynder

17. august 2003 - 10:06 #5

Vil du hjælpe mig her eller i det nye spørgsmål?
http://www.eksperten.dk/spm/388544

Kan jeg ikke få dig til at hjælpe mig med at skrive koderne og hjælpe mig med at pladsere den hvor de skal stå?

Synes godt om

isaac Nybegynder

18. august 2003 - 05:23 #6

Hej hossein

Undskyld, men gad du ikke hjælpe mig alligevel?
Spørgsmålet er blevet oprettet herinde med fuld koder:
http://www.eksperten.dk/spm/388544

Synes godt om

hossein Nybegynder

18. august 2003 - 17:58 #7

Hej Isaac
Jo det vil jeg meget gerne at hjælpe, hvis jeg kan :-). Umiddelbart ser ikke besværlig ud.
men virker den nuværende kode eller ej? jeg vil bare forsikre mig at jeg har forstået fremgangs måden?

Jeg kan se, at under formen er forskellige link for forskellige funktioner f ex tilføje eller rette. Hver af dem sættes i gang med en select case funktion afhængige af hvilket valg/parameter sender brugeren, derfor skal man tilføje en anden link på formularen på samme måde som de andre er og tilføje en case sætning til det?

Nu skal jeg vide hvilket felter i hvilken tabel skal opdateres/rettes?
Man skal kunne vælge den rette præmie (det kan man gøre efter et valg) og når man har den så skal den bare rettes?

Synes godt om

hossein Nybegynder

18. august 2003 - 18:00 #8

Ak, jeg glemte dette, jeg har tilføjet "Ret præmie" linken:

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 & "?mode=konkurrencesiden&submode=Retpraemie"">Ret præmie</a>"
Response.Write " | "
Response.Write "<a href=""" & adminFilNavn & """>Tilbage</a>"
Response.Write "</center>"

Synes godt om

isaac Nybegynder

18. august 2003 - 18:13 #9

Koderne virker lige nu!

Men der er ikke helt sådan det virker.
Har du ikke en mail så email, så kan jeg sende en "Printscreen" af hvordan siden ser ud i praktic?

Synes godt om

isaac Nybegynder

18. august 2003 - 18:21 #10

vrøvl!

Der skulle stå:
Har du ikke en email, så jeg........

Synes godt om

isaac Nybegynder

18. august 2003 - 18:23 #11

Det er denne her linie at rette præmier også skal ind under!

Response.Write "<td><a href=""" & adminFilNavn & "?mode=konkurrencesiden&submode=add&ID=" & rs("gruppeID") & """>Ret</a></td>"

Synes godt om

isaac Nybegynder

18. august 2003 - 18:25 #12

Og det er disse felter som også skulle kunne rettes:

'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")

Synes godt om

hossein Nybegynder

18. august 2003 - 18:48 #13

mach3@get2net.dk

Synes godt om

isaac Nybegynder

18. august 2003 - 20:06 #14

Hva'så? Er det mere overskuligt nu du har set hvordan det virker?

Synes godt om

hossein Nybegynder

18. august 2003 - 20:21 #15

Faktisk ikke :O) , hvor er det som du skriver præmiere listen ud? men vi prøver.
Denne her skal rette eller opdatere den valgte præmie, du skal bare giv rigtige navn på dette:

sql=sql & " WHERE ID=" &cid& ""

da jeg ikke ved hvad hedder feltet i tabelen.
Dette ID hentes når du vælger på en præmie.

Case "Retpraemie"

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="UPDATE spmPraemie SET "
sql=sql & "(spmgruppe = " & premieKonkurrence & ","
sql=sql & "premieNavn ='" & premieNavn & "',"
sql=sql & "premieBillede ='" & premieBillede & "',"
sql=sql & "premieOverskift ='" & premieOverskrift & "',"
sql=sql & " WHERE ID='" & cid & "'"

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

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

Synes godt om

isaac Nybegynder

18. august 2003 - 20:38 #16

Undskyld, men denne linie forstår jeg ikke:
sql=sql & " WHERE ID=" &cid& ""

Og kan jeg ikke få dig til at vise mig hvor henne linierne skal indsættes (altså på det hele)

Synes godt om

isaac Nybegynder

18. august 2003 - 20:40 #17

OK nu fattede jed at denne linie bare var en forklaring fra din side.....UPS :)

Synes godt om

isaac Nybegynder

18. august 2003 - 20:40 #18

jed = jeg

Synes godt om

hossein Nybegynder

18. august 2003 - 20:41 #19

ok!

Synes godt om

isaac Nybegynder

18. august 2003 - 20:41 #20

Skal koderne indsættes i stedet for de gamle koder eller hvad??

Synes godt om

hossein Nybegynder

18. august 2003 - 20:49 #21

du skal ikke fjerne de gamle den skal tilføjes efter "case gempraemie" er færdigt.
Men hvor er det som du skriver præmier ud? jeg kan ikke se præmier i din gif filer? Er DVDmekka eller sandrew en præmie?

Synes godt om

isaac Nybegynder

18. august 2003 - 20:51 #22

Man kan nemlig ikke se præmierne!
Man kan kun oprette præmierne, men hvis jeg skriver forkert må jeg gå ind i min MySQL database og rette den!

Synes godt om

isaac Nybegynder

18. august 2003 - 20:53 #23

Er det sådan her??

'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 "Retpraemie"

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="UPDATE spmPraemie SET "
sql=sql & "(spmgruppe = " & premieKonkurrence & ","
sql=sql & "premieNavn ='" & premieNavn & "',"
sql=sql & "premieBillede ='" & premieBillede & "',"
sql=sql & "premieOverskift ='" & premieOverskrift & "',"
sql=sql & " WHERE ID='" & cid & "'"

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

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

Synes godt om

hossein Nybegynder

18. august 2003 - 20:53 #24

ha, for at kunne rette dem så skal du 1. udskrive dem, når du har listen, så kan man tage den valgte præmie ID også rette/opdatere.

Synes godt om

hossein Nybegynder

18. august 2003 - 20:55 #25

det er korrekt! men du skal skrive en præmie liste ud

Synes godt om

isaac Nybegynder

18. august 2003 - 20:56 #26

OK, men da jeg ikke er særlig god til koder, har jeg ikke den fjerneste anelse om hvad du snakker om :)

Synes godt om

hossein Nybegynder

18. august 2003 - 20:57 #27

lig som det her:

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

men du skal vælge den tabel hvor præmier listen ligger i

Synes godt om

hossein Nybegynder

18. august 2003 - 20:59 #28

Hvis jeg havde mySQL kunne du sende databasen til mig men jeg bruger kun msAccess, har du ikke dataerne i en msAccess DB?

Synes godt om

isaac Nybegynder

18. august 2003 - 21:01 #29

Nej desværre!
Ok! Men hvor skal jeg pladsere den og hvor meget skal jeg rette?

Skal jeg sende et billede af kolonnen i db'en

Synes godt om

hossein Nybegynder

18. august 2003 - 21:02 #30

Ja den tabel hvor præmier ligger i

Synes godt om

isaac Nybegynder

18. august 2003 - 21:04 #31

sendt

Synes godt om

hossein Nybegynder

18. august 2003 - 21:25 #32

sådan, det ligger lige efter << case "list" >>:

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>"

case "listpremie"

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

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

Response.Write "<center><table><tr>"
Response.Write "<td>ID   </td><td>Præmie navn</td>"
Response.Write "<td>Præmiebillede</td>"
Response.Write "<td>Ret</td>"
Response.Write "</tr>"

do while not rs.EOF
Response.Write "<tr>"
Response.Write "<td>" & rs("ID") & "</td>"
Response.Write "<td>" & rs("premieNavn") & "</td>"
Response.Write "<td>" & rs("premiebillede") & "</td>"
Response.Write "<td><a href=""" & adminFilNavn & "?mode=konkurrencesiden&submode=retpraemie&ID=" & rs("ID") & """>Ret</a></td>"
Response.Write "</tr>"
rs.MoveNext
loop
Response.Write "</table>"

Conn.Close
Set Conn = Nothing

Synes godt om

hossein Nybegynder

18. august 2003 - 21:28 #33

og så meget jeg kan se feltet premieOverskrift hedder premieOverskift i din tabel, hvis ja så ret den til premieOverskrift

Synes godt om

hossein Nybegynder

18. august 2003 - 21:40 #34

man kan downloade dette for at konvertere mySQL til msAccess:
http://www.visual-mp3.com/review/416.html

Synes godt om

isaac Nybegynder

18. august 2003 - 21:42 #35

Virker ikke!
Og su er tilføj konkurrence + tilføj præmie forsvundet!

Se billedet jeg har sendt

Synes godt om

hossein Nybegynder

18. august 2003 - 21:42 #36

den gør kun for 5 record, gratis pah, glem det.

Synes godt om

hossein Nybegynder

18. august 2003 - 21:47 #37

Kan du holde dig vågn :-O), du skal placere dem mellem liniere sådan:

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>"

case "listpremie"

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

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

Response.Write "<center><table><tr>"
Response.Write "<td>ID   </td><td>Præmie navn</td>"
Response.Write "<td>Præmiebillede</td>"
Response.Write "<td>Ret</td>"
Response.Write "</tr>"

do while not rs.EOF
Response.Write "<tr>"
Response.Write "<td>" & rs("ID") & "</td>"
Response.Write "<td>" & rs("premieNavn") & "</td>"
Response.Write "<td>" & rs("premiebillede") & "</td>"
Response.Write "<td><a href=""" & adminFilNavn & "?mode=konkurrencesiden&submode=retpraemie&ID=" & rs("ID") & """>Ret</a></td>"
Response.Write "</tr>"
rs.MoveNext
loop
Response.Write "</table>"

Conn.Close
Set Conn = Nothing
.....

Synes godt om

isaac Nybegynder

18. august 2003 - 21:53 #38

Ja hvis du kan kan jeg også (c:

Så er de tilbage, men jeg kan ikke se nogen præmier!

Synes godt om

hossein Nybegynder

18. august 2003 - 22:11 #39

fjerne de 2 linier:
case "listpremie"

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

også ret kun disse linier:
strSQL = "select * from spmpraemie order by ID desc"
Set rs1 = Conn.Execute(strSQL)

så ret alle rs'er i den del til rs1

Synes godt om

isaac Nybegynder

18. august 2003 - 22:16 #40

Undskyld jeg forstår det ikke helt!

Hvilke 2 linier er det jeg skal fjerne??

Synes godt om

isaac Nybegynder

18. august 2003 - 22:21 #41

Jeg er heller ikke sikker på hvor mange rs'er jeg skal rette, så her kommer koderne igen med nogle rettede!

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>"

case "listpremie"

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

SQL = "select * from spmpraemie order by ID desc"
Set rs1 = Conn.Execute(strSQL)

Response.Write "<center><table><tr>"
Response.Write "<td>ID   </td><td>Præmie navn</td>"
Response.Write "<td>Præmiebillede</td>"
Response.Write "<td>Ret</td>"
Response.Write "</tr>"

do while not rs.EOF
Response.Write "<tr>"
Response.Write "<td>" & rs("ID") & "</td>"
Response.Write "<td>" & rs("premieNavn") & "</td>"
Response.Write "<td>" & rs("premiebillede") & "</td>"
Response.Write "<td><a href=""" & adminFilNavn & "?mode=konkurrencesiden&submode=retpraemie&ID=" & rs("ID") & """>Ret</a></td>"
Response.Write "</tr>"
rs.MoveNext
loop
Response.Write "</table>"

Conn.Close
Set Conn = Nothing

Synes godt om

hossein Nybegynder

18. august 2003 - 22:24 #42

....
Response.Write "<a href=""" & adminFilNavn & """>Tilbage</a>"
Response.Write "</center>"

Set rs1 = Server.CreateObject("ADODB.recordset")

strSQL = "select * from spmpraemie order by ID desc"
Set rs1 = Conn.Execute(strSQL)

Response.Write "<center><table><tr>"
Response.Write "<td>ID   </td><td>Præmie navn</td>"
Response.Write "<td>Præmiebillede</td>"
Response.Write "<td>Ret</td>"
Response.Write "</tr>"

do while not rs1.EOF
Response.Write "<tr>"
Response.Write "<td>" & rs1("ID") & "</td>"
Response.Write "<td>" & rs1("premieNavn") & "</td>"
Response.Write "<td>" & rs1("premiebillede") & "</td>"
Response.Write "<td><a href=""" & adminFilNavn & "?mode=konkurrencesiden&submode=retpraemie&ID=" & rs1("ID") & """>Ret</a></td>"
Response.Write "</tr>"
rs1.MoveNext
loop
Response.Write "</table>"

Conn.Close
Set Conn = Nothing

Synes godt om

isaac Nybegynder

18. august 2003 - 22:34 #43

Nu er der i hvertfald sket en forandring - se billedet som er sendt

Men det var bare ikke sådan jeg havde forestillet mig det....sorry
Præmierne skulle helst ligge inde under den "ret" som er i forvejen, så man både kunne se den pågældende konkurrence og præmie

Synes godt om

hossein Nybegynder

18. august 2003 - 22:41 #44

så skal du joine de 2 tabeller spmGruppe & spmpraemie, Har de så en fælles værdi? jeg tror svaret er ja!?

Synes godt om

hossein Nybegynder

18. august 2003 - 22:44 #45

men så bliver problematisk med opdatering. Og jeg skal snart i seng ;)

Synes godt om

isaac Nybegynder

18. august 2003 - 22:46 #46

Jamen det er lavet sådan med 2 tabeller fordi at jeg så kan oprette lige så mange præmier i hver konkurrence som jeg vil!

Hvis jeg sammen lægger tabellerne så forsvinder den funktion vel?

Synes godt om

isaac Nybegynder

18. august 2003 - 22:47 #47

Vi kan godt snart stoppe!
Gider du fortsætte i morgen eller en anden dag?

Synes godt om

hossein Nybegynder

18. august 2003 - 22:50 #48

ja kan ikke tænke nu, men det bliver besværligt, alt er muligt, vi skal nok klare det, det er bare besværligt for mig at har intet data for at prøve med.

Synes godt om

isaac Nybegynder

18. august 2003 - 22:52 #49

Det lyder godt!

Godnat

Synes godt om

hossein Nybegynder

18. august 2003 - 22:56 #50

hvis du sender dataerne 5 række af hver hver tabel i form af text fil i excel + asp filerne så går det hurtigere. så får du dem i morgen aften.

god nat

Synes godt om

isaac Nybegynder

18. august 2003 - 23:03 #51

jeg kan heller ikke tænke lige nu :)
Jeg kan ikke helt se hvad du mener lige nu, men jeg kan måske når jeg har sovet :)

Godnat

Synes godt om

isaac Nybegynder

19. august 2003 - 21:11 #52

Er du her??

Synes godt om

hossein Nybegynder

19. august 2003 - 21:13 #53

mener du mig? ja

Synes godt om

isaac Nybegynder

19. august 2003 - 21:15 #54

(c:
Har du kigget på det nye jeg sendte i morges?

Synes godt om

hossein Nybegynder

19. august 2003 - 21:19 #55

ja, det har jeg

Synes godt om

isaac Nybegynder

19. august 2003 - 21:25 #56

Ser det ike lettere ud!
Så skal vi bare ha' den til at virke sådan at jeg kan gemme rettelserne på præmierne! Det andet kan jeg stadig rette i!

Synes godt om

hossein Nybegynder

19. august 2003 - 21:25 #57

ok!

Synes godt om

hossein Nybegynder

19. august 2003 - 21:45 #58

sent, se bortfra 1. mail

Synes godt om

isaac Nybegynder

19. august 2003 - 21:53 #59

Den virkede ikke......siden kan ikke vises!
Hvad vil du helst skrive email eller skrive her inde?

Synes godt om

hossein Nybegynder

19. august 2003 - 21:54 #60

Synes godt om

isaac Nybegynder

20. august 2003 - 20:09 #61

>>hossein

Er du der??

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