rudymadsen Nybegynder

16. august 2006 - 14:53 Der er 103 kommentarer og
1 løsning

AspUpload og database

Jeg har et problem/en opgave, der går på, at jeg skal uploade filer til en webserver, på et webhotel med AspUpload komponenten. Derud over skal denne upload foregå fra en formular, der i forvejen har felter, der korresponderer med en Access database.

Jeg vil godt lave formularen så smidig, at brugeren kun skal trykke på en SEND knap, og så bliver mine felter opdateret i databasen, samtidig med, at filen uploades til serveren.

Kan man det, og hvordan?

Venlig hilsen
Rudy

Synes godt om

fennec Nybegynder

16. august 2006 - 14:58 #1

Skal filens navn også gemmes i databasen??

Synes godt om

rudymadsen Nybegynder

16. august 2006 - 15:16 #2

Ja, det var meningen.

Synes godt om

fennec Nybegynder

16. august 2006 - 15:41 #3

Dette har jeg lige bikset samme så det er ikke testet:

<form name="myForm" enctype="multipart/form-data" method="post" action="gemSide.asp">
fil: <input type="FILE" name="File1"><br>
Tekst: <input type="Text" name="Tekst1" value=""><br>
Tekst: <input type="Text" name="Tekst2" value=""><br>
<input type="Submit" value="Gem">
</form>

gemSide.asp
<%
Set Upload = Server.CreateObject("Persits.Upload")
Upload.Save server.mapPath("/uploadMappe")

Set File = Upload.Files("File1")
If Not File Is Nothing Then
conn.execute("insert into DinTabel(filnavn,tekst1, tekst2) values('"& File.Filename &"','"& Upload.Form("Tekst1") &"','"& Upload.Form("Tekst2") &"')")
else
Response.write "Ingen fil uploaded..."
end if
%>

Synes godt om

fennec Nybegynder

16. august 2006 - 15:46 #4

Det er rigmelig lige ud af lande vejen. Nå man uploader filer via et komponent, overtager komponenten request.form felterne. Så man henter dem ud via komponentens navn:
Set UploadNavn = Server.CreateObject("Persits.Upload")
UploadNavn.Save
tmp = UploadNavn.form("formFelt")

De fleste komponenter kan først hente formfelter efter "Save" kaldet:
Set UploadNavn = Server.CreateObject("Persits.Upload")
tmp = UploadNavn.form("formFelt") '<-- Virker ikke
UploadNavn.Save
tmp = UploadNavn.form("formFelt") '<-- OK

request.Querystring er stadig den samme:
Set UploadNavn = Server.CreateObject("Persits.Upload")
UploadNavn.Save
tmp1 = UploadNavn.form("formFelt")
tmp2 = request.querystring("var1")

Synes godt om

rudymadsen Nybegynder

16. august 2006 - 16:33 #5

Tak for hjælpen.

Jeg tror måske, jeg vil simplificere det lidt. Jeg kom i tanke om, at man også skal kunne indtaste data til databasen UDEN at uploade en fil, så jeg bliver nok nødt til alligevel at dele processen i to.

Men tak alligevel.

/Rudy

Synes godt om

fennec Nybegynder

16. august 2006 - 16:42 #6

Nej du gør ikke. Hvis der ikke er nogen fil, ligger form værdierne stadig i upload:

Set File = Upload.Files("File1")
If Not File Is Nothing Then
'Med fil
conn.execute("insert into DinTabel(filnavn,tekst1, tekst2) values('"& File.Filename &"','"& Upload.Form("Tekst1") &"','"& Upload.Form("Tekst2") &"')")
else
'Uden fil
conn.execute("insert into DinTabel(filnavn,tekst1, tekst2) values('','"& Upload.Form("Tekst1") &"','"& Upload.Form("Tekst2") &"')")
end if

Synes godt om

rudymadsen Nybegynder

29. august 2006 - 14:57 #7

Ville du være interesseret i at implementere den kode, du har lavet, i mit dokument? Jeg forudser, at jeg vil kunne komme til at bruge timer på at få det til at fungere.

Jeg anvender Dreamweaver, som jo laver megen kode selv, og det kan være lidt svært at finde det sted, hvor koden skal ind, og hvordan den skal stå.

Som du nok har bemærket, er jeg ikke hardcore kodehaj, så det ville hjælpe mig meget, hvis du kunne gøre dette for mig.

/Rudy

Synes godt om

fennec Nybegynder

29. august 2006 - 15:32 #8

Det skal nok kunne lade sig gøre, hvis det ikke er alt for meget arbejde i det. Jeg programmere nemlig sjældent uden for arbejde, da der er så meget andet at tage sig til i den virklige verden :o)

Vi skal så bare have 100% styr på hvordan siden skal fungere/se ud. Skal man kunne slette og ændre dataerne, og hvordan skal det foregå??

Hvis du kunne lave alle skærmbilleder som HTML eller tegne det (og scanne ind som billed), vil det være super fedt. Da det så er nemmere at se og forstå, hvad du ønsker. Det behøver ikke være flot design. Jeg skal kun bruge det for at vide hvilker felter der er og hvordan den overordnet opbygning er. Designet kan altid laves bagefter.

Synes godt om

rudymadsen Nybegynder

29. august 2006 - 15:50 #9

Jeg har lavet designet og det er allerede en underside i et større site.

Du kan se siden her:

http://asp.hid.dk/detgodehus/indsaet_docs.asp

Det skal være sådan, at når du klikker på knappen "browse", skal du kunne finde filen, der skal uploades og den virker også nu. Men bgefter skal du kunne klikke på "Indsæt dokument" og herefter lægges alle dataene i databasen.

Håber det giver mening.

/Rudy

Synes godt om

fennec Nybegynder

30. august 2006 - 09:25 #10

Hvordan ser din database ud, hvor der skal indsættes??

Synes godt om

rudymadsen Nybegynder

30. august 2006 - 09:40 #11

Hvad mener du? - Vil du se databasen?

Det er en Access database, og selve indsættelse af data i den fungerer for og så vidt godt nok. Det er bare integrationen med "upload" muligheden, jeg mangler.

/Rudy

Synes godt om

fennec Nybegynder

30. august 2006 - 09:51 #12

Dvs at indsaet_docs.asp fungere 99%. Den mangler bare at kunne uploade og gemme filnavnet??

Synes godt om

rudymadsen Nybegynder

30. august 2006 - 09:54 #13

jep :-) i samme handling...

Synes godt om

fennec Nybegynder

30. august 2006 - 10:06 #14

Så smid hele koden til den side herind. Så skal jeg nok rette den :o)

Synes godt om

rudymadsen Nybegynder

30. august 2006 - 10:52 #15

Du får her hele koden, som jo (da det er lavet i Dreamweaver) er meget lang.

Håber du kan overskue det :-)

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) = "form1") Then

MM_editConnection = MM_dgh_conn_STRING
MM_editTable = "tbl_dokumenter"
MM_editRedirectUrl = "takforupload.htm"
MM_fieldsStr = "select|value|dato|value|formidlingogfacilitering|value|titel|value|organisation|value|utitel|value|sceneogsal|value|beskriv|value|aabnerum|value|vaerksteder|value|cafeogkoekken|value|samarbejde|value|THEFILE|value|link|value|fra|value|kurser|value|frasted|value|faciliteter|value|maakontaktes|value|dokumenter|value|kontakttelefon|value|statistik|value|kontaktemail|value|links|value"
MM_columnsStr = "typeID|none,none,NULL|dato|',none,NULL|formidlingogfacilitering|none,1,0|titel|',none,''|organisation|none,1,0|subtitel|',none,''|sceneogsal|none,1,0|beskriv|',none,''|aabnerum|none,1,0|vaerksteder|none,1,0|cafeogkoekken|none,1,0|samarbejde|none,1,0|filnavn|',none,''|link|',none,''|fra|',none,''|kurser|none,1,0|frasted|',none,''|faciliteter|none,1,0|maakontaktes|none,1,0|dokumenter|none,1,0|kontakttelefon|',none,''|statistik|none,1,0|kontaktemail|',none,''|links|none,1,0"

' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")

' set the form values
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
Next

' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If

End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

Dim MM_tableValues
Dim MM_dbValues

If (CStr(Request("MM_insert")) <> "") Then

' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_formVal = MM_fields(MM_i+1)
MM_typeArray = Split(MM_columns(MM_i+1),",")
MM_delim = MM_typeArray(0)
If (MM_delim = "none") Then MM_delim = ""
MM_altVal = MM_typeArray(1)
If (MM_altVal = "none") Then MM_altVal = ""
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = "none") Then MM_emptyVal = ""
If (MM_formVal = "") Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal <> "") Then
MM_formVal = MM_altVal
ElseIf (MM_delim = "'") Then ' escape quotes
MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End If
MM_tableValues = MM_tableValues & MM_columns(MM_i)
MM_dbValues = MM_dbValues & MM_formVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If

End If
%>
<%
Dim dokumenter
Dim dokumenter_numRows

Set dokumenter = Server.CreateObject("ADODB.Recordset")
dokumenter.ActiveConnection = MM_dgh_conn_STRING
dokumenter.Source = "SELECT * FROM tbl_dokumenter"
dokumenter.CursorType = 0
dokumenter.CursorLocation = 2
dokumenter.LockType = 1
dokumenter.Open()

dokumenter_numRows = 0
%>
<%
Dim typer
Dim typer_numRows

Set typer = Server.CreateObject("ADODB.Recordset")
typer.ActiveConnection = MM_dgh_conn_STRING
typer.Source = "SELECT * FROM tbl_typer"
typer.CursorType = 0
typer.CursorLocation = 2
typer.LockType = 1
typer.Open()

typer_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
<link href="styles.css" rel="stylesheet" type="text/css">
<style type="text/css">

</style></head>

<body>
<form ACTION="<%=MM_editAction%>" METHOD="POST" name="form1">
<p class="sti">Upload dokument </p>
<table width="640" align="left">
<tr valign="baseline">
<td width="175" align="right" nowrap class="brodtekst"><div align="left">Dokumenttype:</div></td>
<td width="175"><select name="select" class="brodtekst">
<%
While (NOT typer.EOF)
%><option value="<%=(typer.Fields.Item("typeID").Value)%>"><%=(typer.Fields.Item("dokumenttype").Value)%></option>
<%
typer.MoveNext()
Wend
If (typer.CursorType > 0) Then
typer.MoveFirst
Else
typer.Requery
End If
%>
</select></td>
<td width="75" class="brodtekst"> </td>
<td class="brodtekst"><strong>Funktion</strong></td>
<td> </td>
</tr>
<tr valign="baseline">
<td width="175" align="right" nowrap class="brodtekst"><div align="left">Dato:</div></td>
<td width="175"><input name="dato" type="text" id="dato" size="30"></td>
<td width="75" class="brodtekst"> </td>
<td class="brodtekst">Formidling og facilitering:</td>
<td><input type="checkbox" name="formidlingogfacilitering" value=1 ></td>
</tr>
<tr valign="baseline">
<td width="175" align="right" nowrap class="brodtekst"><div align="left">Titel:</div></td>
<td width="175"><input type="text" name="titel" value="" size="30"></td>
<td width="75" class="brodtekst"> </td>
<td class="brodtekst">Organisation:</td>
<td><input type="checkbox" name="organisation" value=1 ></td>
</tr>
<tr valign="baseline">
<td width="175" align="right" nowrap class="brodtekst"><div align="left">Undertitel:</div></td>
<td width="175"><input name="utitel" type="text" id="utitel" value="" size="30"></td>
<td width="75" class="brodtekst"> </td>
<td class="brodtekst">Scene og sal:</td>
<td><input type="checkbox" name="sceneogsal" value=1 ></td>
</tr>
<tr valign="baseline">
<td width="175" align="right" nowrap class="brodtekst"><div align="left">Beskrivelse:</div></td>
<td width="175" rowspan="4"><textarea name="beskriv" cols="23" rows="4"></textarea></td>
<td width="75" class="brodtekst"> </td>
<td class="brodtekst">Åbne rum:</td>
<td><input type="checkbox" name="aabnerum" value=1 ></td>
</tr>
<tr valign="baseline">
<td width="175" align="right" nowrap class="brodtekst"><div align="left"></div></td>
<td width="75" class="brodtekst"> </td>
<td class="brodtekst">Værksteder:</td>
<td><input type="checkbox" name="vaerksteder" value=1 ></td>
</tr>
<tr valign="baseline">
<td width="175" align="right" nowrap class="brodtekst"><div align="left"></div></td>
<td width="75" class="brodtekst"> </td>
<td class="brodtekst">Cafe og køkken:</td>
<td><input type="checkbox" name="cafeogkoekken" value=1 ></td>
</tr>
<tr valign="baseline">
<td width="175" align="right" nowrap class="brodtekst"><div align="left"></div></td>
<td width="75" class="brodtekst"> </td>
<td class="brodtekst">Samarbejde:</td>
<td><input type="checkbox" name="samarbejde" value=1 ></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left">Filnavn:

</div></td>
<td colspan="4"><input type=FILE size=30 name="THEFILE"> </td>
</tr>
<tr valign="baseline">
<td width="175" align="right" nowrap class="brodtekst"><div align="left">Link:</div></td>
<td width="175"><input type="text" name="link" value="" size="30"></td>
<td width="75"> </td>
<td><span class="brodtekst"><strong>Bibliotek</strong></span></td>
<td> </td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left">Uploaded af :</div></td>
<td width="175"><input type="text" name="fra" value="" size="30"></td>
<td width="75"> </td>
<td><span class="brodtekst">Kurser:</span></td>
<td><input type="checkbox" name="kurser" value=1 ></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left">Arbejdssted:</div></td>
<td width="175"><input type="text" name="frasted" value="" size="30"></td>
<td width="75" class="brodtekst"> </td>
<td class="brodtekst">Faciliteter:</td>
<td><input type="checkbox" name="faciliteter" value=1 ></td>
</tr>
<tr valign="baseline">
<td width="175" align="right" nowrap class="brodtekst"><div align="left">Må kontaktes:</div></td>
<td width="175"><input type="checkbox" name="maakontaktes" value=1 ></td>
<td width="75" class="brodtekst"> </td>
<td width="175" class="brodtekst">Dokumenter:</td>
<td><input type="checkbox" name="dokumenter" value=1 ></td>
</tr>
<tr valign="baseline">
<td width="175" align="right" nowrap class="brodtekst"><div align="left">Kontakttelefon:</div></td>
<td width="175"><input type="text" name="kontakttelefon" value="" size="30"></td>
<td width="75" class="brodtekst"> </td>
<td width="175" class="brodtekst">Statistik:</td>
<td><input type="checkbox" name="statistik" value=1 ></td>
</tr>
<tr valign="baseline">
<td width="175" align="right" nowrap class="brodtekst"><div align="left">Kontakte-mailadresse:</div></td>
<td width="175"><input type="text" name="kontaktemail" value="" size="30"></td>
<td width="75" class="brodtekst"> </td>
<td width="175" class="brodtekst">Links:</td>
<td><input type="checkbox" name="links" value=1 ></td>
</tr>
<tr valign="baseline">
<td height="34" align="right" valign="bottom" nowrap class="brodtekst"><div align="left">
<input name="Submit" type="submit" value="Indsæt dokument">
</div> </td>
<td height="34" align="right" valign="bottom" nowrap class="brodtekst"><a href="upload.asp" target="_blank">Upload</a></td>
<td width="75"> </td>
<td> </td>
<td> </td>
</tr>
</table>

