Notifikationer

Markér alle som læst Log ud

fastpoint Nybegynder

26. januar 2002 - 19:44 Der er 18 kommentarer og
1 løsning

Link i ASP igen

hvordan få jeg denne kode stump..

<a href="./out.asp?id=<% Response.Write rs("id")%>" target="_blank">
<% Response.Write rs("download")%>
</a>

til at virke i dette script

<% Response.Buffer = True %>
<HTML>
<HEAD>

<TITLE>Joke system.</TITLE>
<META NAME="Generator" CONTENT="Stone's WebWriter 3">
</HEAD>
<BODY BGCOLOR="#33B0FB" TEXT="#000000" LINK="#000000" VLINK="#808080" ALINK="#C0C0C0">
<center>
<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")
If Request.QueryString("id") <> "" Then
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM joke WHERE (ID = " & Request.QueryString("id") & ")"
rs.Open strSQL, myConn, 1, 3
If Not (rs.BOF Or rs.EOF) Then
Response.write "<TABLE WIDTH=""50%"" BORDER=""1"" BGCOLOR=""#FFFFFF"" BORDERCOLOR=""#000000""><TR VALIGN=""top""><TD>" & rs("overskrift") & " Til føjet af: " & rs("navn") & " den " & rs("dato") & " " & rs("joke") & " Download: <a href='" & rs("url") & "'>" & rs("download") & "</a> <center><A HREF=""java script:history.back(1)"" TARGET=""_top"">Tilbage</A></center></TD></TR></TABLE> "
rs.Update
rs.Close
myConn.Close
Set rs = Nothing
Set myConn = Nothing
End If
End If
%>
</center>
</BODY>
</HTML>

det er denne del af scriptet der skal laves om tror jeg.. hvem kan hjælpe?

& rs("dato") & " " & rs("joke") & " Download: <a href='" & rs("url") & "'>" & rs("download") & "</a>

Synes godt om

fastpoint Nybegynder

26. januar 2002 - 19:56 #1

I siger lige til hvis i ikke forstod noget af det jeg lige skrev:)

Synes godt om

orca Nybegynder

26. januar 2002 - 20:02 #2

Er lige ved at kigge på det. Et lille tip. I stedet for at skrive <% Response.Write(rs("blablah")) %> Så kan du bare skrive <%= rs("blablah") %>

Mvh Mark
--
www.gameshots.dk
www.profiled.org

Synes godt om

orca Nybegynder

26. januar 2002 - 20:04 #3

Jeg vil tro det du vil er følgende:

& rs("dato") & " " & rs("joke") & " Download: <a href='../out.asp?id=" & rs("id") & "' target='_blank'>" & rs("download") & "</a> 

Mvh Mark
--
www.gameshots.dk
www.profiled.org

Synes godt om

fastpoint Nybegynder

26. januar 2002 - 20:10 #4

den kommer med denne fejl..
Error Type:
Microsoft VBScript compilation (0x800A0409)
Unterminated string constant
/easy/joke.asp, line 18, column 421
Response.write "<TABLE WIDTH=""50%"" BORDER=""1"" BGCOLOR=""#FFFFFF"" BORDERCOLOR=""#000000""><TR VALIGN=""top""><TD>" & rs("overskrift") & " Til føjet af: " & rs("navn") & " den " & rs("dato") & " " & rs("joke") & " Download: <a href='./out.asp?id=" & rs("id") & "' target='_blank'>" & rs("download") & "</a> 
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------^

Synes godt om

orca Nybegynder

26. januar 2002 - 20:26 #5

& rs("dato") & " " & rs("joke") & " Download: <a href='../out.asp?id=" & rs("id") & "' target='_blank'>" & rs("download") & "</a> "

Synes godt om

fastpoint Nybegynder

26. januar 2002 - 20:29 #6

hmm den virkede faktisk også før... men ikke første gang jeg prøvede:)

