---

Hej alle!

Jeg er efterhånden ved at give op...jeg har forsøgt mig hos
activedeveloper.dk, eksperten.dk og persits.com.

Jeg har en formular, hvorfra man kan uploade et billede ( bruger
persits.ASPupload )samt tekst,dato osv. - informationer bliver
sendt til upload.asp - Scriptet i denne filen accepterer ikke
hvis der ikke er noget billede med - og derved bliver oplysninger
ikke
uploadet!

Dette vil jeg gerne undgå - således, at hvis man lader
uploadfeltet ("File1") stå tomt så uploader scriptet stadig de
resterende oplysninger.

Her er et link til persits, hvor jeg har prøvet at finde
information, uden held!:
Chapter 4. Saving Files and/or Filenames in the Database

http://www.aspupload.com/manual_db.html

Håber nogen kan hjælpe!!

Med venlig hilsen

Jimmy Snedker


upload.asp
<%

Set Upload = Server.CreateObject("Persits.Upload")

'Du sætter ScriptTimeout således:
Server.ScriptTimeout = 180


' This is needed to enable the progress indicator
Upload.ProgressID = Request.QueryString("PID")

' Capture files
Upload.Save("myimagefolder")

' Obtain file object
Set File1 = Upload.Files("File1")

If Not File1 Is Nothing Then
' Build ODBC connection string
Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" &
Server.MapPath("mindatabase.mdb")

' If you use SQL Server, the connecton string must look as
follows:
' Connect = "Driver=SQL
Server;Server=MYSERVER;UID=sa;PWD=xxxxxxxxx"