<input type="hidden" name="MM_insert" value="form1">
</form>
<p> </p>
</body>
</html>
<%
dokumenter.Close()
Set dokumenter = Nothing
%>

<%
typer.Close()
Set typer = Nothing
%>

Synes godt om

fennec Nybegynder

30. august 2006 - 11:02 #16

Kan jeg lige få koden fra dgh_conn.asp også.
Der er måske et DB username/password i den kode, så det skal du huske at udskifte med xxx.

Synes godt om

rudymadsen Nybegynder

30. august 2006 - 11:07 #17

Det er der så vist ikke.... , men her er den:

<%
' FileName="Connection_ado_conn_string.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
set MM_dgh_conn_STRING = server.createobject("ADODB.connection")
MM_dgh_conn_STRING.Open "DBQ=" & server.mappath("../../scripts/dgh.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
'Dim MM_dgh_conn_STRING
'MM_dgh_conn_STRING = "Driver={Microsoft Access Driver (*.mdb)};DBQ=H:\Websider\detgodehus.dk\database\dgh.mdb"
%>

Synes godt om

fennec Nybegynder

30. august 2006 - 11:38 #18

Damn, det er noget indviklet kode de har lavet der, men jeg tror jeg har den:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
dim rs, Upload, File, fileName
Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

if Request.querystring("mode") = "save" then
MM_editTable = "tbl_dokumenter"
MM_editRedirectUrl = "takforupload.htm"
MM_fieldsStr = "select|value|dato|value|formidlingogfacilitering|value|titel|value|organisation|value|utitel|value|sceneogsal|value|beskriv|value|aabnerum|value|vaerksteder|value|cafeogkoekken|value|samarbejde|value|THEFILE|value|link|value|fra|value|kurser|value|frasted|value|faciliteter|value|maakontaktes|value|dokumenter|value|kontakttelefon|value|statistik|value|kontaktemail|value|links|value"
MM_columnsStr = "typeID|none,none,NULL|dato|',none,NULL|formidlingogfacilitering|none,1,0|titel|',none,''|organisation|none,1,0|subtitel|',none,''|sceneogsal|none,1,0|beskriv|',none,''|aabnerum|none,1,0|vaerksteder|none,1,0|cafeogkoekken|none,1,0|samarbejde|none,1,0|filnavn|',none,''|link|',none,''|fra|',none,''|kurser|none,1,0|frasted|',none,''|faciliteter|none,1,0|maakontaktes|none,1,0|dokumenter|none,1,0|kontakttelefon|',none,''|statistik|none,1,0|kontaktemail|',none,''|links|none,1,0"
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")

Set Upload = Server.CreateObject("Persits.Upload")
Upload.Save server.mapPath("/uploadMappe")
Set File = Upload.Files("File1")
If Not File Is Nothing Then
fileName = File.Filename
else
fileName = ""
end if
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(MM_i+1) = CStr(upload.Form(MM_fields(MM_i)))
Next

For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_formVal = MM_fields(MM_i+1)
MM_typeArray = Split(MM_columns(MM_i+1),",")
MM_delim = MM_typeArray(0)
If (MM_delim = "none") Then MM_delim = ""
MM_altVal = MM_typeArray(1)
If (MM_altVal = "none") Then MM_altVal = ""
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = "none") Then MM_emptyVal = ""
If (MM_formVal = "") Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal <> "") Then
MM_formVal = MM_altVal
ElseIf (MM_delim = "'") Then ' escape quotes
MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End If
MM_tableValues = MM_tableValues & MM_columns(MM_i)
MM_dbValues = MM_dbValues & MM_formVal
Next

MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ",filename) values (" & MM_dbValues & ",'"& fileName &"')"
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
end if

%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
<link href="styles.css" rel="stylesheet" type="text/css">
<style type="text/css">

</style></head>

<body>
<form method="" ACTION="indsaet_docs.asp?mode=save" METHOD="POST" name="form1" enctype="multipart/form-data">
<p class="sti">Upload dokument </p>
<table width="640" align="left">
<tr valign="baseline">
<td width="175" align="right" nowrap class="brodtekst"><div align="left">Dokumenttype:</div></td>
<td width="175"><select name="select" class="brodtekst">
<%
set rs = MM_dgh_conn_STRING.execute("SELECT * FROM tbl_typer")
While (NOT rs.EOF)
%><option value="<%=(rs("typeID"))%>"><%=(rs("dokumenttype"))%></option>
<% rs.MoveNext()
Wend%>
</select></td>
<td width="75" class="brodtekst"> </td>
<td class="brodtekst"><strong>Funktion</strong></td>
<td> </td>
</tr>
<tr valign="baseline">
<td width="175" align="right" nowrap class="brodtekst"><div align="left">Dato:</div></td>
<td width="175"><input name="dato" type="text" id="dato" size="30"></td>
<td width="75" class="brodtekst"> </td>
<td class="brodtekst">Formidling og facilitering:</td>
<td><input type="checkbox" name="formidlingogfacilitering" value=1 ></td>
</tr>
<tr valign="baseline">
<td width="175" align="right" nowrap class="brodtekst"><div align="left">Titel:</div></td>
<td width="175"><input type="text" name="titel" value="" size="30"></td>
<td width="75" class="brodtekst"> </td>
<td class="brodtekst">Organisation:</td>
<td><input type="checkbox" name="organisation" value=1 ></td>
</tr>
<tr valign="baseline">
<td width="175" align="right" nowrap class="brodtekst"><div align="left">Undertitel:</div></td>
<td width="175"><input name="utitel" type="text" id="utitel" value="" size="30"></td>
<td width="75" class="brodtekst"> </td>
<td class="brodtekst">Scene og sal:</td>
<td><input type="checkbox" name="sceneogsal" value=1 ></td>
</tr>
<tr valign="baseline">
<td width="175" align="right" nowrap class="brodtekst"><div align="left">Beskrivelse:</div></td>
<td width="175" rowspan="4"><textarea name="beskriv" cols="23" rows="4"></textarea></td>
<td width="75" class="brodtekst"> </td>
<td class="brodtekst">Åbne rum:</td>
<td><input type="checkbox" name="aabnerum" value=1 ></td>
</tr>
<tr valign="baseline">
<td width="175" align="right" nowrap class="brodtekst"><div align="left"></div></td>
<td width="75" class="brodtekst"> </td>
<td class="brodtekst">Værksteder:</td>
<td><input type="checkbox" name="vaerksteder" value=1 ></td>
</tr>
<tr valign="baseline">
<td width="175" align="right" nowrap class="brodtekst"><div align="left"></div></td>
<td width="75" class="brodtekst"> </td>
<td class="brodtekst">Cafe og køkken:</td>
<td><input type="checkbox" name="cafeogkoekken" value=1 ></td>
</tr>
<tr valign="baseline">
<td width="175" align="right" nowrap class="brodtekst"><div align="left"></div></td>
<td width="75" class="brodtekst"> </td>
<td class="brodtekst">Samarbejde:</td>
<td><input type="checkbox" name="samarbejde" value=1 ></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left">Filnavn:

</div></td>
<td colspan="4"><input type=FILE size=30 name="THEFILE"> </td>
</tr>
<tr valign="baseline">
<td width="175" align="right" nowrap class="brodtekst"><div align="left">Link:</div></td>
<td width="175"><input type="text" name="link" value="" size="30"></td>
<td width="75"> </td>
<td><span class="brodtekst"><strong>Bibliotek</strong></span></td>
<td> </td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left">Uploaded af :</div></td>
<td width="175"><input type="text" name="fra" value="" size="30"></td>
<td width="75"> </td>
<td><span class="brodtekst">Kurser:</span></td>
<td><input type="checkbox" name="kurser" value=1 ></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left">Arbejdssted:</div></td>
<td width="175"><input type="text" name="frasted" value="" size="30"></td>
<td width="75" class="brodtekst"> </td>
<td class="brodtekst">Faciliteter:</td>
<td><input type="checkbox" name="faciliteter" value=1 ></td>
</tr>
<tr valign="baseline">
<td width="175" align="right" nowrap class="brodtekst"><div align="left">Må kontaktes:</div></td>
<td width="175"><input type="checkbox" name="maakontaktes" value=1 ></td>
<td width="75" class="brodtekst"> </td>
<td width="175" class="brodtekst">Dokumenter:</td>
<td><input type="checkbox" name="dokumenter" value=1 ></td>
</tr>
<tr valign="baseline">
<td width="175" align="right" nowrap class="brodtekst"><div align="left">Kontakttelefon:</div></td>
<td width="175"><input type="text" name="kontakttelefon" value="" size="30"></td>
<td width="75" class="brodtekst"> </td>
<td width="175" class="brodtekst">Statistik:</td>
<td><input type="checkbox" name="statistik" value=1 ></td>
</tr>
<tr valign="baseline">
<td width="175" align="right" nowrap class="brodtekst"><div align="left">Kontakte-mailadresse:</div></td>
<td width="175"><input type="text" name="kontaktemail" value="" size="30"></td>
<td width="75" class="brodtekst"> </td>
<td width="175" class="brodtekst">Links:</td>
<td><input type="checkbox" name="links" value=1 ></td>
</tr>
<tr valign="baseline">
<td height="34" align="right" valign="bottom" nowrap class="brodtekst"><div align="left">
<input name="Submit" type="submit" value="Indsæt dokument">
</div> </td>
<td height="34" align="right" valign="bottom" nowrap class="brodtekst"><a href="upload.asp" target="_blank">Upload</a></td>
<td width="75"> </td>
<td> </td>
<td> </td>
</tr>
</table>
</form>
<p> </p>
</body>
</html>

Synes godt om

rudymadsen Nybegynder

30. august 2006 - 12:25 #19

Har lige prøvet den af, men når jeg klikker på "Indsæt dokument" knappen, sker det intet. Det gjorde der heller ikke før.

Hvis jeg i den oprindelige ikke vælger noget dokument at uploade (altså lader feltet stå blankt) kan jeg godt indsætte data i databasen. Det kan jeg heller ikke nu.

Any idea?

/Rudy

Synes godt om

fennec Nybegynder

30. august 2006 - 12:53 #20

Vi skal have tjekket om den kommer ind i "save" funktionen:

if Request.querystring("mode") = "save" then
response.write "Vi kommer hertil..."
response.end
MM_editTable = "tbl_dokumenter"
MM_editRedirectUrl = "takforupload.htm"

Synes godt om

rudymadsen Nybegynder

30. august 2006 - 13:20 #21

Jeg går ud fra, at denne test skal laves, i bunden af koden lige før html-koden begynder.

Hvis det er sandt, så ser jeg slet ikke testresultatet. Efter tryk på "Indsæt dokument", blanker den formularen og bliver i forumaren.

Synes godt om

fennec Nybegynder

30. august 2006 - 13:29 #22

Nej. I toppen. Du skal bare smide de to response linjer ind lige efter if Request.querystring("mode") = "save" then linjen.

Synes godt om

rudymadsen Nybegynder

30. august 2006 - 13:34 #23

Ok. Det har jeg gjort nu. men der sker det samme - eller rettere... der sker ingenting. :-)

Synes godt om

fennec Nybegynder

30. august 2006 - 14:01 #24

Smid lige hele din kode ind som den er nu....

Synes godt om

rudymadsen Nybegynder

30. august 2006 - 17:12 #25

Her er den (lidt forsinket, sorry)

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
dim rs, Upload, File, fileName
Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

if Request.querystring("mode") = "save" then
response.write "Vi kommer hertil..."
response.end

MM_editTable = "tbl_dokumenter"
MM_editRedirectUrl = "takforupload.htm"
MM_fieldsStr = "select|value|dato|value|formidlingogfacilitering|value|titel|value|organisation|value|utitel|value|sceneogsal|value|beskriv|value|aabnerum|value|vaerksteder|value|cafeogkoekken|value|samarbejde|value|THEFILE|value|link|value|fra|value|kurser|value|frasted|value|faciliteter|value|maakontaktes|value|dokumenter|value|kontakttelefon|value|statistik|value|kontaktemail|value|links|value"
MM_columnsStr = "typeID|none,none,NULL|dato|',none,NULL|formidlingogfacilitering|none,1,0|titel|',none,''|organisation|none,1,0|subtitel|',none,''|sceneogsal|none,1,0|beskriv|',none,''|aabnerum|none,1,0|vaerksteder|none,1,0|cafeogkoekken|none,1,0|samarbejde|none,1,0|filnavn|',none,''|link|',none,''|fra|',none,''|kurser|none,1,0|frasted|',none,''|faciliteter|none,1,0|maakontaktes|none,1,0|dokumenter|none,1,0|kontakttelefon|',none,''|statistik|none,1,0|kontaktemail|',none,''|links|none,1,0"
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")

Set Upload = Server.CreateObject("Persits.Upload")
Upload.Save server.mapPath("/uploadMappe")
Set File = Upload.Files("File1")
If Not File Is Nothing Then
fileName = File.Filename
else
fileName = ""
end if
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(MM_i+1) = CStr(upload.Form(MM_fields(MM_i)))
Next

For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_formVal = MM_fields(MM_i+1)
MM_typeArray = Split(MM_columns(MM_i+1),",")
MM_delim = MM_typeArray(0)
If (MM_delim = "none") Then MM_delim = ""
MM_altVal = MM_typeArray(1)
If (MM_altVal = "none") Then MM_altVal = ""
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = "none") Then MM_emptyVal = ""
If (MM_formVal = "") Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal <> "") Then
MM_formVal = MM_altVal
ElseIf (MM_delim = "'") Then ' escape quotes
MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End If
MM_tableValues = MM_tableValues & MM_columns(MM_i)
MM_dbValues = MM_dbValues & MM_formVal
Next

MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ",filename) values (" & MM_dbValues & ",'"& fileName &"')"
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
end if

%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
<link href="styles.css" rel="stylesheet" type="text/css">
<style type="text/css">

</style></head>

