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

hugopedersen Nybegynder

21. januar 2003 - 13:09 Der er 9 kommentarer og
1 løsning

Færdig løsning - publisere 1 tabel

Jeg mangler en færdig løsning til hvordan jeg publiserer indholdet af en tabel på en intranetside !
Jeg har et view på en SQL server der indeholder 5 felter, som skal vises som noget der ligner et datasheet. Øverst på siden skal der stå der noget tekst og et kogo.

Hvem har et script liggende som jeg kan finde ud af at tilpasse ?

Synes godt om

ffse.dk Nybegynder

21. januar 2003 - 13:36 #1

<%
Function DebugDisplayRecordSet(RecordSetName)
dim i
response.write "<TABLE BORDER=1 CELLPADDING=0 CELLSPACING=0>"
response.write "<TR>"
For i = 0 to RecordSetName.Fields.Count - 1
response.write " <TD><B>" & RecordSetName(i).Name & "</B></TD>"
Next
response.write "</TR>"
Do While Not RecordSetName.EOF
response.write " <TR>"
For i = 0 to RecordSetName.Fields.Count - 1
If IsNull(RecordSetName(i).Value) Then
response.write " <TD VALIGN=TOP><NULL></TD>"
Else
response.write " <TD VALIGN=TOP>" & RecordSetName(i).Value & "</TD>"
End If
Next
response.write " </TR>"
RecordSetName.MoveNext
Loop
response.write "</TABLE>"
End Function
%>

Synes godt om

ffse.dk Nybegynder

21. januar 2003 - 13:36 #2

Hovsa. Det var et svar.

Synes godt om

hugopedersen Nybegynder

21. januar 2003 - 13:57 #3

Jeg ved absolut intet om ASP, men med min viden om databaser generelt synes jeg der manger et eller andet der fortæller hvilken db den skal have fat på. Eller er det ikke nødvendigt -jo det må det da være !

Synes godt om

ffse.dk Nybegynder

21. januar 2003 - 14:03 #4

Hvis du absolut intet ved om ASP er det måske på tide at du lærer det. Forvent ikke skræddersyede løsninger uden selv at gøre en lille indsats.

Synes godt om

hugopedersen Nybegynder

21. januar 2003 - 14:06 #5

Jeg indledte mit spørgsmål med 'Jeg mangler en færdig løsning til hvordan jeg publiserer indholdet af en tabel....'

Så det jeg forventede/håbede på var et script som jeg kunne tilrette til min db og feltnavne.

Synes godt om

ffse.dk Nybegynder

21. januar 2003 - 14:20 #6

Hvis du gerne vil have en færdig side til det ovenstående formål, må du hellere give lidt flere point ud. Ingen sidder jo og programmerer en intranet-side for dig for 30 stykker.

Alternativt kan du henvende dig til et web-bureau som, mod betaling, nok skal programmere det hele for dig, så du ikke behøver tænke selv.

Synes godt om

hugopedersen Nybegynder

21. januar 2003 - 14:24 #7

I følge mit spørgsmål mener jeg at den sidste linie siger noget nær det jeg har brug for :
En eller anden der har lavet noget lignende, so gerne vil af med sit script som jeg så kan tilpasse.
Men mener du ikke det skulle kunne lade sig gøre, så må jeg da hellere lukke spørgsmålet og fortsætte med bare at programmere på min SQL server.

Synes godt om

hossein Nybegynder

21. januar 2003 - 14:30 #8

en måde er sådan. du har brug for 3 filer og selfølgelig skal du tilpasse dem til din egen server og system. dette bruger jeg i msSQL 7
1. global.asa
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">

Sub Application_OnStart
Application.Lock
Application("ConnectionString")="Driver={SQL Server}; Server=servername;Database=dbname; UID=sa; PWD=password"
Application.Unlock
End Sub

2. db_connection.asp



<%
Dim strconnect
Dim login
Dim password
Dim sqlString

ConnectionString = Application("ConnectionString")
username = Request.Form("txtUsername")
password = Request.Form("txtPassword")

sqlString = "SELECT * FROM users WHERE username = '" & username & "' AND password = '" & password & "';"

Set objRecordset = Server.CreateObject("ADODB.Recordset")
objRecordset.Open sqlString, ConnectionString, adOpenKeyset, adLockReadOnly, adCmdText

%>
<html>
<body>
<%

While Not objRecordset.EOF
Response.Write(objRecordset("username").Value & ", " & objRecordset("password").Value & "<br>")
objRecordset.MoveNext
Wend

objRecordset.Close
Set objRecordset = Nothing

%>
</body>
</html>
%>
3. adovb.inc
<%

'---- CursorTypeEnum Values ----
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3

'---- LockTypeEnum Values ----
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4

'---- CommandTypeEnum Values ----
Const adCmdUnknown = &H0008
Const adCmdText = &H0001
Const adCmdTable = &H0002
Const adCmdStoredProc = &H0004

%>

håber det hjælper

Synes godt om

hugopedersen Nybegynder

21. januar 2003 - 14:48 #9

Se det ligner noget som jeg tror at jeg måske kan få til at fungere

Synes godt om

hugopedersen Nybegynder

21. januar 2003 - 15:01 #10

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/test/db_connection.asp, line 14

Her følger linie 11, 12, 13, 14

sqlString = "SELECT * FROM zz_tblForSale ORDER BY fldItemNbr;"

Set objRecordset = Server.CreateObject("ADODB.Recordset")
objRecordset.Open sqlString, ConnectionString, adOpenKeyset, adLockReadOnly, adCmdText

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

22/11

Test: Den snusfornuftige Volkswagen ID.3 blevet til lidt af el-bisse

22/11

Vil købe tele-løsninger til det offentlige for 370 millioner kroner

22/11

Nørgaard: Det er de neuro-divergente originalers tid

22/11

Sker helt åbenlyst: Ansatte i den kinesiske stat sælger borgernes personlige data på hemmelige internet-fora

22/11

Efterspørgslen på AI-regnekraft er enorm - og det smitter af på priserne: "Vi kan sælge næsten alt, hvad vi får ind"

22/11

Derfor bliver den amerikanske tvangs-opdeling af Google nok ikke til noget

22/11

Nyt værtøj fra Microsoft: Snart kan du reparere nedbrudte Windows-enheder på distancen

22/11

Vi har fundet 10 ledige it-stillinger, som du kan søge netop nu

22/11

Politiet skriver kontrakt på 75 millioner kroner med dansk it-firma: Medarbejdere skal flytte ind hos politiet

22/11

Kombit gør klar til at købe it-konsulenter for 140 millioner kroner - her er planen

22/11

Droner i krig - sådan anvendes de mest effektivt på slagmarken

Vis flere artikler

IT-JOB

SDC A/S

Business-Focused Data Expert - Drive Innovation in Financial Data

DEIF A/S

Technical Lead, Software Architecture

Arbejdstilsynet

Senior Data Engineer, der vil gøre en forskel for fremtidens arbejdsmarked

Sydbank

Software Developer til Digital Banking i Sydbank

Netcompany A/S

Test Specialist

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I går 22:30	Underlig meddelelse på skærmen Af Jordegern i E-mail programmer
I går 15:56	Navigation i Peugeot 3-2008 fra 2017 Af arnepedersen i Andet software
I går 14:10	Outlook henter ikke mails Af TTA i Office & Kontorpakker
I går 13:58	vise billeder i kartotek med store ikoner inklusive optagelsesdato Af Malm i Billedbehandling
I går 13:35	Adobe Elements 2019, Organizer Crasher Af mort1 i Billedbehandling