hjælp til at gøre dette script færdigt..
Hej..Til at starte med jeg er først ved at lære ASP, så have lidt tålmodighed med mig :/
jeg har fået et script som bare skal laves lidt ved så det kan opfyld minne ønsker..
her er den script som jeg snakker om..
------>
<% Option Explicit %><!doctype html public "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Nyt dokument</title>
<meta name="generator" content="TSW WebCoder">
</head>
<body>
<table>
<%
''''''''''''''''''''''''''''''''''''''''
' Lavet af Mathias Rav, 06-12-2003. '
' Besøg http://www.frip.dk/mathiasrav/ '
''''''''''''''''''''''''''''''''''''''''
' 1: Hvor mange kolonner skal der være
' på tværs?
Dim intKolonner
intKolonner = 5
' 2: Her er <TD>-tagget der vil blive
' brugt. %ID% bliver erstattet med
' f.eks. 16 hvis det er billede 16
' der bliver vist.
' %TXT% bliver erstattet af teksten
' til billedet i databasen.
Dim strTdTag
strTdTag = "<td><a href=""storbillede.asp?id=%ID%"" target=""_blank""><img src=""billede%ID%.jpg"" alt=""Billede %ID%""></a><br>%TXT%</td>"
' 3: Hvilket nr. starter billederne på?
Dim intStartBillede
intStartBillede = 1
' 4: Hvilket nr. slutter billederne på?
Dim intSlutBillede
intSlutBillede = 12
' 5: Databasen vi henter tekster fra?
Dim strDbName
strDbName = "images.mdb"
' 6: Tabellen?
Dim strDbTable
strDbTable = "images"
' 7: Koden til databasen? Hvis der ikke
' er nogen, skriv "ingen"
Dim strDbPass
strDbPass = "ingen"
' 8: Kolonnen med IDet?
Dim strIdCol
strIdCol = "Id"
' 9: Kolonnen med teksten?
Dim strTxtCol
strTxtCol = "Tekst"
' 10: Her er SQLlen. Du kan tilpasse den
' med "top 20", "where x = 'y'" eller
' et eller andet...
Dim strSQL
strSQL = "Select * from " & strDbTable
' "I" bliver brugt i For-løkken
' i Do-løkken
Dim I
' intCurID er det nuværende
' nr. billede
Dim intCurID
intCurID = intStartBillede
Dim Conn
Dim DSN
Dim rs
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
If Not LCase(strDbPass) = "ingen" Then
DSN = DSN & "PWD=" & strDbPass & "; "
End If
DSN = DSN & "DBQ=" & Server.MapPath(strDbName)
Conn.Open DSN
Dim strBilledeTekst
Do Until intCurId > intSlutBillede
Response.Write "<tr>"
For I = 1 To intKolonner
If Not intCurId > intSlutBillede Then
Set rs = Conn.Execute("Select * from [" & strDbTable & "] Where " & strIdCol & " = " & intCurId)
strBilledeTekst = rs(strTxtCol)
rs.Close
Set rs = Nothing
Response.Write Replace(Replace(strTdTag, "%ID%", intCurID), "%TXT%", strBilledeTekst) & vbCrLf
intCurID = intCurID + 1
End If
Next
Response.Write "</tr>" & vbCrLf
Loop
'EOS - End Of Script - EOS
%>
</table>
</body>
</html>
<---------
det den skulle kunne er at jeg online via min hjemmeside kan oprette et post med et billed og tekst (selve billedet har jeg uploadet i en mappe på min server (en mappe med det lille billed og en mappe med det store billed)) når jeg trykker på billedet skal det link hend til det samme billed bare i stort med samme tekst...
desuden vil jeg gerne kunne redigere i teksten og billedet via min hjemmeside (online)...
håber der nogen flinke nisser som kan hjælp mig :)
mvh
kuki