<body>
<form ACTION="indsaet_docs.asp?mode=save" METHOD="POST" name="form1" enctype="multipart/form-data">
<p class="sti">Upload dokument </p>
<table width="640" align="left">
<tr valign="baseline">
<td width="175" align="right" nowrap class="brodtekst"><div align="left">Dokumenttype:</div></td>
<td width="175"><select name="select" class="brodtekst">
<%
set rs = MM_dgh_conn_STRING.execute("SELECT * FROM tbl_typer")
While (NOT rs.EOF)
%><option value="<%=(rs("typeID"))%>"><%=(rs("dokumenttype"))%></option>
<% rs.MoveNext()
Wend%>
</select></td>
<td width="75" class="brodtekst"> </td>
<td class="brodtekst"><strong>Funktion</strong></td>
<td> </td>
</tr>
<tr valign="baseline">
<td width="175" align="right" nowrap class="brodtekst"><div align="left">Dato:</div></td>
<td width="175"><input name="dato" type="text" id="dato" size="30"></td>
<td width="75" class="brodtekst"> </td>
<td class="brodtekst">Formidling og facilitering:</td>
<td><input type="checkbox" name="formidlingogfacilitering" value=1 ></td>
</tr>
<tr valign="baseline">
<td width="175" align="right" nowrap class="brodtekst"><div align="left">Titel:</div></td>
<td width="175"><input type="text" name="titel" value="" size="30"></td>
<td width="75" class="brodtekst"> </td>
<td class="brodtekst">Organisation:</td>
<td><input type="checkbox" name="organisation" value=1 ></td>
</tr>
<tr valign="baseline">
<td width="175" align="right" nowrap class="brodtekst"><div align="left">Undertitel:</div></td>
<td width="175"><input name="utitel" type="text" id="utitel" value="" size="30"></td>
<td width="75" class="brodtekst"> </td>
<td class="brodtekst">Scene og sal:</td>
<td><input type="checkbox" name="sceneogsal" value=1 ></td>
</tr>
<tr valign="baseline">
<td width="175" align="right" nowrap class="brodtekst"><div align="left">Beskrivelse:</div></td>
<td width="175" rowspan="4"><textarea name="beskriv" cols="23" rows="4"></textarea></td>
<td width="75" class="brodtekst"> </td>
<td class="brodtekst">Åbne rum:</td>
<td><input type="checkbox" name="aabnerum" value=1 ></td>
</tr>
<tr valign="baseline">
<td width="175" align="right" nowrap class="brodtekst"><div align="left"></div></td>
<td width="75" class="brodtekst"> </td>
<td class="brodtekst">Værksteder:</td>
<td><input type="checkbox" name="vaerksteder" value=1 ></td>
</tr>
<tr valign="baseline">
<td width="175" align="right" nowrap class="brodtekst"><div align="left"></div></td>
<td width="75" class="brodtekst"> </td>
<td class="brodtekst">Cafe og køkken:</td>
<td><input type="checkbox" name="cafeogkoekken" value=1 ></td>
</tr>
<tr valign="baseline">
<td width="175" align="right" nowrap class="brodtekst"><div align="left"></div></td>
<td width="75" class="brodtekst"> </td>
<td class="brodtekst">Samarbejde:</td>
<td><input type="checkbox" name="samarbejde" value=1 ></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left">Filnavn:

</div></td>
<td colspan="4"><input type=FILE size=30 name="THEFILE"> </td>
</tr>
<tr valign="baseline">
<td width="175" align="right" nowrap class="brodtekst"><div align="left">Link:</div></td>
<td width="175"><input type="text" name="link" value="" size="30"></td>
<td width="75"> </td>
<td><span class="brodtekst"><strong>Bibliotek</strong></span></td>
<td> </td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left">Uploaded af :</div></td>
<td width="175"><input type="text" name="fra" value="" size="30"></td>
<td width="75"> </td>
<td><span class="brodtekst">Kurser:</span></td>
<td><input type="checkbox" name="kurser" value=1 ></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left">Arbejdssted:</div></td>
<td width="175"><input type="text" name="frasted" value="" size="30"></td>
<td width="75" class="brodtekst"> </td>
<td class="brodtekst">Faciliteter:</td>
<td><input type="checkbox" name="faciliteter" value=1 ></td>
</tr>
<tr valign="baseline">
<td width="175" align="right" nowrap class="brodtekst"><div align="left">Må kontaktes:</div></td>
<td width="175"><input type="checkbox" name="maakontaktes" value=1 ></td>
<td width="75" class="brodtekst"> </td>
<td width="175" class="brodtekst">Dokumenter:</td>
<td><input type="checkbox" name="dokumenter" value=1 ></td>
</tr>
<tr valign="baseline">
<td width="175" align="right" nowrap class="brodtekst"><div align="left">Kontakttelefon:</div></td>
<td width="175"><input type="text" name="kontakttelefon" value="" size="30"></td>
<td width="75" class="brodtekst"> </td>
<td width="175" class="brodtekst">Statistik:</td>
<td><input type="checkbox" name="statistik" value=1 ></td>
</tr>
<tr valign="baseline">
<td width="175" align="right" nowrap class="brodtekst"><div align="left">Kontakte-mailadresse:</div></td>
<td width="175"><input type="text" name="kontaktemail" value="" size="30"></td>
<td width="75" class="brodtekst"> </td>
<td width="175" class="brodtekst">Links:</td>
<td><input type="checkbox" name="links" value=1 ></td>
</tr>
<tr valign="baseline">
<td height="34" align="right" valign="bottom" nowrap class="brodtekst"><div align="left">
<input name="Submit" type="submit" value="Indsæt dokument">
</div> </td>
<td height="34" align="right" valign="bottom" nowrap class="brodtekst"><a href="upload.asp" target="_blank">Upload</a></td>
<td width="75"> </td>
<td> </td>
<td> </td>
</tr>
</table>
</form>
<p> </p>
</body>
</html>

Synes godt om

fennec Nybegynder

31. august 2006 - 09:28 #26

Og filen hedder også "indsaet_docs.asp"??

Synes godt om

rudymadsen Nybegynder

02. september 2006 - 17:25 #27

Nej, nu hedder den indsaetDoc3.asp

Synes godt om

rudymadsen Nybegynder

04. september 2006 - 11:18 #28

Kom vi nærmere løsningen? Det ville være dejligt, hvis du kunne hjælpe mig færdig med dette problem :-)

Synes godt om

fennec Nybegynder

04. september 2006 - 11:50 #29

Så skal du have rettet:
<form ACTION="indsaet_docs.asp?mode=save" METHOD="POST" name="form1" enctype="multipart/form-data">

Til den rette side. Den skal jo ikke sende til indsaet_docs.asp siden men indsaetDoc3.asp

Synes godt om

rudymadsen Nybegynder

12. september 2006 - 12:57 #30

Hej fennec

Er du på banen endnu?

/Rudy

Synes godt om

fennec Nybegynder

12. september 2006 - 13:14 #31

Selvfølgelig

Synes godt om

rudymadsen Nybegynder

12. september 2006 - 13:16 #32

Nu har jeg sat den nye action ind og nu kommer den frem til

if Request.querystring("mode") = "save" then
response.write "Vi kommer hertil..."

Men tilsyneladende hverken uploader den eller lægger data i databasen.

Any clue?

Synes godt om

fennec Nybegynder

12. september 2006 - 14:04 #33

Det er fordi vi afbryder vidre behandling lige efter udskriften. Slet de to linjer:
response.write "Vi kommer hertil..."
response.end

Synes godt om

rudymadsen Nybegynder

12. september 2006 - 14:25 #34

Ok, så langt så godt...

Nu kommer den med en HTTP500 fejl....

Det er en databasefejl, ikke?

Synes godt om

rudymadsen Nybegynder

12. september 2006 - 14:28 #35

Du må hellere få filen, som den ser ud nu.... jeg har lavet lidt om på designet, men det skulle ikke ændre noget funktionelt... men blot for en sikkerhedsnåls skyld :-)

--------------

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
<link href="styles.css" rel="stylesheet" type="text/css">
<script language="JavaScript">

</script>
<style type="text/css">

</style></head>

<body>
<form ACTION=" indsaetDoc3.asp?mode=save" METHOD="POST" name="form1" enctype="multipart/form-data">
<p class="sti">Upload dokument </p>
<table width="640" align="left">
<tr valign="baseline" bgcolor="#666666">
<td colspan="2" align="right" nowrap bgcolor="#666666" class="toptekst"><div align="left" class="style1">Dokumentet </div></td>
<td width="20" align="right" nowrap bgcolor="#ECECEE" class="toptekst"> </td>
<td colspan="2" align="right" nowrap bgcolor="#666666" class="toptekst style1"><div align="left">Uploaded af </div></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left">Dokumenttype:</div></td>
<td width="195"><select name="select" class="brodtekst">
<option value="1">Tekstdokument</option>
<option value="2">Regneark</option>
<option value="3">Billede</option>
<option value="4">Andet</option>

</select></td>
<td width="20" class="brodtekst"> </td>
<td class="brodtekst">Navn :</td>
<td><input type="text" name="fra" value="" size="30" tabindex="5"></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left">Titel:</div></td>
<td width="195"><input type="text" name="titel" value="" size="30" tabindex="1"></td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Arbejdssted:</div></td>
<td><input type="text" name="frasted" value="" size="30" tabindex="6"></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left">Undertitel:</div></td>
<td width="195"><input name="utitel" type="text" id="utitel" value="" size="30" tabindex="2"></td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Må kontaktes:</div></td>
<td><input type="checkbox" name="maakontaktes" value=1 tabindex="7"></td>
</tr>
<tr valign="baseline">
<td rowspan="2" align="right" valign="top" nowrap class="brodtekst"><div align="left"></div>
<div align="left">Beskrivelse:</div></td>
<td width="195" rowspan="6"><textarea name="beskriv" cols="23" rows="7" tabindex="3"></textarea></td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Kontakttelefon:</div></td>
<td><input type="text" name="kontakttelefon" value="" size="30" tabindex="8"></td>
</tr>
<tr valign="baseline">
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Kontakte-mail:</div></td>
<td><input type="text" name="kontaktemail" value="" size="30" tabindex="9"></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left"></div></td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left"></div></td>
<td> </td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left"></div></td>
<td width="20" class="brodtekst"> </td>
<td colspan="2" align="right" nowrap bgcolor="#333333" class="brodtekst"><div align="left" class="toptekst style1">Relevante links
</div></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"> </td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Link 1:</div></td>
<td align="right" nowrap class="brodtekst"><input name="link1" type="text" id="link1" value="" size="30" tabindex="10"></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"> </td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Link 2: </div></td>
<td align="right" nowrap class="brodtekst"><input name="link12" type="text" id="link12" value="" size="30" tabindex="11"></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left"></div></td>
<td width="195"> </td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Link 3: </div></td>
<td align="right" nowrap class="brodtekst"><input name="link3" type="text" id="link3" value="" size="30" tabindex="12"></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left">Filnavn:
<a href="java script:PopWin('http://asp.hid.dk/detgodehus/help/help1.htm',200,200);"><img src="grafik/sprg.gif" border="0" width="15" height="15"></a>
</td>
<td width="195" align="right" nowrap class="brodtekst"><input type=FILE size=20 name="THEFILE" tabindex="4"></td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Link 4: </div></td>
<td align="right" nowrap class="brodtekst"><input name="link4" type="text" id="link4" value="" size="30" tabindex="13"></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"> </td>
<td width="195"> </td>
<td width="20" class="brodtekst"> </td>
<td colspan="2" align="right" nowrap class="brodtekst"> </td>
</tr>
<tr valign="baseline" bgcolor="#333333">
<td colspan="5" align="right" nowrap class="toptekst"><div align="left" class="style1">Placering</div></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left"><strong>Funktion</strong></div></td>
<td width="195"> </td>
<td width="20"> </td>
<td><span class="brodtekst"><strong>Bibliotek</strong></span></td>
<td> </td>
</tr>
<tr valign="baseline">
<td class="brodtekst">Formidling og facilitering:</td>
<td width="195"><input type="checkbox" name="formidlingogfacilitering" value=1 tabindex="14"></td>
<td width="20"> </td>
<td><span class="brodtekst">Kurser:</span></td>
<td><input type="checkbox" name="kurser" value=1 tabindex="21"></td>
</tr>
<tr valign="baseline">
<td class="brodtekst">Organisation:</td>
<td width="195"><input type="checkbox" name="organisation" value=1 tabindex="15"></td>
<td width="20"> </td>
<td class="brodtekst">Faciliteter:</td>
<td><input type="checkbox" name="faciliteter" value=1 tabindex="22"></td>
</tr>
<tr valign="baseline">
<td class="brodtekst">Scene og sal:</td>
<td width="195"><input type="checkbox" name="sceneogsal" value=1 tabindex="16"></td>
<td width="20"> </td>
<td class="brodtekst">Dokumenter:</td>
<td><input type="checkbox" name="dokumenter" value=1 tabindex="23"></td>
</tr>
<tr valign="baseline">
<td class="brodtekst">Åbne rum:</td>
<td width="195"><input type="checkbox" name="aabnerum" value=1 tabindex="17"></td>
<td width="20"> </td>
<td class="brodtekst">Statistik:</td>
<td><input type="checkbox" name="statistik" value=1 tabindex="24"></td>
</tr>
<tr valign="baseline">
<td class="brodtekst">Værksteder:</td>
<td width="195"><input type="checkbox" name="vaerksteder" value=1 tabindex="18"></td>
<td width="20"> </td>
<td class="brodtekst">Links:</td>
<td><input type="checkbox" name="links" value=1 tabindex="25"></td>
</tr>
<tr valign="baseline">
<td class="brodtekst">Cafe og køkken:</td>
<td width="195"><input type="checkbox" name="cafeogkoekken" value=1 tabindex="19"></td>
<td width="20"> </td>
<td> </td>
<td> </td>
</tr>
<tr valign="baseline">
<td class="brodtekst">Samarbejde:</td>
<td width="195"><input type="checkbox" name="samarbejde" value=1 tabindex="20"></td>
<td width="20"> </td>
<td> </td>
<td> </td>
</tr>
<tr valign="baseline">
<td height="25" align="right" valign="bottom" nowrap class="brodtekst"><div align="left">
<input name="Submit" type="submit" value="Indsæt dokument">
</div> </td>
<td width="195" height="25" align="right" valign="bottom" nowrap class="brodtekst"> </td>
<td width="20" height="25"> </td>
<td height="25"> </td>
<td height="25"> </td>
</tr>
</table>
</form>
<p> </p>
</body>
</html>

Synes godt om

fennec Nybegynder

12. september 2006 - 14:40 #36

En HTTP500 fejl behøver ikke at være en DB fejl.
Gå lige i Funktioner >> Internetinstillinger >> Advanceret >> Fjern afkrydsningen i "Vis meddelelser om uskadelige HTTP-fejl"

Så får du den rigtige ASP fejl, samt linjenr den sker i.

Synes godt om

rudymadsen Nybegynder

12. september 2006 - 15:48 #37

Ok, så kom jeg lidt videre. Jeg fik rettet en henvisning til den rigtige uploadmappe, men så kommer der selvfølgelig en anden fejl:

ADODB.Command error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/detgodehus/indsaetDoc3.asp, line 78

....

Og i den linje, som er en del af en if sætning, står der:

MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ",filename) values (" & MM_dbValues & ",'"& fileName &"')"
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)

Jeg har været inde og søge efter en løsning, men kan ikke finde en tydebar forklaring.

