CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

mulle Nybegynder

08. december 2000 - 23:07 Der er 11 kommentarer og
1 løsning

Jeg mangler lidt asp hjælp.....

Jeg har fundet et script på nettet, til et slankeskema. Jeg vil gerne lave det muligt for folk, at tilmelde og rette i deres data, eller slette sig fra skemaet, ved hjælp af brugernavn og password.
Der er følgende på skemaet
ID
Navn
Startvægt
Vægten nu
Vægttab
Vil tabe
Notat
Det jeg mangler til skemaet er muligheden for at logge sig ind med password og skrive notat til skemaet, samt skrive oplysninger om navn vægt osv.
Er der en der vil hjælpe mig med at rette scriptet til, da jeg ikke er nogen haj til asp:-)??

Synes godt om

proboss Nybegynder

08. december 2000 - 23:32 #1

prøv at sende det til mig så kan jeg prøve at hjælpe dig,

Synes godt om

proboss Nybegynder

08. december 2000 - 23:33 #2

E-mail er Proboss@image.dk

Synes godt om

rex2 Nybegynder

09. december 2000 - 08:54 #3

- hvad med at vise scriptet, så vi kan se om det volder de store problemer...

Synes godt om

mulle Nybegynder

09. december 2000 - 10:09 #4

her det scriptet.

<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">

<html>
<head>
<title>Untitled</title>
</head>