' Build SQL INSERT statement
SQL = "INSERT INTO news(image_blob, oversk, dato, imgstatus,
file1, nyhed, jaintlink, intlink, inttxt, jawww, www, txtwww,
jaemail, email, txtemail) VALUES(?, '"
SQL = SQL & Replace(Upload.Form("oversk"), "'", "''") & "', '"
SQL = SQL & Replace(Upload.Form("dato"), "'", "''") & "', '"
SQL = SQL & Replace(Upload.Form("imgstatus"), "'", "''") & "',
'"
SQL = SQL & File1.Filename & "', '"
SQL = SQL & Replace(Upload.Form("nyhed"), "'", "''") & "', '"
SQL = SQL & Replace(Upload.Form("jaintlink"), "'", "''") & "',
'"
SQL = SQL & Replace(Upload.Form("intlink"), "'", "''") & "', '"
SQL = SQL & Replace(Upload.Form("inttxt"), "'", "''") & "', '"
SQL = SQL & Replace(Upload.Form("jawww"), "'", "''") & "', '"
SQL = SQL & Replace(Upload.Form("www"), "'", "''") & "', '"
SQL = SQL & Replace(Upload.Form("txtwww"), "'", "''") & "', '"
SQL = SQL & Replace(Upload.Form("jaemail"), "'", "''") & "', '"
SQL = SQL & Replace(Upload.Form("email"), "'", "''") & "', '"
SQL = SQL & Replace(Upload.Form("txtemail"), "'", "''") & "')"

' Save to database
File1.ToDatabase Connect, SQL
Response.Write "Nyheden er uploadet."

Else
' Hvis der intet billed er, skal denne del afvikles
' Build ODBC connection string
Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" &
Server.MapPath("mindatabase.mdb")

' If you use SQL Server, the connecton string must look as
follows:
' Connect = "Driver=SQL
Server;Server=MYSERVER;UID=sa;PWD=xxxxxxxxx"

' Build SQL INSERT statement
SQL = "INSERT INTO news(image_blob, oversk, dato, imgstatus,
nyhed, jaintlink, intlink, inttxt, jawww, www, txtwww, jaemail,
email, txtemail) VALUES(?, '"
SQL = SQL & Replace(Upload.Form("oversk"), "'", "''") & "', '"
SQL = SQL & Replace(Upload.Form("dato"), "'", "''") & "', '"
SQL = SQL & Replace(Upload.Form("imgstatus"), "'", "''") & "',
'"
SQL = SQL & Replace(Upload.Form("nyhed"), "'", "''") & "', '"
SQL = SQL & Replace(Upload.Form("jaintlink"), "'", "''") & "',
'"
SQL = SQL & Replace(Upload.Form("intlink"), "'", "''") & "', '"
SQL = SQL & Replace(Upload.Form("inttxt"), "'", "''") & "', '"
SQL = SQL & Replace(Upload.Form("jawww"), "'", "''") & "', '"
SQL = SQL & Replace(Upload.Form("www"), "'", "''") & "', '"
SQL = SQL & Replace(Upload.Form("txtwww"), "'", "''") & "', '"
SQL = SQL & Replace(Upload.Form("jaemail"), "'", "''") & "', '"
SQL = SQL & Replace(Upload.Form("email"), "'", "''") & "', '"
SQL = SQL & Replace(Upload.Form("txtemail"), "'", "''") & "')"

' Save to database
- Her ved jeg ikke hvad skal stå idet jeg ikke kan bruge
'File1.ToDatabase Connect, SQL' som i den øverste del af
scriptet!!

Response.Write "Nyheden er uploadet uden billede."
End If

%>

--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

"Jimmy Snedker" <jsnedker@hotmail.com> skrev i en meddelelse
news:bk9648$5i4$1@sunsite.dk...
> Hej alle!
>
> Jeg er efterhånden ved at give op...jeg har forsøgt mig hos
> activedeveloper.dk, eksperten.dk og persits.com.
>
> Jeg har en formular, hvorfra man kan uploade et billede ( bruger
> persits.ASPupload )samt tekst,dato osv. - informationer bliver
> sendt til upload.asp - Scriptet i denne filen accepterer ikke
> hvis der ikke er noget billede med - og derved bliver oplysninger
> ikke
> uploadet!
>
> Dette vil jeg gerne undgå - således, at hvis man lader
> uploadfeltet ("File1") stå tomt så uploader scriptet stadig de
> resterende oplysninger.

Kan man ikke bare øverst på siden upload.asp lave en If sætning?

Noget i stil med:

If Request.Form("file1") = "" Then
Skriv alle de andre felter til databasen
Else
Og her sætter du så det oprindelige upload script ind, som uploader både
billede og info.
End If

Eller misforstår jeg spørgsmålet helt?

Jens

---

> Kan man ikke bare øverst på siden upload.asp lave en If sætning?
>
> Noget i stil med:
>
> If Request.Form("file1") = "" Then
> Skriv alle de andre felter til databasen
> Else
> Og her sætter du så det oprindelige upload script ind, som uploader både
> billede og info.
> End If

Jeg har prøvet uden held!


> Eller misforstår jeg spørgsmålet helt?
>
nej, ikke helt! Problemet ligger i at scriptet fra start regner med at der
en fil .. kunne man evt. inde fra selve formular-siden fortælle hvilke
uploadscript formen skulle gå til? og hvordan ville et sådanne script se ud?

Du kan se nedenunder hvordan min formular ser ud!

Med venlig hilsen

Jimmy snedker


<%
Set UploadProgress = Server.CreateObject("Persits.UploadProgress")
PID = "PID=" & UploadProgress.CreateProgressID()
barref = "framebar.asp?to=10&" & PID
%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../css/styles.css" rel="stylesheet" type="text/css">
<SCRIPT LANGUAGE="JavaScript">
function ShowProgress()
{
strAppVersion = navigator.appVersion;
if (document.Form.File1.value != "" )
{
if (strAppVersion.indexOf('MSIE') != -1 &&
strAppVersion.substr(strAppVersion.indexOf('MSIE')+5,1) > 4)
{
winstyle = "dialogWidth=375px; dialogHeight:130px; center:yes";
window.showModelessDialog('<% = barref %>&b=IE',null,winstyle);
}
else
{
window.open('<% = barref %>&b=NN','','width=370,height=115', true);
}
}
return true;
}
</SCRIPT>
</head>
<body>
<form ACTION="upload.asp?<% = PID %>" method="post"
enctype="multipart/form-data" name="Form" id="Form" OnSubmit="return
ShowProgress();">
<table width="600" border="0" cellpadding="0" cellspacing="5"
class="blackbrd">
<tr>
<td><img src="../images/aaalogo1.gif" width="95" height="108"></td>
<td>&nbsp;</td>
</tr>
<tr bgcolor="#CCCCCC">
<td colspan="2" class="menu">Tilf&oslash;j/Upload af Nyhed</td>
</tr>
<tr>
<td class="menu">Overskrift p&aring; nyhed</td>
<td><input name="oversk" type="text" id="biltekst3"
style="width:320px;"></td>
</tr>
<tr>
<td class="menu">Dato:</td>
<td><input name="dato" type="text" id="dato" style="width:320px;"
value="<% Response.Write FormatDateTime(Now, vbShortDate) %>">
</td>
</tr>
<tr>
<td class="menu">Billede</td>
<td><select name="imgstatus" id="imgstatus">
<option value="0" selected>Nej</option>
<option value="1">Ja</option>
</select> <input name="File1" type="file" id="File1"
style="width:267px;"></td>
</tr>
<tr>
<td valign="top" class="menu">Nyhedstekst</td>
<td><textarea name="nyhed" rows="10" class="inputtxt"
style="width:388px;" align="justify"></textarea></td>
</tr>
<tr>
<td class="menu">Intern link</td>
<td class="smalltxt"><select name="jaintlink" class="smalltxt"
id="jaintlink">
<option value="0" selected>Nej</option>
<option value="1">Ja</option>
</select>
<input name="intlink" type="text" class="smalltxt" id="intlink"
style="width:200px;">
</td>
</tr>
<tr>
<td class="menu">Intern link-tekst</td>
<td class="smalltxt"><input name="inttxt" type="text" id="inttxt"
style="width:252px;">
</td>
</tr>
<tr>
<td class="menu">Ekstern link</td>
<td class="smalltxt"> <select name="jawww" class="smalltxt"
id="jawww">
<option value="0" selected>Nej</option>
<option value="1">Ja</option>
</select> <input name="www" type="text" class="smalltxt" id="www"
style="width:200px;">
</td>
</tr>
<tr>
<td class="menu">ekstern link-tekst</td>
<td class="smalltxt"> <input name="txtwww" type="text" id="txtwww"
style="width:252px;">
</td>
</tr>
<tr>
<td class="menu">email-link</td>
<td class="smalltxt"> <select name="jaemail" class="smalltxt"
id="jaemail">
<option value="0" selected>Nej</option>
<option value="1">Ja</option>
</select> <input name="email" type="text" class="smalltxt"
id="email" style="width:200px;">
td>
</tr>
<tr>
<td class="menu">email-tekst</td>
<td class="smalltxt"> <input name="txtemail" type="text" id="txtemail"
style="width:252px;">
</td>
</tr>
<tr>
<td colspan="2"></td>
</tr>
<tr>
<td>&nbsp;</td>
<td><input name="Submit" type="submit" class="menu" value="Upload
Nyhed"></td>
</tr>
<tr align="center">
<td colspan="2" class="adress">

</td>
</tr>
</table>
</form>
</body>
</html>



--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

Jimmy Snedker wrote:
> nej, ikke helt! Problemet ligger i at scriptet fra start regner med
> at der en fil .. kunne man evt. inde fra selve formular-siden
> fortælle hvilke uploadscript formen skulle gå til? og hvordan ville
> et sådanne script se ud?
>
> Du kan se nedenunder hvordan min formular ser ud!

Hvordan ser uploadscriptet ud ?

Chrisser

---

Hej chrisser1

Se mit første indlæg!


MVH

Jimmy

--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

Jimmy Snedker wrote:
> Hej chrisser1
> Se mit første indlæg!

Sorry....

Den ser nu også ud til at være god nok.
Jeg vil tro at Jens har ret, hvis du ikke behøver den progressbar så prøv at
fjern den ( den kaldes fra onSubmit på formen), ellers må du eksperimentere
lidt med scriptet, jeg har sat et par kommentarer på selv om det jo ikke er
ASP:

function ShowProgress()
{
strAppVersion = navigator.appVersion;
if (document.Form.File1.value != "" ) // hvis denne er opfyldt returneres
true ( hvilket gør at formen submittes )
{
if (strAppVersion.indexOf('MSIE') != -1 &&
strAppVersion.substr(strAppVersion.indexOf('MSIE')+5,1) > 4)
{
winstyle = "dialogWidth=375px; dialogHeight:130px; center:yes";
window.showModelessDialog('<% = barref %>&b=IE',null,winstyle);
}
else
{
window.open('<% = barref %>&b=NN','','width=370,height=115', true);
}
} // dette er slutningen på din test på mindst én fil, her kunne du
prøve at indsætte:

else {
return true;
}

// så submittes din form under alle omstændigheder men der kommer ingen
progressbar, den ville du nok heller ikke kunne nå at se alligevel...
return true;
}

Hvis dette ikke hjælper dig så må du nok i clientside, jeg futter..
FUT: dk.edb.internet.webdesign.clientside ( svar på dette indlæg havner
clientside-gruppen )


Chrisser

---

"Jimmy Snedker" <jsnedker@hotmail.com> skrev i en meddelelse
news:bk9bkm$qke$1@sunsite.dk...
> nej, ikke helt! Problemet ligger i at scriptet fra start regner med at
der
> en fil .. kunne man evt. inde fra selve formular-siden fortælle hvilke
> uploadscript formen skulle gå til? og hvordan ville et sådanne script se
ud?
>
> Du kan se nedenunder hvordan min formular ser ud!

Ah ok. Det er nok det der ShowProgress JavaScript som er problemet. Netop
som du siger, fordi at der allerede fra start forventes at der uploades en
fil.

Jeg har desværre ingen forstand på JavaScript, så det kan jeg ikke rigtig
hjælpe med. Du skal måske prøve at stille det spørgsmål i en JavaScript
gruppe, for jeg tror det er JavaScriptet som skaber problemerne.

Medmindre man bare helt kan slette Javascriptet.

Jens


> <%
> Set UploadProgress = Server.CreateObject("Persits.UploadProgress")
> PID = "PID=" & UploadProgress.CreateProgressID()
> barref = "framebar.asp?to=10&" & PID
> %>
> <html>
> <head>
> <title></title>
> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
> <link href="../css/styles.css" rel="stylesheet" type="text/css">
> <SCRIPT LANGUAGE="JavaScript">
> function ShowProgress()
> {
> strAppVersion = navigator.appVersion;
> if (document.Form.File1.value != "" )
> {
> if (strAppVersion.indexOf('MSIE') != -1 &&
> strAppVersion.substr(strAppVersion.indexOf('MSIE')+5,1) > 4)
> {
> winstyle = "dialogWidth=375px; dialogHeight:130px; center:yes";
> window.showModelessDialog('<% = barref %>&b=IE',null,winstyle);
> }
> else
> {
> window.open('<% = barref %>&b=NN','','width=370,height=115', true);
> }
> }
> return true;
> }
> </SCRIPT>
> </head>
> <body>
> <form ACTION="upload.asp?<% = PID %>" method="post"
> enctype="multipart/form-data" name="Form" id="Form" OnSubmit="return
> ShowProgress();">
> <table width="600" border="0" cellpadding="0" cellspacing="5"
> class="blackbrd">
> <tr>
> <td><img src="../images/aaalogo1.gif" width="95" height="108"></td>
> <td>&nbsp;</td>
> </tr>
> <tr bgcolor="#CCCCCC">
> <td colspan="2" class="menu">Tilf&oslash;j/Upload af Nyhed</td>
> </tr>
> <tr>
> <td class="menu">Overskrift p&aring; nyhed</td>
> <td><input name="oversk" type="text" id="biltekst3"
> style="width:320px;"></td>
> </tr>
> <tr>
> <td class="menu">Dato:</td>
> <td><input name="dato" type="text" id="dato" style="width:320px;"
> value="<% Response.Write FormatDateTime(Now, vbShortDate) %>">
> </td>
> </tr>
> <tr>
> <td class="menu">Billede</td>
> <td><select name="imgstatus" id="imgstatus">
> <option value="0" selected>Nej</option>
> <option value="1">Ja</option>
> </select> <input name="File1" type="file" id="File1"
> style="width:267px;"></td>
> </tr>
> <tr>
> <td valign="top" class="menu">Nyhedstekst</td>
> <td><textarea name="nyhed" rows="10" class="inputtxt"
> style="width:388px;" align="justify"></textarea></td>
> </tr>
> <tr>
> <td class="menu">Intern link</td>
> <td class="smalltxt"><select name="jaintlink" class="smalltxt"
> id="jaintlink">
> <option value="0" selected>Nej</option>
> <option value="1">Ja</option>
> </select>
> <input name="intlink" type="text" class="smalltxt" id="intlink"
> style="width:200px;">
> </td>
> </tr>
> <tr>
> <td class="menu">Intern link-tekst</td>
> <td class="smalltxt"><input name="inttxt" type="text" id="inttxt"
> style="width:252px;">
> </td>
> </tr>
> <tr>
> <td class="menu">Ekstern link</td>
> <td class="smalltxt"> <select name="jawww" class="smalltxt"
> id="jawww">
> <option value="0" selected>Nej</option>
> <option value="1">Ja</option>
> </select> <input name="www" type="text" class="smalltxt" id="www"
> style="width:200px;">
> </td>
> </tr>
> <tr>
> <td class="menu">ekstern link-tekst</td>
> <td class="smalltxt"> <input name="txtwww" type="text" id="txtwww"
> style="width:252px;">
> </td>
> </tr>
> <tr>
> <td class="menu">email-link</td>
> <td class="smalltxt"> <select name="jaemail" class="smalltxt"
> id="jaemail">
> <option value="0" selected>Nej</option>
> <option value="1">Ja</option>
> </select> <input name="email" type="text" class="smalltxt"
> id="email" style="width:200px;">
> td>
> </tr>
> <tr>
> <td class="menu">email-tekst</td>
> <td class="smalltxt"> <input name="txtemail" type="text"
id="txtemail"
> style="width:252px;">
> </td>
> </tr>
> <tr>
> <td colspan="2"></td>
> </tr>
> <tr>
> <td>&nbsp;</td>
> <td><input name="Submit" type="submit" class="menu" value="Upload
> Nyhed"></td>
> </tr>
> <tr align="center">
> <td colspan="2" class="adress">
>
> </td>
> </tr>
> </table>
> </form>
> </body>
> </html>
>
>
>
> --
> Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
> - Pædagogiske tutorials på dansk
> - Kom godt i gang med koderne
> KLIK HER! => http://www.html.dk/tutorials

---

>Dette vil jeg gerne undgå - således, at hvis man lader
>uploadfeltet ("File1") stå tomt så uploader scriptet stadig de
>resterende oplysninger.
>
>Her er et link til persits, hvor jeg har prøvet at finde
>information, uden held!:
>Chapter 4. Saving Files and/or Filenames in the Database
>
>http://www.aspupload.com/manual_db.html
>
>Håber nogen kan hjælpe!!
>

Mit forslag er følgende, og det er ikek en løsning men måske en mulig
omgåelse af problemet.

Hvis du nu laver to layers, det ene layer med din fil upload og
tilhørende felter og derudover en checkbox. Det anden layer laver du
med en helt traditionel form uden fil upload.

Så gør du fil upload layeret visible fra start og hvis de klikker i
checkboksen så gør du den anden synlig i stedet.

Som sagt ikke en løsning (mener ikke dit problem er mulig at løse, har
selv haft noget sjov med dette), men en mulig omgåelse.

mvh
Dennis

---

Jimmy Snedker skrev:
>Jeg har en formular, hvorfra man kan uploade et billede ( bruger
>persits.ASPupload )samt tekst,dato osv. - informationer bliver
>sendt til upload.asp - Scriptet i denne filen accepterer ikke
>hvis der ikke er noget billede med - og derved bliver oplysninger
>ikke uploadet!

Jeg mangler en fejlmeddelelse? hvis jeg forstår dig rigtigt, bliver
oplysninger sendt
til Upload.asp, og det er her din kode af en eller anden grund fejler?

Bruger selv Persits AspUpload, dog uden Progress Indicator,
men jeg gør tingene på en lidt anden måde, som du kan se uddrag af til
sidst?

>If Not File1 Is Nothing Then
er du sikker på den bliver opfyldt?
Response.Write "File 1 is something?"
og i else delen
Response.Write "File 1 is nothing?"

>Upload.Save("myimagefolder")
Her bruger jeg:
Set objUpload = Server.CreateObject("Persits.Upload")
Set Jpeg = Server.CreateObject("Persits.Jpeg")
objUpload.Save 'gemmer det i memory

'Henter værdier fra formularen
Fiskeart = objUpload.Form("fiskeart")
Vaegt = Replace(objUpload.Form("vaegt"),",",".")
Laengde = Replace(objUpload.Form("laengde"),",",".")
Fangststed = objUpload.Form("fangststed")
Agn = objUpload.Form("agn")
AgnFarve = objUpload.Form("agnfarve")
Fangstmetode = objUpload.Form("fangstmetode")
O.S.V.
If objUpload.Form("Action") = "Ja" Then
'redigerer fangst i databasen
strsqlRediger = "UPDATE T_Fangst SET klub= "&klub&", fangstdato=
'"&fangstdato&"',
fiskeart="&Fiskeart&",vægt="&vaegt&",længde="&laengde&",fangststed="&fangsts
ted&",agn="&agn&",agnfarve="&agnfarve&",fangstmetode="&fangstmetode&",fangst
dybde="&fangstdybde&",navn='"&navn&"',medlemsnummer="&medlemsnummer&",beretn
ing='"&beretning&"',tlf='"&tlf&"',teamnavn='"&teamnavn&"',Målbartbillede='"&
janej&"',PersonID="&persID&" WHERE FangstID=" & ID

myConn.Execute(strsqlRediger)

Else

'Opretter fangst i Databasen
StrSql = "INSERT INTO T_Fangst
(klub,fangstdato,fiskeart,vægt,længde,fangststed,agn,agnfarve,fangstmetode,f
angstdybde,navn,medlemsnummer,beretning,tlf,teamnavn,Målbartbillede,
PersonID) VALUES
("&klub&",'"&FangstDato&"',"&fiskeart&","&vaegt&","&laengde&","&fangststed&"
,"&agn&","&agnfarve&","&fangstmetode&","&fangstdybde&",'"&navn&"',"&medlemsn
ummer&",'"&beretning&"','"&tlf&"','"&teamnavn&"','"&janej&"',"&persID&")"

myConn.Execute(strSQL)

' // Disse 2 linier giver dig identitets værdien, fra den post du lige har
sat ind i basen
Set rsIdentity = myConn.Execute("SELECT @@IDENTITY as NewID FROM T_Fangst")
LatestID= rsIdentity("NewID")
rsIdentity.close
set rsIdentity = nothing
If IsNull(LatestID) Then
LatestID = ID
End If
''''Her starter upload, dog er der anvendt AspJpeg da det er den jeg bruger
til at lave tumbnail.
strSti = Server.MapPath("./") & "\"
For Each File in objUpload.Files
If File.ImageType = "JPG" Then
Jpeg.OpenBinary File.Binary

' Set new width
If jpeg.OriginalWidth < jpeg.OriginalHeight Then
jpeg.Height = 400
' Set new width, preserve original height/width ratio
jpeg.Width = jpeg.OriginalWidth * jpeg.Height / jpeg.OriginalHeight
Else
jpeg.Width = 600
' Set new height, preserve original width/height ratio
jpeg.Height = jpeg.OriginalHeight * jpeg.Width / jpeg.OriginalWidth
End If

' Apply sharpening if necessary
Jpeg.Sharpen 1, 140
strBilled = "images\" & LatestID & File.OriginalFilename

Jpeg.Save strSti & strBilled

Else
Response.Write "Dit billede er ikke af typen jpg, så det er ikke blevet
gemt."
End If

'Opretter Billede i Databasen
If Not IsEmpty(File.OriginalFileName) Then
StrSql = "UPDATE T_Fangst SET Billede = '" & strBilled & "' WHERE
FangstID= " & LatestID
myConn.Execute(strSQL)
End If

Next
--
Med Venlig Hilsen
Jørgen Müller