hmmm....

Synes godt om

rudymadsen Nybegynder

12. september 2006 - 16:53 #38

Nå, men jeg kunne konstatere, at filen er blevet uploaded korrekt.

Det var da altid noget.

Synes godt om

rudymadsen Nybegynder

12. september 2006 - 16:58 #39

En anden ting er jo, at når filnavnet indsættes i databasen, skal den jo ikke indsættes med stien, kun selv filnavnet. Kan vi også klare det?

Det bliver da vist en problemløsning, du skal have mange point for :-)

Synes godt om

fennec Nybegynder

13. september 2006 - 08:50 #40

Jeg kan ikke lige se hvad der skulle være galt i de linjer. Prøv at udskrive SQL-sætningen til skærmen, så du ser den i samlet udgave:

MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ",filename) values (" & MM_dbValues & ",'"& fileName &"')"
response.write "SQL: "& MM_editQuery

Synes godt om

rudymadsen Nybegynder

13. september 2006 - 09:10 #41

Ok, så kommer der følgende:

SQL: insert into tbl_dokumenter (typeID,dato,formidlingogfacilitering,titel,organisation,subtitel,sceneogsal,beskriv,aabnerum,vaerksteder,cafeogkoekken,samarbejde,filnavn,link,fra,kurser,frasted,faciliteter,maakontaktes,dokumenter,kontakttelefon,statistik,kontaktemail,links,filename) values (2,NULL,1,'auto1',0,'Et indblik',0,'czcxcxzcxzcz',0,0,0,0,'','','',0,'',0,0,1,'',0,'',0,'')
ADODB.Command error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/detgodehus/indsaetDoc3.asp, line 79

Synes godt om

rudymadsen Nybegynder

13. september 2006 - 09:16 #42

I øvrigt må du gerne se, hvo det bruges ;-)

http://asp.hid.dk/detgodehus/

Tryk på knappen "Upload" og udfyld formularen.

Synes godt om

rudymadsen Nybegynder

13. september 2006 - 09:18 #43

Jeg kan se, at den ikke gemmer filnavnet, men sætter sandsynligvis en "0" i stedet. Hvad siger det dig?

Synes godt om

fennec Nybegynder

13. september 2006 - 09:22 #44

Dit file element hedder "THEFILE". Derfor skal denne linje også rettes:
Set File = Upload.Files("File1")

rettes til
Set File = Upload.Files("THEFILE")

Synes godt om

fennec Nybegynder

13. september 2006 - 09:24 #45

Hvilken linje er nr 79??

Synes godt om

rudymadsen Nybegynder

13. september 2006 - 09:26 #46

Linje 79 siger:

MM_editCmd.ActiveConnection = MM_editConnection

Synes godt om

rudymadsen Nybegynder

13. september 2006 - 09:30 #47

Ok, nu er filnavnet lagt i databasen - og på den rigtige måde. Det vil jo faktisk sige, at der både uploades og gemmes i databasen, men den type-mismatch ved jeg sgu ikke lige, hvor er. :-(

Synes godt om

rudymadsen Nybegynder

13. september 2006 - 09:41 #48

Rettelse: Det bliver IKKE lagt noget i databasen... øv.

Synes godt om

fennec Nybegynder

13. september 2006 - 09:44 #49

Det er den fucking Macromedia kode. Har du husket at importere Connections/dgh_conn.asp filen til siden??

Synes godt om

rudymadsen Nybegynder

13. september 2006 - 10:13 #50

Ja, det har jeg, og jeg kan også godt trække data fra basen, som du måske ser.

http://asp.hid.dk/detgodehus/

Vælg funktion "Organisation" og bibliotek "Dokumenter"

Ups, det er vist en hård nød, hva? ;-(

Synes godt om

fennec Nybegynder

13. september 2006 - 10:34 #51

Prøv lige at smide hele din kode herind igen.

Synes godt om

rudymadsen Nybegynder

13. september 2006 - 11:33 #52

Her er den:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
dim rs, Upload, File, fileName
Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

if Request.querystring("mode") = "save" then
MM_editTable = "tbl_dokumenter"
MM_editRedirectUrl = "takforupload.htm"
MM_fieldsStr = "select|value|dato|value|formidlingogfacilitering|value|titel|value|organisation|value|utitel|value|sceneogsal|value|beskriv|value|aabnerum|value|vaerksteder|value|cafeogkoekken|value|samarbejde|value|THEFILE|value|link|value|fra|value|kurser|value|frasted|value|faciliteter|value|maakontaktes|value|dokumenter|value|kontakttelefon|value|statistik|value|kontaktemail|value|links|value"
MM_columnsStr = "typeID|none,none,NULL|dato|',none,NULL|formidlingogfacilitering|none,1,0|titel|',none,''|organisation|none,1,0|subtitel|',none,''|sceneogsal|none,1,0|beskriv|',none,''|aabnerum|none,1,0|vaerksteder|none,1,0|cafeogkoekken|none,1,0|samarbejde|none,1,0|filnavn|',none,''|link|',none,''|fra|',none,''|kurser|none,1,0|frasted|',none,''|faciliteter|none,1,0|maakontaktes|none,1,0|dokumenter|none,1,0|kontakttelefon|',none,''|statistik|none,1,0|kontaktemail|',none,''|links|none,1,0"
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")

Set Upload = Server.CreateObject("Persits.Upload")
Upload.Save server.mapPath("../uploaddgh")
Set File = Upload.Files("THEFILE")
If Not File Is Nothing Then
fileName = File.Filename
else
fileName = ""
end if
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(MM_i+1) = CStr(upload.Form(MM_fields(MM_i)))
Next

For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_formVal = MM_fields(MM_i+1)
MM_typeArray = Split(MM_columns(MM_i+1),",")
MM_delim = MM_typeArray(0)
If (MM_delim = "none") Then MM_delim = ""
MM_altVal = MM_typeArray(1)
If (MM_altVal = "none") Then MM_altVal = ""
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = "none") Then MM_emptyVal = ""
If (MM_formVal = "") Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal <> "") Then
MM_formVal = MM_altVal
ElseIf (MM_delim = "'") Then ' escape quotes
MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End If
MM_tableValues = MM_tableValues & MM_columns(MM_i)
MM_dbValues = MM_dbValues & MM_formVal
Next

MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ",filename) values (" & MM_dbValues & ",'"& fileName &"')"
response.write "SQL: "& MM_editQuery
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
end if

%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
<link href="styles.css" rel="stylesheet" type="text/css">
<script language="JavaScript">

</script>
<style type="text/css">

</style></head>

<body>
<form ACTION=" indsaetDoc3.asp?mode=save" METHOD="POST" name="form1" enctype="multipart/form-data">
<p class="sti">Upload dokument </p>
<table width="640" align="left">
<tr valign="baseline" bgcolor="#666666">
<td colspan="2" align="right" nowrap bgcolor="#666666" class="toptekst"><div align="left" class="style1">Dokumentet </div></td>
<td width="20" align="right" nowrap bgcolor="#ECECEE" class="toptekst"> </td>
<td colspan="2" align="right" nowrap bgcolor="#666666" class="toptekst style1"><div align="left">Uploaded af </div></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left">Dokumenttype:</div></td>
<td width="195"><select name="select" class="brodtekst">
<%
set rs = MM_dgh_conn_STRING.execute("SELECT * FROM tbl_typer")
While (NOT rs.EOF)
%><option value="<%=(rs("typeID"))%>"><%=(rs("dokumenttype"))%></option>
<% rs.MoveNext()
Wend%>
</select></td>
<td width="20" class="brodtekst"> </td>
<td class="brodtekst">Navn :</td>
<td><input type="text" name="fra" value="" size="30" tabindex="5"></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left">Titel:</div></td>
<td width="195"><input type="text" name="titel" value="" size="30" tabindex="1"></td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Arbejdssted:</div></td>
<td><input type="text" name="frasted" value="" size="30" tabindex="6"></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left">Undertitel:</div></td>
<td width="195"><input name="utitel" type="text" id="utitel" value="" size="30" tabindex="2"></td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Må kontaktes:</div></td>
<td><input type="checkbox" name="maakontaktes" value=1 tabindex="7"></td>
</tr>
<tr valign="baseline">
<td rowspan="2" align="right" valign="top" nowrap class="brodtekst"><div align="left"></div>
<div align="left">Beskrivelse:</div></td>
<td width="195" rowspan="6"><textarea name="beskriv" cols="23" rows="7" tabindex="3"></textarea></td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Kontakttelefon:</div></td>
<td><input type="text" name="kontakttelefon" value="" size="30" tabindex="8"></td>
</tr>
<tr valign="baseline">
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Kontakte-mail:</div></td>
<td><input type="text" name="kontaktemail" value="" size="30" tabindex="9"></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left"></div></td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left"></div></td>
<td> </td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left"></div></td>
<td width="20" class="brodtekst"> </td>
<td colspan="2" align="right" nowrap bgcolor="#333333" class="brodtekst"><div align="left" class="toptekst style1">Relevante links
</div></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"> </td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Link 1:</div></td>
<td align="right" nowrap class="brodtekst"><input name="link1" type="text" id="link1" value="" size="30" tabindex="10"></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"> </td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Link 2: </div></td>
<td align="right" nowrap class="brodtekst"><input name="link12" type="text" id="link12" value="" size="30" tabindex="11"></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left"></div></td>
<td width="195"> </td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Link 3: </div></td>
<td align="right" nowrap class="brodtekst"><input name="link3" type="text" id="link3" value="" size="30" tabindex="12"></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left">Filnavn:
<a href="java script:PopWin('http://asp.hid.dk/detgodehus/help/help1.htm',200,200);"><img src="grafik/sprg.gif" border="0" width="15" height="15"></a>
</td>
<td width="195" align="right" nowrap class="brodtekst"><input type=FILE size=20 name="THEFILE" tabindex="4"></td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Link 4: </div></td>
<td align="right" nowrap class="brodtekst"><input name="link4" type="text" id="link4" value="" size="30" tabindex="13"></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"> </td>
<td width="195"> </td>
<td width="20" class="brodtekst"> </td>
<td colspan="2" align="right" nowrap class="brodtekst"> </td>
</tr>
<tr valign="baseline" bgcolor="#333333">
<td colspan="5" align="right" nowrap class="toptekst"><div align="left" class="style1">Placering</div></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left"><strong>Funktion</strong></div></td>
<td width="195"> </td>
<td width="20"> </td>
<td><span class="brodtekst"><strong>Bibliotek</strong></span></td>
<td> </td>
</tr>
<tr valign="baseline">
<td class="brodtekst">Formidling og facilitering:</td>
<td width="195"><input type="checkbox" name="formidlingogfacilitering" value=1 tabindex="14"></td>
<td width="20"> </td>
<td><span class="brodtekst">Kurser:</span></td>
<td><input type="checkbox" name="kurser" value=1 tabindex="21"></td>
</tr>
<tr valign="baseline">
<td class="brodtekst">Organisation:</td>
<td width="195"><input type="checkbox" name="organisation" value=1 tabindex="15"></td>
<td width="20"> </td>
<td class="brodtekst">Faciliteter:</td>
<td><input type="checkbox" name="faciliteter" value=1 tabindex="22"></td>
</tr>
<tr valign="baseline">
<td class="brodtekst">Scene og sal:</td>
<td width="195"><input type="checkbox" name="sceneogsal" value=1 tabindex="16"></td>
<td width="20"> </td>
<td class="brodtekst">Dokumenter:</td>
<td><input type="checkbox" name="dokumenter" value=1 tabindex="23"></td>
</tr>
<tr valign="baseline">
<td class="brodtekst">Åbne rum:</td>
<td width="195"><input type="checkbox" name="aabnerum" value=1 tabindex="17"></td>
<td width="20"> </td>
<td class="brodtekst">Statistik:</td>
<td><input type="checkbox" name="statistik" value=1 tabindex="24"></td>
</tr>
<tr valign="baseline">
<td class="brodtekst">Værksteder:</td>
<td width="195"><input type="checkbox" name="vaerksteder" value=1 tabindex="18"></td>
<td width="20"> </td>
<td class="brodtekst">Links:</td>
<td><input type="checkbox" name="links" value=1 tabindex="25"></td>
</tr>
<tr valign="baseline">
<td class="brodtekst">Cafe og køkken:</td>
<td width="195"><input type="checkbox" name="cafeogkoekken" value=1 tabindex="19"></td>
<td width="20"> </td>
<td> </td>
<td> </td>
</tr>
<tr valign="baseline">
<td class="brodtekst">Samarbejde:</td>
<td width="195"><input type="checkbox" name="samarbejde" value=1 tabindex="20"></td>
<td width="20"> </td>
<td> </td>
<td> </td>
</tr>
<tr valign="baseline">
<td height="25" align="right" valign="bottom" nowrap class="brodtekst"><div align="left">
<input name="Submit" type="submit" value="Indsæt dokument">
</div> </td>
<td width="195" height="25" align="right" valign="bottom" nowrap class="brodtekst"> </td>
<td width="20" height="25"> </td>
<td height="25"> </td>
<td height="25"> </td>
</tr>
</table>
</form>
<p> </p>
</body>
</html>

Synes godt om

fennec Nybegynder

13. september 2006 - 12:08 #53

Synes godt om

rudymadsen Nybegynder

13. september 2006 - 13:10 #54

Nu har jeg gjort, som du sagde, men lige lidt hjalp det altså, sorry :-(

Synes godt om

fennec Nybegynder

13. september 2006 - 13:26 #55

Jeg ved simpelthen ikke, hvad der så skal gøres.
Eneste jeg kan komme på er at omskrive hele koden, så alt Dreamweaver kode forsvinder. Så er den i det mindste til at forstå.

Synes godt om

rudymadsen Nybegynder

13. september 2006 - 13:43 #56

Ja, men det er da næsten alt for meget. Og kan jeg så bruge det i Dreamweaver bagefter? (ja, selvfølgelig kan jeg det....)

Jeg SKAL bare have den til at fungere (og skulle egentlig have den til at virke til imorgen), så hvis du kan og har tid, så vil jeg godt betale dig lidt for det.

Hvad siger du?

Synes godt om

fennec Nybegynder

13. september 2006 - 14:04 #57

Kan du give mig databasen?? Eller en kopi med lidt test data i?? Skulle jeg nok kunne klare det.

Synes godt om

rudymadsen Nybegynder

13. september 2006 - 14:31 #58

Hvordan sender jeg den til dig?

Synes godt om

fennec Nybegynder

13. september 2006 - 14:41 #59

Bare lig en kopi af den på din hjemmeside i en offentlig mappe, og smid et link herind, så kan jeg hent den. Når jeg har hentet den, kan du slette den igen (skal nok give besked).

Synes godt om

rudymadsen Nybegynder

13. september 2006 - 16:19 #60

Her er den:

http://asp.hid.dk/detgodehus/upload/dgh.mdb

Synes godt om

fennec Nybegynder

13. september 2006 - 16:25 #61

Den har jeg hentet.
Kikke på det i aften.

Synes godt om

rudymadsen Nybegynder

13. september 2006 - 16:57 #62

Tak :-)