<body>
<b>Dette er et eksempel på Database via ASP:</b>
<table border=1>
<tr bgcolor=\"#aaaaaa\"><td>ID</td><td>Navn</td><td>Startvægt</td><td>Vægten nu</td><td>Vægttab</td><td>Vil tabe</td><td>Notat</td></td></tr>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DBQ=c:\\inetpub\\wwwroot\\db2.mdb;DefaultDir=c:\\inetpub\\wwwroot;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;\"
SQL=\"SELECT * FROM table1\"
Set RS= Server.CreateObject(\"ADODB.RecordSet\")
rs.open SQL,conn
do while not rs.eof and not rs.bof
response.write \"<tr><td>\" & rs(\"id\") & \"</td><td>\" & rs(\"navn\") & \"</td><td>\" & rs(\"startvægt\") & \"</td><td>\" & rs(\"vægtnu\") & \"</td><td>\" & rs(\"vægttab\") & \"<td>\" & rs(\"viltabe\") & \"</td></tr>\"
rs.movenext
loop
rs.close
Conn.close
%>
</table>
</body>
</html>

Synes godt om

mulle Nybegynder

10. december 2000 - 00:51 #5

jeg har fået lavet et login til skemaet men mangler nu bare at man kan skrive til skemaet når man er logget ind med sit brugernavn .... er der en venlig sjæl der vil hjælpe mig med det ?

mulle

Synes godt om

stringbuffer Nybegynder

10. december 2000 - 02:45 #6

her er en løsning skrevet i JScript. Den er testet, men forudsætter at der findes en tabel med brugerdata. Det ville heller ikke være et problem at lave det så man kunne oprette brugere i den. Men du kan jo bare lave tilmelding (hvor man bare reserverer navn og password) som en anden asp side.

ok, her er koden:

<%@ LANGUAGE=JScript %>
<%

Response.Buffer = true

strDSN = \"Driver={Microsoft Access Driver (*.mdb)};DBQ=c:\\inetpub\\wwwroot\\db2.mdb\"

conn = Server.CreateObject(\"ADODB.Connection\")
conn.open(strDSN)

if (Request.ServerVariables(\"REQUEST_METHOD\") == \"POST\")
{

var userName = null, password = null

if(!Session(\"logget_ind\"))
{
userName = Request.Form(\"navn\")
password = Request.Form(\"passw\")

strSQL = \"SELECT * FROM table1 WHERE navn=\'\"+userName+\"\'\"
rs = conn.Execute(strSQL)
if (!rs.Eof && !rs.Bof && \"\"+password == rs(\"id\"))
Session(\"logget_ind\") = \"\"+userName
else
{

%><body>
<form method=post>
Bruger ID: <input type=text name=navn><br>
Adgangskode: <input type=password name=passw><br>
<input type=submit value=\"Log ind\">
</form>
</body><%

conn.Close()
Response.End()
}
}
var navn, passw, startv, nuv, tab, viltabe, notat
if (!userName)
{
startv = Request.Form(\"startv\")
navn = Request.Form(\"navn\")
passw = Request.Form(\"passw\")
nuv = Request.Form(\"nuv\")
tab = Request.Form(\"tab\")
viltabe = Request.Form(\"viltabe\")
notat = Request.Form(\"notat\")

strSQL = \"UPDATE DISTINCTROW table1 SET navn=\'\"+navn+\"\', id=\'\"+passw+\"\', startvægt=\"+startv+\", vægtnu=\"+nuv+\", vægttab=\"+tab+\", viltabe=\"+viltabe+\", notat=\'\"+notat+\"\' WHERE navn=\'\"+Session(\"logget_ind\")+\"\'\"
conn.Execute(strSQL)
}
strSQL = \"SELECT * FROM table1 WHERE Navn=\'\"+Session(\"logget_ind\")+\"\'\"
rs = conn.Execute(strSQL)

%>
<form method=post>
Brugernavn: <input type=text name=navn value=\"<%= rs(\'navn\') %>\"><br>
Adgangskode: <input type=text name=passw value=\"<%= rs(\'id\') %>\"><br>
Startvægt: <input type=text name=startv value=\"<%= rs(\'startvægt\') %>\"><br>
Vægt nu: <input type=text name=nuv value=\"<%= rs(\'vægtnu\') %>\"><br>
Vægttab: <input type=text name=tab value=\"<%= rs(\'vægttab\') %>\"><br>
Ønsket vægttab: <input type=text name=viltabe value=\"<%= rs(\'viltabe\') %>\"><br>
Notat: <textarea name=notat><%= rs(\'notat\') %></textarea><br>
<input type=submit value=\"Gem\">
</form><%

}
else
{

%><form method=post>
Bruger ID: <input type=text name=navn><br>
Adgangskode: <input type=password name=passw><br>
<input type=submit value=\"Log ind\">
</form><%

}
conn.Close()

%>

Der er selfølgelig nogle ting, der kan gøres pænere, men det her burde give en idé om hvordan det KAN løses

Synes godt om

mulle Nybegynder

14. december 2000 - 23:53 #7

lukker har fået lavet skemaet.

Synes godt om

stringbuffer Nybegynder

15. december 2000 - 11:53 #8

Oplys os andre: vis os hvordan du har lavet det.
Og hvorfor f.eks. mit svar ikke var godt nok

Synes godt om

mulle Nybegynder

16. december 2000 - 00:25 #9

jeg fik en uden for eksperten til at lave det!!

Synes godt om

chris Nybegynder

16. december 2000 - 02:58 #10

stringbuffer: det er folk som Mulle man husker navnet på.
Og ham smæker man i \"Spild-af-tid\" kategorien :-)

List latterligt efterhånden med alle de folk, der opretter et spørgsmål og trækker det tilbage ....især når nogle mennesker har brugt tid på at hjælpe personen.
Admin her burde lave det sådan at personen der opretter spørgsmål ikke selv kan svare. Og derved ikke selv få de point igen.

Synes godt om

proboss Nybegynder

16. december 2000 - 11:20 #11

det er ikke rigtigt jeg har lavet det for mulle, med lidt hjælp fra andre,på eksperten

Synes godt om

mulle Nybegynder

16. december 2000 - 20:30 #12

jeg har fået det jeg skulle bruge og har givet point til per.........

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
Lost focus Af bsn i ASP	0	07/11/202415:34	-
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
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09

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

27/12

Ny leverandør har netop underskrevet kontrakt med Kombit om kæmpe dansk bibliotekssystem

27/12

Test: Endelig en videodørklokke i smart indpakning og performance, der matcher

27/12

Nørgaard: Her er vinderen af Mogens-prisen 2024 - tak for elendig service

27/12

Apple i gang med at udvikle en smart dørklokke – som kan låse din dør op med FaceID

27/12

M365 Copilot kan blive hurtigere og billigere: Microsoft åbner for alternativer til OpenAI

27/12

Stort flyselskab lammet af jule-cyberangreb: 40 procent af afgangene blev ramt

27/12

Ny europæiske supercomputer med 14.000 GPU’er sætter danske Gefion til vægs: Skal bruges til at udvinde kulsort energi

27/12

Nye skatteregler for kryptovaluta udskydes: Vil påvirke 300.000 danskere

27/12

Sådan bekæmper ledere digital stress

27/12

Den danske ungdom ser intet formål i at arbejde med it

27/12

Amazon må udskyde plan om at få de ansatte tilbage på kontoret: Har ikke plads til dem

Vis flere artikler

IT-JOB

Københavns Erhvervsakademi

IT-underviser - inspirér fremtidens IT-teknologer

Scan Global Logistics

IT-Supporter til globalt og dynamisk miljø

TV2

Planassistent til TV 2 Plan & Publicering (studentermedhjælper)

Mobilplan ApS

Senior PHP Developer – du vil elske det her job, hvis du …

DSV

Manager - Operational Analytics - Enterprise Transformation

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I går 07:53	Kan jeg lave en "søg og erstat" i databasen Af a3-seo.dk i MySQL
27/1211:30	Ændre det aller første billed, man ser ? Før man skriver koden (Windows 11) ... Af Ikke-ekspert i Windows
27/1210:47	NUM. tastatur og pc indbygget mus virker ikke. Af arnepedersen i Excel
27/1204:32	Korrupt CF kort Af Mozcan i Foto & video
26/1221:34	install.esd og boot.wim Af sjass i Windows