Tak igen og tak for tippet:)

Synes godt om

orca Nybegynder

26. januar 2002 - 20:31 #7

Hehe, det var så lidt... igen :). Tak for point.

Synes godt om

fastpoint Nybegynder

26. januar 2002 - 20:44 #8

hmm kan du lige hurtigt se fejlen her?

<%

link = Request.QueryString("id")

dim strDSN, Conn
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strDSN

Set RS = conn.Execute("select * from joke where ID =" & link)

if cdate(request.cookies("views")(cstr(link))) < DateAdd("d",-6,now()) then
views=cInt(rs("views"))+1
Set RS2 = conn.Execute("UPDATE downloads SET views = " & views & " Where ID =" & link)
response.cookies("views").expires=DateAdd("m",1,now())
response.cookies("views").domain = "www.ingen.dk"
response.cookies("views")(cstr(link))= now()
End If

jwredir = RS("link")

RS.Close
set rs= nothing
conn.Close
set conn = nothing

Response.Redirect (jwredir)
%>

den kommer med denne fejl..

Error Type:
Microsoft VBScript runtime (0x800A005E)
Invalid use of Null: 'cInt'
/easy/out.asp, line 13

skal jeg bruge noget andet end cint? eller er det i databasen jeg skal rette noget?

Synes godt om

fastpoint Nybegynder

26. januar 2002 - 20:45 #9

det er i out.asp

Synes godt om

orca Nybegynder

26. januar 2002 - 20:49 #10

Kom dette ind i toppen af filen:

Function Val(number)
If IsNumeric(number)
Val = Int(number)
Else
Val = 0
End If
End Function

Nu skal du ikke længere bruge cInt men i stedet skal du bruge Val(et_nummer). Val vil også afrunde numre.

Mvh Mark
--
www.gameshots.dk
www.profiled.org

Synes godt om

fastpoint Nybegynder

26. januar 2002 - 21:04 #11

den siger

Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'Val(...)'
/easy/out.asp, line 21

jeg skrev den sådan her views=val(0)(rs("views"))+1

hvordan skal den skrives?

Synes godt om

orca Nybegynder

26. januar 2002 - 21:07 #12

Det skal være views=Val(rs("views"))+1

Synes godt om

fastpoint Nybegynder

26. januar 2002 - 21:14 #13

hmm den siger

Error Type:
ADODB.Recordset (0x800A0CC1)
Item cannot be found in the collection corresponding to the requested name or ordinal.
/easy/out.asp, line 28

kan det være databasen jeg ikke har indstillet rigtigt?

Synes godt om

fastpoint Nybegynder

26. januar 2002 - 21:24 #14

en sidste ting... har fundet fejlen fra før nu har jeg denne

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] Table 'joke' is exclusively locked by user 'Admin' on machine 'BILAL-CL7WI8MWI'.
/easy/out.asp, line 18

hvordan unlocker jeg den table? jeg skal nok oprette spørgsmålene fremover da der kommer mange:)

Synes godt om

orca Nybegynder

26. januar 2002 - 21:27 #15

Dette betyder formentligt at du sidder med tabellen åben i Access samtidig med at du prøver at se siden?

Mvh Mark

Synes godt om

fastpoint Nybegynder

26. januar 2002 - 21:28 #16

hmmm skummelt... nu virker den... jeg ændrede ellers ikke på noget

Synes godt om

fastpoint Nybegynder

26. januar 2002 - 21:29 #17

det gjorde jeg faktisk:)

Synes godt om

fastpoint Nybegynder

26. januar 2002 - 22:24 #18

http://www.eksperten.dk/spm/164179

Synes godt om

fastpoint Nybegynder

27. januar 2002 - 13:49 #19

endnu et :) http://www.eksperten.dk/spm/164346

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
ASP classic kopiere database fil på server Af bsn i ASP	7	31/10/202610:20	01/11/202620:28
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
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

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