Synes godt om

fennec Nybegynder

13. september 2006 - 19:12 #63

Så skulle den være der:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
dim rs, Upload, File, fileName
Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

if Request.querystring("mode") = "save" then
MM_editTable = "tbl_dokumenter"
MM_editRedirectUrl = "takforupload.htm"
MM_fieldsStr = "select|value|dato|value|formidlingogfacilitering|value|titel|value|organisation|value|utitel|value|sceneogsal|value|beskriv|value|aabnerum|value|vaerksteder|value|cafeogkoekken|value|samarbejde|value|link|value|fra|value|kurser|value|frasted|value|faciliteter|value|maakontaktes|value|dokumenter|value|kontakttelefon|value|statistik|value|kontaktemail|value|links|value"
MM_columnsStr = "typeID|none,none,NULL|dato|',none,NULL|formidlingogfacilitering|none,1,0|titel|',none,''|organisation|none,1,0|subtitel|',none,''|sceneogsal|none,1,0|beskriv|',none,''|aabnerum|none,1,0|vaerksteder|none,1,0|cafeogkoekken|none,1,0|samarbejde|none,1,0|link|',none,''|fra|',none,''|kurser|none,1,0|frasted|',none,''|faciliteter|none,1,0|maakontaktes|none,1,0|dokumenter|none,1,0|kontakttelefon|',none,''|statistik|none,1,0|kontaktemail|',none,''|links|none,1,0"
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")

Set Upload = Server.CreateObject("Persits.Upload")
Upload.Save server.mapPath(".")
Set File = Upload.Files("THEFILE")
If Not File Is Nothing Then
fileName = File.extractFilename
else
fileName = ""
end if
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(MM_i+1) = CStr(upload.Form(MM_fields(MM_i)))
Next

For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_formVal = MM_fields(MM_i+1)
MM_typeArray = Split(MM_columns(MM_i+1),",")
MM_delim = MM_typeArray(0)
If (MM_delim = "none") Then MM_delim = ""
MM_altVal = MM_typeArray(1)
If (MM_altVal = "none") Then MM_altVal = ""
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = "none") Then MM_emptyVal = ""
If (MM_formVal = "") Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal <> "") Then
MM_formVal = MM_altVal
ElseIf (MM_delim = "'") Then ' escape quotes
MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End If
MM_tableValues = MM_tableValues & MM_columns(MM_i)
MM_dbValues = MM_dbValues & MM_formVal
Next

MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ",filnavn) values (" & MM_dbValues & ",'"& fileName &"')"
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_dgh_conn_STRING
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
end if

%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
<link href="styles.css" rel="stylesheet" type="text/css">
<script language="JavaScript">

</script>
<style type="text/css">

</style></head>

<body>
<form ACTION="indsaet_docs.asp?mode=save" METHOD="POST" name="form1" enctype="multipart/form-data">
<p class="sti">Upload dokument </p>
<table width="640" align="left">
<tr valign="baseline" bgcolor="#666666">
<td colspan="2" align="right" nowrap bgcolor="#666666" class="toptekst"><div align="left" class="style1">Dokumentet </div></td>
<td width="20" align="right" nowrap bgcolor="#ECECEE" class="toptekst"> </td>
<td colspan="2" align="right" nowrap bgcolor="#666666" class="toptekst style1"><div align="left">Uploaded af </div></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left">Dokumenttype:</div></td>
<td width="195"><select name="select" class="brodtekst">
<%
set rs = MM_dgh_conn_STRING.execute("SELECT * FROM tbl_typer")
While (NOT rs.EOF)
%><option value="<%=(rs("typeID"))%>"><%=(rs("dokumenttype"))%></option>
<% rs.MoveNext()
Wend%>
</select></td>
<td width="20" class="brodtekst"> </td>
<td class="brodtekst">Navn :</td>
<td><input type="text" name="fra" value="" size="30" tabindex="5"></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left">Titel:</div></td>
<td width="195"><input type="text" name="titel" value="" size="30" tabindex="1"></td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Arbejdssted:</div></td>
<td><input type="text" name="frasted" value="" size="30" tabindex="6"></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left">Undertitel:</div></td>
<td width="195"><input name="utitel" type="text" id="utitel" value="" size="30" tabindex="2"></td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Må kontaktes:</div></td>
<td><input type="checkbox" name="maakontaktes" value=1 tabindex="7"></td>
</tr>
<tr valign="baseline">
<td rowspan="2" align="right" valign="top" nowrap class="brodtekst"><div align="left"></div>
<div align="left">Beskrivelse:</div></td>
<td width="195" rowspan="6"><textarea name="beskriv" cols="23" rows="7" tabindex="3"></textarea></td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Kontakttelefon:</div></td>
<td><input type="text" name="kontakttelefon" value="" size="30" tabindex="8"></td>
</tr>
<tr valign="baseline">
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Kontakte-mail:</div></td>
<td><input type="text" name="kontaktemail" value="" size="30" tabindex="9"></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left"></div></td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left"></div></td>
<td> </td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left"></div></td>
<td width="20" class="brodtekst"> </td>
<td colspan="2" align="right" nowrap bgcolor="#333333" class="brodtekst"><div align="left" class="toptekst style1">Relevante links
</div></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"> </td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Link 1:</div></td>
<td align="right" nowrap class="brodtekst"><input name="link1" type="text" id="link1" value="" size="30" tabindex="10"></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"> </td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Link 2: </div></td>
<td align="right" nowrap class="brodtekst"><input name="link12" type="text" id="link12" value="" size="30" tabindex="11"></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left"></div></td>
<td width="195"> </td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Link 3: </div></td>
<td align="right" nowrap class="brodtekst"><input name="link3" type="text" id="link3" value="" size="30" tabindex="12"></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left">Filnavn:
<a href="java script:PopWin('http://asp.hid.dk/detgodehus/help/help1.htm',200,200);"><img src="grafik/sprg.gif" border="0" width="15" height="15"></a>
</td>
<td width="195" align="right" nowrap class="brodtekst"><input type=FILE size=20 name="THEFILE" tabindex="4"></td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Link 4: </div></td>
<td align="right" nowrap class="brodtekst"><input name="link4" type="text" id="link4" value="" size="30" tabindex="13"></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"> </td>
<td width="195"> </td>
<td width="20" class="brodtekst"> </td>
<td colspan="2" align="right" nowrap class="brodtekst"> </td>
</tr>
<tr valign="baseline" bgcolor="#333333">
<td colspan="5" align="right" nowrap class="toptekst"><div align="left" class="style1">Placering</div></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left"><strong>Funktion</strong></div></td>
<td width="195"> </td>
<td width="20"> </td>
<td><span class="brodtekst"><strong>Bibliotek</strong></span></td>
<td> </td>
</tr>
<tr valign="baseline">
<td class="brodtekst">Formidling og facilitering:</td>
<td width="195"><input type="checkbox" name="formidlingogfacilitering" value=1 tabindex="14"></td>
<td width="20"> </td>
<td><span class="brodtekst">Kurser:</span></td>
<td><input type="checkbox" name="kurser" value=1 tabindex="21"></td>
</tr>
<tr valign="baseline">
<td class="brodtekst">Organisation:</td>
<td width="195"><input type="checkbox" name="organisation" value=1 tabindex="15"></td>
<td width="20"> </td>
<td class="brodtekst">Faciliteter:</td>
<td><input type="checkbox" name="faciliteter" value=1 tabindex="22"></td>
</tr>
<tr valign="baseline">
<td class="brodtekst">Scene og sal:</td>
<td width="195"><input type="checkbox" name="sceneogsal" value=1 tabindex="16"></td>
<td width="20"> </td>
<td class="brodtekst">Dokumenter:</td>
<td><input type="checkbox" name="dokumenter" value=1 tabindex="23"></td>
</tr>
<tr valign="baseline">
<td class="brodtekst">Åbne rum:</td>
<td width="195"><input type="checkbox" name="aabnerum" value=1 tabindex="17"></td>
<td width="20"> </td>
<td class="brodtekst">Statistik:</td>
<td><input type="checkbox" name="statistik" value=1 tabindex="24"></td>
</tr>
<tr valign="baseline">
<td class="brodtekst">Værksteder:</td>
<td width="195"><input type="checkbox" name="vaerksteder" value=1 tabindex="18"></td>
<td width="20"> </td>
<td class="brodtekst">Links:</td>
<td><input type="checkbox" name="links" value=1 tabindex="25"></td>
</tr>
<tr valign="baseline">
<td class="brodtekst">Cafe og køkken:</td>
<td width="195"><input type="checkbox" name="cafeogkoekken" value=1 tabindex="19"></td>
<td width="20"> </td>
<td> </td>
<td> </td>
</tr>
<tr valign="baseline">
<td class="brodtekst">Samarbejde:</td>
<td width="195"><input type="checkbox" name="samarbejde" value=1 tabindex="20"></td>
<td width="20"> </td>
<td> </td>
<td> </td>
</tr>
<tr valign="baseline">
<td height="25" align="right" valign="bottom" nowrap class="brodtekst"><div align="left">
<input name="Submit" type="submit" value="Indsæt dokument">
</div> </td>
<td width="195" height="25" align="right" valign="bottom" nowrap class="brodtekst"> </td>
<td width="20" height="25"> </td>
<td height="25"> </td>
<td height="25"> </td>
</tr>
</table>
</form>
<p> </p>
</body>
</html>

Jeg var nød til at rette lidt i database linjerne, for at den virkede hos mig, men jeg skulle have fået dem rettet tilbage igen, så den stadig kan connecte hos dig.

Synes godt om

rudymadsen Nybegynder

14. september 2006 - 08:58 #64

Jeg er meget ked af at sige det, men det virker ikke hos mig. Den hverken uploader filen eller lægger data i databasen. Derimod kommer der ingen fejlmeddelelse og den vender tilbage til en tom formular igen.

Synes godt om

fennec Nybegynder

14. september 2006 - 09:11 #65

Jeg havde ikke fået sat den rigtige form action. Ret den til dette:

<form ACTION="indsaetDoc3.asp?mode=save" METHOD="POST" name="form1" enctype="multipart/form-data">

Synes godt om

rudymadsen Nybegynder

14. september 2006 - 10:22 #66

DU ER GENIAL!

Tak for din store hjælp. Du har lettet mig fra en stor sten i hjertet.

Hvad skal du have for dit arbejde i aftes og hvordan skal vi afregne det?

Synes godt om

fennec Nybegynder

14. september 2006 - 10:52 #67

Det skal jeg ikke have noget for. Det tog mig ikke mere end 20 min.

Synes godt om

rudymadsen Nybegynder

14. september 2006 - 11:37 #68

...æææhhhhh, så har jeg bare en ganske lille en mere. Det er ok, hvis du siger fra, eller ikke har tid... men gider du give mig et bud på følgende:

Jeg uploader nogel dokumenter, som vises i en liste bagefter. Alt efter, hvilken type dokument, der uploades, vil jeg vise forskellige ikoner for dem. Jeg har følgende kode, hvor jeg viser et fast ikon (grafik/doc.jpg), men jeg vil altså gerne have det skifter. Du får lige koden her, som den ser ud nu:

<td align="left" valign="top"><p><span class="toptekst">Download</span><br>
<br>
<a href="http://asp.hid.dk/uploaddgh/<%=(aabnerum.Fields.Item("filnavn").Value)%>" target="_blank"><img src="grafik/doc.jpg" width="25" height="30" border="0"></a></p> </td>

Og så skal den altså kunne vælge billede ud fra en type dokument, jeg viser (type 1 - 4).

Som sagt, er det ok at sige "Nu kan det være nok", og det vil du ikke høre et ondt ord for.

/Rudy

Synes godt om

rudymadsen Nybegynder

14. september 2006 - 16:00 #69

Ok, lukker du ikke denne, så du kan få dine point?

Og endnu engang tak for hjælpen

Synes godt om

fennec Nybegynder

14. september 2006 - 16:30 #70

Jeg har fået point for lang tid siden (16/08-2006 16:42:56)

Nu har jeg ikke databasen længere, så derfor bliver jeg nød til at spørge.

Du har altså et typeID på dokumentet (som kan være 1-4), har du også en docType tabel, som indeholder disse 4 ID'er?? På den måde kan vi nemlig joine tabellerne sammen, og der skal bare laves en "pic" kolonne på denne tabel.

Synes godt om

fennec Nybegynder

14. september 2006 - 16:30 #71

... Jeg har været til møde hele dagen, hvorfor jeg først svare nu :o)

Synes godt om

rudymadsen Nybegynder

14. september 2006 - 16:59 #72

Dejligt at se dig tilbage, my mate...

Jo, jeg har en typetabel, og det ville sikkert være en god ide med en join imellem dem. Jeg joiner dem jo allerede der, hvor jeg indtaster nye dokumenter. Se: http://asp.hid.dk/detgodehus/ - vælge en funktion til venstre og klik på knappen "Upload".

Jeg har for øvrigt ikke slettet databasen fra public-mappen fra tidligere, hvis du skulle bruge den.

Synes godt om

fennec Nybegynder

15. september 2006 - 09:03 #73

Du skal bare tilføje en pic kolonne til tbl_typer tabellen. Denne skal indeholde navnet på billedet. Via join kan vi så gøre sådan:

select d.*, t.pic from tbl_dokumenter d inner join tbl_typer t on t.typeID=d.typeID

også er det bare at smide pic ind som billed:
<a href="http://asp.hid.dk/uploaddgh/<%= aabnerum("filnavn") %>" target="_blank"><img src="grafik/<%= aabnerum("pic") %>" width="25" height="30" border="0"></a>

Du behøver desuden ikke at skrive: aabnerum.Fields.Item("filnavn").Value
Du kan nøjes med: aabnerum("filnavn")

Synes godt om

rudymadsen Nybegynder

17. september 2006 - 12:21 #74

Jaaaa, men ser du, jeg vil godt have den til selv at finde ud af, at hvis filnavnet ender på .jpg, .gif, eller .png, skal den tage billede-ikonet og sætte på. Hvis filen ender på .xls er det et regneark og .doc et worddokument og så videre. Jeg sakl selvfølgelig have defineret nogle faste extentions, og så have et diverse til alt andet.

Jeg kan selvfølgelig godt lade brugeren afgøre, om det er den ene elelr den anden type, men det ville være smartere, hvis det skete automatisk.

Kan man (læs:du/jeg) det?

Synes godt om

rudymadsen Nybegynder

17. september 2006 - 12:23 #75

Ok, det var vist at skyde lidt over målet. Jeg kunne også bare gøre det, du foreslår. Det ville være helt fint :-)

Synes godt om

rudymadsen Nybegynder

17. september 2006 - 12:43 #76

Men en anden ting: Kan man godt have flere action i en form? Jeg vil godt have det sådan, at når man har uploaded et dokument via den formular, som vi har sat op, så bliver der sendt en mail til en bestem emailadresse.

Kan man det?

Synes godt om

fennec Nybegynder

18. september 2006 - 08:45 #77

Normalt er det noget man klare via ASP. så efter du gemt i databasen, begynder du på et mail script:

conn.execute("insert into ...")
set jmail = Server.CreateObject("JMail.Message")
jmail.FromName = "Mig"
jmail.From = "min@mail.dk"
jmail.AddRecipient "din@mail.dk"
jmail.Subject = "Emne"
jmail.HTMLBody = "Tekst her"
if not jmail.Send("MailServer") then
response.write "FEJL!!!"
else
response.write "Mail sendt"
end if

Vi kan også godt klare billedet. Du bruger bare right(rs("filnavn"),3) til at få endelsen. Den kan du så lave et tjek på:

if right(rs("filnavn"),3) = "jpg" then
response.write "<img src=""jpgPic.jpg"">"
elseif right(rs("filnavn"),3) = "gif" then
response.write "<img src=""gifPic.jpg"">"
elseif right(rs("filnavn"),3) = "png" then
response.write "<img src=""pngPic.jpg"">"
end if

Synes godt om

rudymadsen Nybegynder

19. september 2006 - 14:26 #78

Jeg har lige præsenteret det foreløbige resultat for ham, der skal bruge hele siden, og der er nogle flere rettelser og tilføjelser, så det kræver noget mere programmering.

Ville du være interesseret i at få en opgave i at klare nogle helt specifikke programmereingsting i mit site?

Jeg synes selvfølgelig, at det er dejligt, at man kan hjælpe hinanden her på dette forum, men når det griber om sig, som det kan komme til her, har jeg det bedst med at få nogle klare linjer. Og det er f.eks. at afgrænse og definere opgaven, der så bliver løst. Forstår du, hvad jeg mener?

Hvad siger du?

Synes godt om

fennec Nybegynder

19. september 2006 - 15:32 #79

Jeg er lige gået igang med et privat projekt, som jeg har udskud længe. Og da jeg normal ikke kan lide at programmere derhjemme, kommer det til at tage lang tid inden jeg er færdig :o)

Så det kommer nok til at knibe med min tid, men der er sikkert andre der vil hjælpe dig.

Synes godt om

rudymadsen Nybegynder

20. september 2006 - 08:33 #80

Hmmm. ja - ærgerligt! Nu kender jeg jo dig og din kapacitet. Og du kan jo ikke så lidt, må jeg sige. Men ok, kan du ikke få tid til det, så er der ikke noget at gøre ved det.

Hvordan har du det med at fortsætte lidt på dette her niveau? Så kan jeg måske selv skrue det sammen - men med din hjælp?

Synes godt om

fennec Nybegynder

20. september 2006 - 08:45 #81

Jeg har altid en 5-10 min til at hjælpe andre. Det giver et afbræk fra arbejdet :o)

Synes godt om

rudymadsen Nybegynder

20. september 2006 - 09:07 #82

Den mail afsendelse, du beskrev tidligere, har jeg ikke fået implementeret endnu.

conn.execute(...) sætningen, hvor skal den ind og hvad indeholder "insert into .." delen? Det andet tror jeg nok, jeg kunne få styr på.

Synes godt om

fennec Nybegynder

20. september 2006 - 09:18 #83

conn.execute("insert ...") er en måde til at indsætte data i en database. Det modsvare altså:

Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_dgh_conn_STRING
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

Tog den bare med for at ilustrere at efter database-indsættelse kan man kalde et mail script. Du skal altså bare smide mail scriptet ind mellem:
MM_editCmd.ActiveConnection.Close
... Sæt mail kode her ...
If (MM_editRedirectUrl <> "") Then

I mit eks gjorde jeg brug af JMail komponenten, som skal være installeret på serveren. Det kan være din udbyder bruger et andet komponent, også er koden selvfølgelig lidt anderledes. Du skal derfor have undersøgt hvilken mailkomponent du har adgang til.

Synes godt om

rudymadsen Nybegynder

21. september 2006 - 10:59 #84

Jeg prøver mig lidt frem med ovenstående, men får en fejl:

jmail.Message error '8000ffff'

The message was undeliverable. All servers failed to receive the message

/detgodehus/indsaetDoc3.asp, line 88

og der står:

if not jmail.Send("smtp.webhosting.dk") then

Her har jeg forsøgt at indsætte den SMTP server, som bruges af mit webhotel, men det lykkes ikke. De vil nu heller ikke have, at man benytter den uden autorisation.

Hvad skal jeg ellers indsætte i den streng?

Synes godt om

rudymadsen Nybegynder

26. september 2006 - 10:47 #85

Er du der ikke mere?

Synes godt om

fennec Nybegynder

02. oktober 2006 - 09:06 #86

Jeg har været syg hele sidste uge.

Der kan være flere grunde til at du får den fejl (afhængig af din udbyders opsætning). Den mest normale grunder at afsenderadressen ikke er en fra deres system. Du kan altså ikke bruge en TDC emailadresse som afsender.

Synes godt om

rudymadsen Nybegynder

02. oktober 2006 - 17:22 #87

Som du ser ovenfor, har jeg jmail til at afsende fra smtp.webhosting.dk, hvor jeg også har webhotel.
Er det ikke det, du mente?

Synes godt om

fennec Nybegynder

03. oktober 2006 - 08:24 #88

Nej. Afsender emailen:
jmail.From = "EnTDC@mail.dk"

Der skal du nok bruge en email som ligger hos webhosting.dk:
jmail.From = "EnWebhosting@mail.dk"

Synes godt om

rudymadsen Nybegynder

03. oktober 2006 - 08:58 #89

Hurrahhhh, det virker... thanks again, mate :-

Synes godt om

rudymadsen Nybegynder

06. november 2006 - 14:47 #90

Hej fennec

Jeg ved ikke, om du stadig er på dette forum, men nu prøver jeg.

Jeg har fået et problem med den upload formular, som du hjalp mig med. Jeg har rettet lidt i designet og fjernet og tilføjet nogle felter. Jeg var så naiv at tro, at det hele så bare virkede bagefter. DET GJORDE DET IKKE :-)

Når jeg sender indholdet (også selvom der ikke er noget indhold) af formularen, får jeg en HTTP 500 - Siden kan ikke vises.

Jeg kan ikke gennemskue, hvad der er galt - kan du?

Jeg kopierer lige koden ind her og håber inderligt på din hjælp.

På forhånd tak...

/Rudy

Kode:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
dim rs, Upload, File, fileName
Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

if Request.querystring("mode") = "save" then
MM_editTable = "tbl_dokumenter"
MM_editRedirectUrl = "takforupload.htm"
MM_fieldsStr = "select|value|dato|value|titel|value|subtitel|value|beskriv|value|fra|value|frasted|value|maakontaktes|value|kontakttelefon|value|kontaktemail|value|link1|value|link2|value|link3|value|link4|value|formidlingogfacilitering|value|cafeogkoekken|value|organisation|value|samarbejde|value|aabnerum|value|sceneogsal|value|vaerksteder|value|kurser|value|projektstation|value|eksterneaktiviteter|value|faciliteterudstyr|value|indretningudstyr|value|lovgivning|value|okonomi|value|varerleverandorer|value|organisationsformer|value|administration|value|pr|value|bygningvedligehold|value||sponsorer|value|landsorganisationer|value|internationalt|value|lokalepertnere|value|bookingadministration|value|bookingbilletsalg|value|tekniskudstyr|value"
MM_columnsStr = "typeID|none,none,NULL|dato|',none,NULL|titel|',none,''|subtitel|',none,''|beskriv|',none,''|fra|',none,''|frasted|',none,''|maakontaktes|none,1,0|kontakttelefon|',none,''|kontaktemail|',none,''|link1|',none,''|link2|',none,''|link3|',none,''|link4|',none,''|formidlingogfacilitering|none,1,0|cafeogkoekken|none,1,0|organisation|none,1,0|samarbejde|none,1,0|aabnerum|none,1,0|scenesal|none,1,0|vaerksteder|none,1,0|kurser|none,1,0|projektstation|none,1,0|eksterneaktiviteter|none,1,0|faciliteterudstyr|none,1,0|indretningudstyr|none,1,0|lovgivning|none,1,0|okonomi|none,1,0|varerleverandorer|none,1,0|organisationsformer|none,1,0|administration|none,1,0|pr|none,1,0|bygningvedligehold|none,1,0|sponsorer|none,1,0|landsorganisationer|none,1,0|internationalt|none,1,0|lokalepartnere|none,1,0|bookingadministration|none,1,0|bookingbilletsalg|none,1,0|tekniskudstyr|none,1,0"

' MM_columnsStr = "typeID|none,none,NULL|dato|',none,NULL|formidlingogfacilitering|none,1,0|titel|',none,''|organisation|none,1,0|subtitel|',none,''|sceneogsal|none,1,0|beskriv|',none,''|aabnerum|none,1,0|vaerksteder|none,1,0|cafeogkoekken|none,1,0|samarbejde|none,1,0|link1|',none,''|link2|',none,''|link3|',none,''|link4|',none,''|fra|',none,''|kurser|none,1,0|frasted|',none,''|faciliteter|none,1,0|maakontaktes|none,1,0|dokumenter|none,1,0|kontakttelefon|',none,''|statistik|none,1,0|kontaktemail|',none,''|links|none,1,0"
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")

Set Upload = Server.CreateObject("Persits.Upload")
Upload.Save server.mapPath("../uploaddgh")
Set File = Upload.Files("THEFILE")
If Not File Is Nothing Then
fileName = File.extractFilename
else
fileName = ""
end if
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(MM_i+1) = CStr(upload.Form(MM_fields(MM_i)))
Next

For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_formVal = MM_fields(MM_i+1)
MM_typeArray = Split(MM_columns(MM_i+1),",")
MM_delim = MM_typeArray(0)
If (MM_delim = "none") Then MM_delim = ""
MM_altVal = MM_typeArray(1)
If (MM_altVal = "none") Then MM_altVal = ""
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = "none") Then MM_emptyVal = ""
If (MM_formVal = "") Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal <> "") Then
MM_formVal = MM_altVal
ElseIf (MM_delim = "'") Then ' escape quotes
MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End If
MM_tableValues = MM_tableValues & MM_columns(MM_i)
MM_dbValues = MM_dbValues & MM_formVal
Next

MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ",filnavn) values (" & MM_dbValues & ",'"& fileName &"')"
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_dgh_conn_STRING
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
set jmail = Server.CreateObject("JMail.Message")
jmail.FromName = "Upload"
jmail.From = "hid@hid.dk"
jmail.AddRecipient "educase@educase.dk"
jmail.Subject = "Der er uploaded nyt dokument"
jmail.HTMLBody = "Der er uploaded et nyt dokument"
if not jmail.Send("smtp.webhosting.dk") then
response.write "FEJL!!!"
else
response.write "Mail sendt"
end if

If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
end if

%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<title>Upload dokument</title>
<link href="styles.css" rel="stylesheet" type="text/css">
<script language="JavaScript">

</script>
<style type="text/css">

</style></head>

<body>
<form ACTION="indsaetDoc3-2.asp?mode=save" METHOD="POST" name="form1" enctype="multipart/form-data">
<p class="sti">Upload dokument </p>
<table width="640" align="left" cellpadding="0" cellspacing="0">
<tr valign="baseline" bgcolor="#666666">
<td colspan="2" align="right" nowrap bgcolor="#666666" class="toptekst"><div align="left" class="style1">Dokumentet </div></td>
<td width="20" align="right" nowrap bgcolor="#ECECEE" class="toptekst"> </td>
<td colspan="2" align="right" nowrap bgcolor="#666666" class="toptekst style1"><div align="left">Uploaded af </div></td>
</tr>
<tr valign="baseline">
<td width="129" align="right" nowrap class="brodtekst"><div align="left">Dokumenttype:</div></td>
<td width="195"><select name="select" class="brodtekst">
<%
set rs = MM_dgh_conn_STRING.execute("SELECT * FROM tbl_typer")
While (NOT rs.EOF)
%><option value="<%=(rs("typeID"))%>"><%=(rs("dokumenttype"))%></option>
<% rs.MoveNext()
Wend%>
</select></td>
<td width="20" class="brodtekst"> </td>
<td width="113" class="brodtekst">Navn :</td>
<td width="181"><input type="text" name="fra" value="" size="30" tabindex="5"></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left">Titel:</div></td>
<td width="195"><input type="text" name="titel" value="" size="30" tabindex="1"></td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Arbejdssted:</div></td>
<td><input type="text" name="frasted" value="" size="30" tabindex="6"></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left">Undertitel:</div></td>
<td width="195"><input name="utitel" type="text" id="utitel" value="" size="30" tabindex="2"></td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Må kontaktes:</div></td>
<td><input type="checkbox" name="maakontaktes" value=1 tabindex="7"></td>
</tr>
<tr valign="baseline">
<td rowspan="2" align="right" valign="top" nowrap class="brodtekst"><div align="left"></div>
<div align="left">Beskrivelse:</div></td>
<td width="195" rowspan="6"><textarea name="beskriv" cols="23" rows="7" tabindex="3"></textarea></td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Kontakttelefon:</div></td>
<td><input type="text" name="kontakttelefon" value="" size="30" tabindex="8"></td>
</tr>
<tr valign="baseline">
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Kontakte-mail:</div></td>
<td><input type="text" name="kontaktemail" value="" size="30" tabindex="9"></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left"></div></td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left"></div></td>
<td> </td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left"></div></td>
<td width="20" class="brodtekst"> </td>
<td colspan="2" align="right" nowrap bgcolor="#333333" class="brodtekst"><div align="left" class="toptekst style1">Relevante links
</div></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"> </td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Link 1:</div></td>
<td align="right" nowrap class="brodtekst"><div align="left">
<input name="link1" type="text" id="link1" value="" size="30" tabindex="10">
</div></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"> </td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Link 2: </div></td>
<td align="right" nowrap class="brodtekst"><div align="left">
<input name="link12" type="text" id="link12" value="" size="30" tabindex="11">
</div></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left"></div></td>
<td width="195"> </td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Link 3: </div></td>
<td align="right" nowrap class="brodtekst"><div align="left">
<input name="link3" type="text" id="link3" value="" size="30" tabindex="12">
</div></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left">Filnavn:
<a href="java script:PopWin('http://asp.hid.dk/detgodehus/help/help1.htm',200,200);"><img src="grafik/sprg.gif" border="0" width="15" height="15"></a> </td>
<td width="195" align="right" nowrap class="brodtekst"><input type=FILE size=20 name="THEFILE" tabindex="4"></td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Link 4: </div></td>
<td align="right" nowrap class="brodtekst"><div align="left">
<input name="link4" type="text" id="link4" value="" size="30" tabindex="13">
</div></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"> </td>
<td width="195"> </td>
<td width="20" class="brodtekst"> </td>
<td colspan="2" align="right" nowrap class="brodtekst"> </td>
</tr>
<tr valign="baseline" bgcolor="#333333">
<td colspan="5" align="right" nowrap class="toptekst"><div align="left" class="style1">Placering</div></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left"><strong>Bibliotek</strong></div></td>
<td width="195"><input name="cafeogkoekken" type="hidden" id="cafeogkoekken" tabindex="17" value="yes"></td>
<td width="20"> </td>
<td> </td>
<td> </td>
</tr>
<tr valign="baseline">
<td><span class="brodtekst">Kurser:</span></td>
<td><input type="checkbox" name="kurser" value=1 tabindex="21"></td>
<td width="20"> </td>
<td> </td>
<td> </td>
</tr>
<tr valign="baseline">
<td class="brodtekst">Indretning og udstyr: </td>
<td><input name="indretningudstyr" type="checkbox" id="indretningudstyr" tabindex="22" value=1></td>
<td width="20"> </td>
<td class="brodtekst"> </td>
<td> </td>
</tr>
<tr valign="baseline">
<td class="brodtekst">Lovgivning:</td>
<td><input name="lovgivning" type="checkbox" id="lovgivning" tabindex="23" value=1></td>
<td width="20"> </td>
<td class="brodtekst"> </td>
<td> </td>
</tr>
<tr valign="baseline">
<td class="brodtekst">Økonomi:</td>
<td><input name="okonomi" type="checkbox" id="okonomi" tabindex="23" value=1></td>
<td width="20"> </td>
<td class="brodtekst"> </td>
<td> </td>
</tr>
<tr valign="baseline">
<td class="brodtekst">Varer og leverandører: </td>
<td><input name="varerleverandorer" type="checkbox" id="varerleverandorer" tabindex="23" value=1></td>
<td> </td>
<td class="brodtekst"> </td>
<td> </td>
</tr>
<tr valign="baseline">
<td class="brodtekst"> </td>
<td> </td>
<td> </td>
<td class="brodtekst"> </td>
<td> </td>
</tr>
<tr valign="baseline">
<td class="brodtekst"> </td>
<td width="195"> </td>
<td width="20"> </td>
<td> </td>
<td> </td>
</tr>
<tr valign="baseline">
<td height="25" align="right" valign="bottom" nowrap class="brodtekst"><div align="left">
<input name="Submit" type="submit" value="Indsæt dokument">
</div> </td>
<td width="195" height="25" align="right" valign="bottom" nowrap class="brodtekst"> </td>
<td width="20" height="25"> </td>
<td height="25"> </td>
<td height="25"><label>
<div align="right">
<input type="button" name="Button" value="Luk vindue" onClick="self.close()">
</div>
</label></td>
</tr>
</table>
</form>
<p> </p>
</body>
</html>

Synes godt om

rudymadsen Nybegynder

06. november 2006 - 14:51 #91

Der gik noget galt i kopieringen af koden, men er den i sin fulde længde:

/Rudy
-----------------------------

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
dim rs, Upload, File, fileName
Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

if Request.querystring("mode") = "save" then
MM_editTable = "tbl_dokumenter"
MM_editRedirectUrl = "takforupload.htm"
MM_fieldsStr = "select|value|dato|value|titel|value|subtitel|value|beskriv|value|fra|value|frasted|value|maakontaktes|value|kontakttelefon|value|kontaktemail|value|link1|value|link2|value|link3|value|link4|value|formidlingogfacilitering|value|cafeogkoekken|value|organisation|value|samarbejde|value|aabnerum|value|sceneogsal|value|vaerksteder|value|kurser|value|projektstation|value|eksterneaktiviteter|value|faciliteterudstyr|value|indretningudstyr|value|lovgivning|value|okonomi|value|varerleverandorer|value|organisationsformer|value|administration|value|pr|value|bygningvedligehold|value||sponsorer|value|landsorganisationer|value|internationalt|value|lokalepertnere|value|bookingadministration|value|bookingbilletsalg|value|tekniskudstyr|value"
MM_columnsStr = "typeID|none,none,NULL|dato|',none,NULL|titel|',none,''|subtitel|',none,''|beskriv|',none,''|fra|',none,''|frasted|',none,''|maakontaktes|none,1,0|kontakttelefon|',none,''|kontaktemail|',none,''|link1|',none,''|link2|',none,''|link3|',none,''|link4|',none,''|formidlingogfacilitering|none,1,0|cafeogkoekken|none,1,0|organisation|none,1,0|samarbejde|none,1,0|aabnerum|none,1,0|scenesal|none,1,0|vaerksteder|none,1,0|kurser|none,1,0|projektstation|none,1,0|eksterneaktiviteter|none,1,0|faciliteterudstyr|none,1,0|indretningudstyr|none,1,0|lovgivning|none,1,0|okonomi|none,1,0|varerleverandorer|none,1,0|organisationsformer|none,1,0|administration|none,1,0|pr|none,1,0|bygningvedligehold|none,1,0|sponsorer|none,1,0|landsorganisationer|none,1,0|internationalt|none,1,0|lokalepartnere|none,1,0|bookingadministration|none,1,0|bookingbilletsalg|none,1,0|tekniskudstyr|none,1,0"

' MM_columnsStr = "typeID|none,none,NULL|dato|',none,NULL|formidlingogfacilitering|none,1,0|titel|',none,''|organisation|none,1,0|subtitel|',none,''|sceneogsal|none,1,0|beskriv|',none,''|aabnerum|none,1,0|vaerksteder|none,1,0|cafeogkoekken|none,1,0|samarbejde|none,1,0|link1|',none,''|link2|',none,''|link3|',none,''|link4|',none,''|fra|',none,''|kurser|none,1,0|frasted|',none,''|faciliteter|none,1,0|maakontaktes|none,1,0|dokumenter|none,1,0|kontakttelefon|',none,''|statistik|none,1,0|kontaktemail|',none,''|links|none,1,0"
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")

Set Upload = Server.CreateObject("Persits.Upload")
Upload.Save server.mapPath("../uploaddgh")
Set File = Upload.Files("THEFILE")
If Not File Is Nothing Then
fileName = File.extractFilename
else
fileName = ""
end if
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(MM_i+1) = CStr(upload.Form(MM_fields(MM_i)))
Next

For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_formVal = MM_fields(MM_i+1)
MM_typeArray = Split(MM_columns(MM_i+1),",")
MM_delim = MM_typeArray(0)
If (MM_delim = "none") Then MM_delim = ""
MM_altVal = MM_typeArray(1)
If (MM_altVal = "none") Then MM_altVal = ""
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = "none") Then MM_emptyVal = ""
If (MM_formVal = "") Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal <> "") Then
MM_formVal = MM_altVal
ElseIf (MM_delim = "'") Then ' escape quotes
MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End If
MM_tableValues = MM_tableValues & MM_columns(MM_i)
MM_dbValues = MM_dbValues & MM_formVal
Next

MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ",filnavn) values (" & MM_dbValues & ",'"& fileName &"')"
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_dgh_conn_STRING
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
set jmail = Server.CreateObject("JMail.Message")
jmail.FromName = "Upload"
jmail.From = "hid@hid.dk"
jmail.AddRecipient "educase@educase.dk"
jmail.Subject = "Der er uploaded nyt dokument"
jmail.HTMLBody = "Der er uploaded et nyt dokument"
if not jmail.Send("smtp.webhosting.dk") then
response.write "FEJL!!!"
else
response.write "Mail sendt"
end if

If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
end if

%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<title>Upload dokument</title>
<link href="styles.css" rel="stylesheet" type="text/css">
<script language="JavaScript">

</script>
<style type="text/css">

</style></head>

<body>
<form ACTION="indsaetDoc3-2.asp?mode=save" METHOD="POST" name="form1" enctype="multipart/form-data">
<p class="sti">Upload dokument </p>
<table width="640" align="left" cellpadding="0" cellspacing="0">
<tr valign="baseline" bgcolor="#666666">
<td colspan="2" align="right" nowrap bgcolor="#666666" class="toptekst"><div align="left" class="style1">Dokumentet </div></td>
<td width="20" align="right" nowrap bgcolor="#ECECEE" class="toptekst"> </td>
<td colspan="2" align="right" nowrap bgcolor="#666666" class="toptekst style1"><div align="left">Uploaded af </div></td>
</tr>
<tr valign="baseline">
<td width="129" align="right" nowrap class="brodtekst"><div align="left">Dokumenttype:</div></td>
<td width="195"><select name="select" class="brodtekst">
<%
set rs = MM_dgh_conn_STRING.execute("SELECT * FROM tbl_typer")
While (NOT rs.EOF)
%><option value="<%=(rs("typeID"))%>"><%=(rs("dokumenttype"))%></option>
<% rs.MoveNext()
Wend%>
</select></td>
<td width="20" class="brodtekst"> </td>
<td width="113" class="brodtekst">Navn :</td>
<td width="181"><input type="text" name="fra" value="" size="30" tabindex="5"></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left">Titel:</div></td>
<td width="195"><input type="text" name="titel" value="" size="30" tabindex="1"></td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Arbejdssted:</div></td>
<td><input type="text" name="frasted" value="" size="30" tabindex="6"></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left">Undertitel:</div></td>
<td width="195"><input name="utitel" type="text" id="utitel" value="" size="30" tabindex="2"></td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Må kontaktes:</div></td>
<td><input type="checkbox" name="maakontaktes" value=1 tabindex="7"></td>
</tr>
<tr valign="baseline">
<td rowspan="2" align="right" valign="top" nowrap class="brodtekst"><div align="left"></div>
<div align="left">Beskrivelse:</div></td>
<td width="195" rowspan="6"><textarea name="beskriv" cols="23" rows="7" tabindex="3"></textarea></td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Kontakttelefon:</div></td>
<td><input type="text" name="kontakttelefon" value="" size="30" tabindex="8"></td>
</tr>
<tr valign="baseline">
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Kontakte-mail:</div></td>
<td><input type="text" name="kontaktemail" value="" size="30" tabindex="9"></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left"></div></td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left"></div></td>
<td> </td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left"></div></td>
<td width="20" class="brodtekst"> </td>
<td colspan="2" align="right" nowrap bgcolor="#333333" class="brodtekst"><div align="left" class="toptekst style1">Relevante links
</div></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"> </td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Link 1:</div></td>
<td align="right" nowrap class="brodtekst"><div align="left">
<input name="link1" type="text" id="link1" value="" size="30" tabindex="10">
</div></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"> </td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Link 2: </div></td>
<td align="right" nowrap class="brodtekst"><div align="left">
<input name="link12" type="text" id="link12" value="" size="30" tabindex="11">
</div></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left"></div></td>
<td width="195"> </td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Link 3: </div></td>
<td align="right" nowrap class="brodtekst"><div align="left">
<input name="link3" type="text" id="link3" value="" size="30" tabindex="12">
</div></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left">Filnavn:
<a href="java script:PopWin('http://asp.hid.dk/detgodehus/help/help1.htm',200,200);"><img src="grafik/sprg.gif" border="0" width="15" height="15"></a> </td>
<td width="195" align="right" nowrap class="brodtekst"><input type=FILE size=20 name="THEFILE" tabindex="4"></td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Link 4: </div></td>
<td align="right" nowrap class="brodtekst"><div align="left">
<input name="link4" type="text" id="link4" value="" size="30" tabindex="13">
</div></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"> </td>
<td width="195"> </td>
<td width="20" class="brodtekst"> </td>
<td colspan="2" align="right" nowrap class="brodtekst"> </td>
</tr>
<tr valign="baseline" bgcolor="#333333">
<td colspan="5" align="right" nowrap class="toptekst"><div align="left" class="style1">Placering</div></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left"><strong>Bibliotek</strong></div></td>
<td width="195"><input name="cafeogkoekken" type="hidden" id="cafeogkoekken" tabindex="17" value="yes"></td>
<td width="20"> </td>
<td> </td>
<td> </td>
</tr>
<tr valign="baseline">
<td><span class="brodtekst">Kurser:</span></td>
<td><input type="checkbox" name="kurser" value=1 tabindex="21"></td>
<td width="20"> </td>
<td> </td>
<td> </td>
</tr>
<tr valign="baseline">
<td class="brodtekst">Indretning og udstyr: </td>
<td><input name="indretningudstyr" type="checkbox" id="indretningudstyr" tabindex="22" value=1></td>
<td width="20"> </td>
<td class="brodtekst"> </td>
<td> </td>
</tr>
<tr valign="baseline">
<td class="brodtekst">Lovgivning:</td>
<td><input name="lovgivning" type="checkbox" id="lovgivning" tabindex="23" value=1></td>
<td width="20"> </td>
<td class="brodtekst"> </td>
<td> </td>
</tr>
<tr valign="baseline">
<td class="brodtekst">Økonomi:</td>
<td><input name="okonomi" type="checkbox" id="okonomi" tabindex="23" value=1></td>
<td width="20"> </td>
<td class="brodtekst"> </td>
<td> </td>
</tr>
<tr valign="baseline">
<td class="brodtekst">Varer og leverandører: </td>
<td><input name="varerleverandorer" type="checkbox" id="varerleverandorer" tabindex="23" value=1></td>
<td> </td>
<td class="brodtekst"> </td>
<td> </td>
</tr>
<tr valign="baseline">
<td class="brodtekst"> </td>
<td> </td>
<td> </td>
<td class="brodtekst"> </td>
<td> </td>
</tr>
<tr valign="baseline">
<td class="brodtekst"> </td>
<td width="195"> </td>
<td width="20"> </td>
<td> </td>
<td> </td>
</tr>
<tr valign="baseline">
<td height="25" align="right" valign="bottom" nowrap class="brodtekst"><div align="left">
<input name="Submit" type="submit" value="Indsæt dokument">
</div> </td>
<td width="195" height="25" align="right" valign="bottom" nowrap class="brodtekst"> </td>
<td width="20" height="25"> </td>
<td height="25"> </td>
<td height="25"><label>
<div align="right">
<input type="button" name="Button" value="Luk vindue" onClick="self.close()">
</div>
</label></td>
</tr>
</table>
</form>
<p> </p>
</body>
</html>

Synes godt om

fennec Nybegynder

06. november 2006 - 21:16 #92

Det eneste jeg lige kan se, er at du har fået navngivet en af dine link felter forkert:
<input name="link12" type="text" id="link12" value="" size="30" tabindex="11">

Det skal bare være name="link2". Og dit "utitel" felt eksistere ikke på listen. Den skulle måske hedde "subtitel".

For at få vist den rigtige ASP fejl så gør dette (i IE):
Funktioner >> indstillinger >> Advanceret >> Fjern afkrydsning i "Vis meddelser om uskadelige HTTP-fejl"

Så skulle du gerne få det linjenr ASP'en fejler i.

Synes godt om

rudymadsen Nybegynder

15. november 2006 - 14:39 #93

Så er den gal igen... Jeg har været nødt til at lve flere upload vinduer, så den anden, jeg har, kommer med en ny fejl:

Microsoft VBScript runtime error '800a0009'

Subscript out of range: '[number: 81]'

/detgodehus/indsaetDoc3-2.asp, line 47

Hvad er der nu galt?

Her er koden:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
dim rs, Upload, File, fileName
Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

if Request.querystring("mode") = "save" then
MM_editTable = "tbl_dokumenter"
MM_editRedirectUrl = "takforupload.htm"
MM_fieldsStr = "select|value|dato|value|formidlingogfacilitering|value|titel|value|organisation|value|subtitel|value|sceneogsal|value|beskriv|value|aabnerum|value|vaerksteder|value|cafeogkoekken|value|samarbejde|value|link1|value|link2|value|link3|value|link4|value|fra|value|kurser|value|frasted|value|maakontaktes|value|kontakttelefon|value|kontaktemail|value"
MM_columnsStr = "typeID|none,none,NULL|dato|',none,NULL|formidlingogfacilitering|none,1,0|titel|',none,''|organisation|none,1,0|subtitel|',none,''|sceneogsal|none,1,0|beskriv|',none,''|aabnerum|none,1,0|vaerksteder|none,1,0|cafeogkoekken|none,1,0|samarbejde|none,1,0|link1|',none,''|link2|',none,''|link3|',none,''|link4|',none,''|fra|',none,''|kurser|none,1,0|frasted|',none,''|maakontaktes|none,1,0|kontakttelefon|',none,''|kontaktemail|',none,''"
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")

Set Upload = Server.CreateObject("Persits.Upload")
Upload.Save server.mapPath("../uploaddgh")
Set File = Upload.Files("THEFILE")
If Not File Is Nothing Then
fileName = File.extractFilename
else
fileName = ""
end if
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(MM_i+1) = CStr(upload.Form(MM_fields(MM_i)))
Next

For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_formVal = MM_fields(MM_i+1)
MM_typeArray = Split(MM_columns(MM_i+1),",")
MM_delim = MM_typeArray(0)
If (MM_delim = "none") Then MM_delim = ""
MM_altVal = MM_typeArray(1)
If (MM_altVal = "none") Then MM_altVal = ""
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = "none") Then MM_emptyVal = ""
If (MM_formVal = "") Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal <> "") Then
MM_formVal = MM_altVal
ElseIf (MM_delim = "'") Then ' escape quotes
MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End If
MM_tableValues = MM_tableValues & MM_columns(MM_i)
MM_dbValues = MM_dbValues & MM_formVal
Next

MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ",filnavn) values (" & MM_dbValues & ",'"& fileName &"')"
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_dgh_conn_STRING
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
set jmail = Server.CreateObject("JMail.Message")
jmail.FromName = "Upload"
jmail.From = "hid@hid.dk"
jmail.AddRecipient "educase@educase.dk"
jmail.Subject = "Der er uploaded nyt dokument"
jmail.HTMLBody = "Der er uploaded et nyt dokument"
if not jmail.Send("smtp.webhosting.dk") then
response.write "FEJL!!!"
else
response.write "Mail sendt"
end if

If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
end if

%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<title>Upload dokument</title>
<link href="styles.css" rel="stylesheet" type="text/css">
<script language="JavaScript">

</script>
<style type="text/css">

</style></head>

<body>
<form ACTION="indsaetDoc3-1.asp?mode=save" METHOD="POST" name="form1" enctype="multipart/form-data">
<p class="sti">Upload dokument </p>
<table width="640" align="left" cellpadding="0" cellspacing="0">
<tr valign="baseline" bgcolor="#666666">
<td colspan="2" align="right" nowrap bgcolor="#666666" class="toptekst"><div align="left" class="style1">Dokumentet </div></td>
<td width="20" align="right" nowrap bgcolor="#ECECEE" class="toptekst"> </td>
<td colspan="2" align="right" nowrap bgcolor="#666666" class="toptekst style1"><div align="left">Uploaded af </div></td>
</tr>
<tr valign="baseline">
<td width="129" align="right" nowrap class="brodtekst"><div align="left">Dokumenttype:</div></td>
<td width="195"><select name="select" class="brodtekst">
<%
set rs = MM_dgh_conn_STRING.execute("SELECT * FROM tbl_typer")
While (NOT rs.EOF)
%><option value="<%=(rs("typeID"))%>"><%=(rs("dokumenttype"))%></option>
<% rs.MoveNext()
Wend%>
</select></td>
<td width="20" class="brodtekst"> </td>
<td width="113" class="brodtekst">Navn :</td>
<td width="181"><input type="text" name="fra" value="" size="30" tabindex="5"></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left">Titel:</div></td>
<td width="195"><input type="text" name="titel" value="" size="30" tabindex="1"></td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Arbejdssted:</div></td>
<td><input type="text" name="frasted" value="" size="30" tabindex="6"></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left">Undertitel:</div></td>
<td width="195"><input name="subtitel" type="text" id="subtitel" value="" size="30" tabindex="2"></td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Må kontaktes:</div></td>
<td><input type="checkbox" name="maakontaktes" value=1 tabindex="7"></td>
</tr>
<tr valign="baseline">
<td rowspan="2" align="right" valign="top" nowrap class="brodtekst"><div align="left"></div>
<div align="left">Beskrivelse:</div></td>
<td width="195" rowspan="6"><textarea name="beskriv" cols="23" rows="7" tabindex="3"></textarea></td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Kontakttelefon:</div></td>
<td><input type="text" name="kontakttelefon" value="" size="30" tabindex="8"></td>
</tr>
<tr valign="baseline">
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Kontakte-mail:</div></td>
<td><input type="text" name="kontaktemail" value="" size="30" tabindex="9"></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left"></div></td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left"></div></td>
<td> </td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left"></div></td>
<td width="20" class="brodtekst"> </td>
<td colspan="2" align="right" nowrap bgcolor="#333333" class="brodtekst"><div align="left" class="toptekst style1">Relevante links
</div></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"> </td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Link 1:</div></td>
<td align="right" nowrap class="brodtekst"><div align="left">
<input name="link1" type="text" id="link1" value="" size="30" tabindex="10">
</div></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"> </td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Link 2: </div></td>
<td align="right" nowrap class="brodtekst"><div align="left">
<input name="link2" type="text" id="link2" value="" size="30" tabindex="11">
</div></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left"></div></td>
<td width="195"> </td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Link 3: </div></td>
<td align="right" nowrap class="brodtekst"><div align="left">
<input name="link3" type="text" id="link3" value="" size="30" tabindex="12">
</div></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left">Filnavn:
<a href="java script:PopWin('http://asp.hid.dk/detgodehus/help/help1.htm',200,200);"><img src="grafik/sprg.gif" border="0" width="15" height="15"></a> </td>
<td width="195" align="right" nowrap class="brodtekst"><input type=FILE size=20 name="THEFILE" tabindex="4"></td>
<td width="20" class="brodtekst"> </td>
<td align="right" nowrap class="brodtekst"><div align="left">Link 4: </div></td>
<td align="right" nowrap class="brodtekst"><div align="left">
<input name="link4" type="text" id="link4" value="" size="30" tabindex="13">
</div></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"> </td>
<td width="195"> </td>
<td width="20" class="brodtekst"> </td>
<td colspan="2" align="right" nowrap class="brodtekst"> </td>
</tr>
<tr valign="baseline" bgcolor="#333333">
<td colspan="5" align="right" nowrap class="toptekst"><div align="left" class="style1">Placering</div></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="brodtekst"><div align="left"><strong>Bibliotek</strong></div></td>
<td width="195"><input name="formidlingogfacilitering" type="hidden" id="formidlingogfacilitering" tabindex="17" value="yes"></td>
<td width="20"> </td>
<td> </td>
<td> </td>
</tr>
<tr valign="baseline">
<td><span class="brodtekst">Kurser og konferencer:</span></td>
<td><input type="checkbox" name="kurser" value=1 tabindex="21"></td>
<td width="20"> </td>
<td> </td>
<td> </td>
</tr>
<tr valign="baseline">
<td class="brodtekst">Projektstation </td>
<td><input name="projektstation" type="checkbox" id="projektstation" tabindex="22" value=1></td>
<td width="20"> </td>
<td class="brodtekst"> </td>
<td> </td>
</tr>
<tr valign="baseline">
<td class="brodtekst">Eksterne aktiviteter :</td>
<td><input name="eksterneaktiviteter" type="checkbox" id="eksterneaktiviteter" tabindex="23" value=1></td>
<td width="20"> </td>
<td class="brodtekst"> </td>
<td> </td>
</tr>
<tr valign="baseline">
<td class="brodtekst"> </td>
<td> </td>
<td width="20"> </td>
<td class="brodtekst"> </td>
<td> </td>
</tr>
<tr valign="baseline">
<td class="brodtekst"> </td>
<td> </td>
<td> </td>
<td class="brodtekst"> </td>
<td> </td>
</tr>
<tr valign="baseline">
<td class="brodtekst"> </td>
<td> </td>
<td> </td>
<td class="brodtekst"> </td>
<td> </td>
</tr>
<tr valign="baseline">
<td class="brodtekst"> </td>
<td width="195"> </td>
<td width="20"> </td>
<td> </td>
<td> </td>
</tr>
<tr valign="baseline">
<td height="25" align="right" valign="bottom" nowrap class="brodtekst"><div align="left">
<input name="Submit" type="submit" value="Indsæt dokument">
</div> </td>
<td width="195" height="25" align="right" valign="bottom" nowrap class="brodtekst"> </td>
<td width="20" height="25"> </td>
<td height="25"> </td>
<td height="25"><label>
<div align="right">
<input type="button" name="Button" value="Luk vindue" onClick="self.close()">
</div>
</label></td>
</tr>
</table>
</form>
<p> </p>
</body>
</html>

Synes godt om

fennec Nybegynder

15. november 2006 - 14:50 #94

Linje 47 er??

Synes godt om

rudymadsen Nybegynder

16. november 2006 - 08:31 #95

Linje 47 er den 2. sidste linje i denne kode.....

Set Upload = Server.CreateObject("Persits.Upload")
Upload.Save server.mapPath("../uploaddgh")
Set File = Upload.Files("THEFILE")
If Not File Is Nothing Then
fileName = File.extractFilename
else
fileName = ""
end if
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(MM_i+1) = CStr(upload.Form(MM_fields(MM_i)))
Next

Synes godt om

fennec Nybegynder

16. november 2006 - 08:55 #96

Synes godt om

rudymadsen Nybegynder

16. november 2006 - 13:21 #97

Må der ikke være felter i de to linjer, som ikke optræder som felter i formularen?

Synes godt om

fennec Nybegynder

16. november 2006 - 13:58 #98

Normalt burde det ikke være et problem, når man bruger request.form, men nu bruger vi upload.form og jeg har faktisk aldrig brøvet at bruge den på ikke eksisterende formfelter. Men prøv at kære lidt debug på løkken:

For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
response.write "MM_fields("&MM_i+1&") = CStr(upload.Form(MM_fields("&MM_i&")))<br>"
response.write "MM_fields OK"& MM_fields(MM_i+1) &"<br>"
response.write "Upload OK"& CStr(upload.Form(MM_fields(MM_i))) &"<br>"
MM_fields(MM_i+1) = CStr(upload.Form(MM_fields(MM_i)))
Next

Synes godt om

rudymadsen Nybegynder

16. november 2006 - 15:15 #99

Der fik du mig... :-)

Mener du, at jeg skal lægger disse linjer ind i toppen af filen? - eller?

Synes godt om

fennec Nybegynder

16. november 2006 - 15:31 #100

Erstat dette (omkring linje 42)
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(MM_i+1) = CStr(upload.Form(MM_fields(MM_i)))
Next

med den løkke jeg skrev. Eller nærmere, tilføj de 3 response.write linjer til løkken.

Synes godt om

rudymadsen Nybegynder

17. november 2006 - 07:05 #101

Den gennemgik så alle felterne, og alt var tilsyneladende OK - MEN, jeg observerede, at den ikke afsluttede, den sidste linje med et OK, så jeg tilføjede en lodret streg til sidst i recordsættet, og så gennemgik den også det sidste felt med en OK.

Men nu stopper den med samme fejlmeddelelse ved linje 60:

MM_typeArray = Split(MM_columns(MM_i+1),",")

Som er en del af koden:

For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_formVal = MM_fields(MM_i+1)
MM_typeArray = Split(MM_columns(MM_i+1),",")
MM_delim = MM_typeArray(0)
If (MM_delim = "none") Then MM_delim = ""
MM_altVal = MM_typeArray(1)
If (MM_altVal = "none") Then MM_altVal = ""
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = "none") Then MM_emptyVal = ""
If (MM_formVal = "") Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal <> "") Then
MM_formVal = MM_altVal
ElseIf (MM_delim = "'") Then ' escape quotes
MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End If
MM_tableValues = MM_tableValues & MM_columns(MM_i)
MM_dbValues = MM_dbValues & MM_formVal
Next

Synes godt om

rudymadsen Nybegynder

17. november 2006 - 07:27 #102

Ups...

Jeg er faktisk ikke helt sikker på, at den slutter rigtigt af. Gør den det?

MM_fields OKbookingbilletsalg
Upload OK
MM_fields(79) = CStr(upload.Form(MM_fields(78)))
MM_fields OKtekniskudstyr
Upload OK
MM_fields(81) = CStr(upload.Form(MM_fields(80)))
MM_fields OK
Upload OK

Synes godt om

fennec Nybegynder

17. november 2006 - 11:06 #103

Ud fra hvad jeg kan se, så kører den fint i gennem. Ellers skulle den have fejlet på "Upload OK" linjen, også skulle den linje ikke have været udskrevet. Så jeg ved ikke hvad der går galt.

Du skal nok have fat i nogen, som er mere inde i Macromedia kode end mig, for den er simpelthen for indviklet. Og det gør det ikke nemmere, nå jeg ikke ved hvordan de 2 MM_fields og MM_columns fungere. Jeg har i det mindste regnet ud, at det er dem, som er nøglen i scriptet.

Synes godt om

rudymadsen Nybegynder

19. november 2006 - 21:33 #104

Nå, men nu kører det.... jeg fik etableret det hele fra begyndelsen, og jeg fandt en upload kode, der virkede fra tidligere, du hjalp.

Tusind tak for hjælpen... håber jeg kan bruge dig en anden gang :-)

Synes godt om

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	9	25/06/202622:20	29/06/202621:55
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

I dag 15:18	Min PC kan nu ikke se den ekstra skærm Af KurtG i Windows
I går 14:48	Beholde vigtige cookies i Firefox (Slette cookies, som man ikke bruger) Af Ikke-ekspert i Browsere
29/0614:57	Opgradere win 10 til 11 Af lurup i Windows
28/0620:51	Creative Soundblaster Audigy FX v2 Af ErikHg i Andet hardware
27/0616:10	Tilbage til Outlook Klassisk design Af susalapi i E-mail programmer

Notifikationer

AspUpload og database

Log ind eller opret profil

Hov!