Spit data fra XML til ASP
HejJeg har et DVDDB i xml som skal inpoteres til mysql fra DVDprofiler det virker fint men der er nogne Genre som skal spilletes
i min mysql ser mine Genre sådan ud vis der er en eller flere
//// 1190 som læser fra en Genre tabel
men i Min XML ser Genre sådan ud
<Genre>Action</Genre>
<Genre>Science-Fiction</Genre>
Så min plan vare ændre på vejen inden mysql ek ved at tjække sådan her
<% if arrDVDRegions(a) = 1 then
response.write "Action"
else
response.write "118"
end if
%>
men ved ikke lige hvodan man gør det så man kan
///////////////// men her er min fulde XML ///////////////////
<?xml version="1.0" encoding="windows-1252"?>
<!--DVD Profiler Collection Export-->
<Collection>
<DVD>
<ProfileTimestamp>2007-09-10T19:00:43.000Z</ProfileTimestamp>
<ID>012236170488</ID>
<MediaTypes>
<DVD>True</DVD>
<HDDVD>False</HDDVD>
<BluRay>False</BluRay>
</MediaTypes>
<UPC>012236-170488</UPC>
<CollectionNumber>1199</CollectionNumber>
<CollectionType>Owned</CollectionType>
<Title>Total Recall</Title>
<DistTrait>Special Edition</DistTrait>
<OriginalTitle/>
<CountryOfOrigin>United States</CountryOfOrigin>
<ProductionYear>1990</ProductionYear>
<Released>2001-09-18</Released>
<RunningTime>113</RunningTime>
<Rating>R</Rating>
<CaseType>Keep Case</CaseType>
<Genres>
<Genre>Action</Genre>
<Genre>Science-Fiction</Genre>
</Genres>
<Regions>
<Region>1</Region>
</Regions>
<Format>
<FormatAspectRatio>1.85</FormatAspectRatio>
<FormatVideoStandard>NTSC</FormatVideoStandard>
<FormatLetterBox>True</FormatLetterBox>
<FormatPanAndScan>False</FormatPanAndScan>
<FormatFullFrame>False</FormatFullFrame>
<Format16X9>True</Format16X9>
<FormatDualSided>False</FormatDualSided>
<FormatDualLayered>True</FormatDualLayered>
</Format>
<Features>
<FeatureSceneAccess>True</FeatureSceneAccess>
<FeatureCommentary>True</FeatureCommentary>
<FeatureTrailer>True</FeatureTrailer>
<FeaturePhotoGallery>True</FeaturePhotoGallery>
<FeatureDeletedScenes>False</FeatureDeletedScenes>
<FeatureMakingOf>True</FeatureMakingOf>
<FeatureProductionNotes>True</FeatureProductionNotes>
<FeatureGame>False</FeatureGame>
<FeatureDVDROMContent>False</FeatureDVDROMContent>
<FeatureMultiAngle>False</FeatureMultiAngle>
<FeatureMusicVideos>False</FeatureMusicVideos>
<FeatureInterviews>False</FeatureInterviews>
<FeatureStoryboardComparisons>True</FeatureStoryboardComparisons>
<FeatureOuttakes>False</FeatureOuttakes>
<FeatureClosedCaptioned>True</FeatureClosedCaptioned>
<FeatureTHXCertified>False</FeatureTHXCertified>
<OtherFeatures/>
</Features>
<Studios>
<Studio>Artisan Home Entertainment</Studio>
</Studios>
<Audio>
<AudioTrack>
<AudioContent>English</AudioContent>
<AudioFormat>Dolby Digital 5.1</AudioFormat>
</AudioTrack>
<AudioTrack>
<AudioContent>English</AudioContent>
<AudioFormat>Dolby Digital Stereo</AudioFormat>
</AudioTrack>
<AudioTrack>
<AudioContent>Commentary</AudioContent>
<AudioFormat>Dolby Digital Stereo</AudioFormat>
</AudioTrack>
</Audio>
<BoxSet>
<Parent/>
<Contents/>
</BoxSet>
<Subtitles>
<Subtitle>English</Subtitle>
<Subtitle>French</Subtitle>
<Subtitle>Spanish</Subtitle>
</Subtitles>
<SRP DenominationType="USD" DenominationDesc="United States (Dollar)" FormattedValue="$26,99">26.99</SRP>
<Actors>
<Actor FirstName="Arnold" MiddleName="" LastName="Schwarzenegger" BirthYear="0" Role="Douglas Quaid/Hauser" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Rachel" MiddleName="" LastName="Ticotin" BirthYear="0" Role="Melina" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Sharon" MiddleName="" LastName="Stone" BirthYear="0" Role="Lori" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Ronny" MiddleName="" LastName="Cox" BirthYear="0" Role="Vilos Cohaagen" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Michael" MiddleName="" LastName="Ironside" BirthYear="0" Role="Richter" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Marshall" MiddleName="" LastName="Bell" BirthYear="0" Role="George/Kuato" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Mel" MiddleName="" LastName="Johnson jr." BirthYear="0" Role="Benny" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Michael" MiddleName="" LastName="Champion" BirthYear="0" Role="Helm" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Roy" MiddleName="" LastName="Brocksmith" BirthYear="0" Role="Dr. Edgemar" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Ray" MiddleName="" LastName="Baker" BirthYear="0" Role="Bob McClane" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Rosemary" MiddleName="" LastName="Dunsmore" BirthYear="0" Role="Dr. Lull" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="David" MiddleName="" LastName="Knell" BirthYear="0" Role="Ernie" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Alexia" MiddleName="" LastName="Robinson" BirthYear="0" Role="Tiffany" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Dean" MiddleName="" LastName="Norris" BirthYear="0" Role="Tony" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Mark" MiddleName="" LastName="Carlton" BirthYear="0" Role="Bartender" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Debbie" MiddleName="Lee" LastName="Carrington" BirthYear="0" Role="Thumbelina" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Lycia" MiddleName="" LastName="Naff" BirthYear="0" Role="Mary" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Robert" MiddleName="" LastName="Costanzo" BirthYear="0" Role="Harry" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Michael" MiddleName="" LastName="LaGuardia" BirthYear="0" Role="Stevens" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Priscilla" MiddleName="" LastName="Allen" BirthYear="0" Role="Fat Lady" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Ken" MiddleName="" LastName="Strausbaugh" BirthYear="0" Role="Immigration Officer" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Marc" MiddleName="" LastName="Alaimo" BirthYear="0" Role="Everett" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Michael" MiddleName="" LastName="Gregory" BirthYear="0" Role="Rebel Lieutenant" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Ken" MiddleName="" LastName="Gildin" BirthYear="0" Role="Hotel Clerk" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Mickey" MiddleName="" LastName="Jones" BirthYear="0" Role="Burly Miner" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Parker" MiddleName="" LastName="Whitman" BirthYear="0" Role="Martian Husband" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Ellen" MiddleName="" LastName="Gollas" BirthYear="0" Role="Martian Wife" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Gloria" MiddleName="" LastName="Dorson" BirthYear="0" Role="Woman in phone booth" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Erika" MiddleName="" LastName="Carlson" BirthYear="0" Role="Miss Lonelyhearts" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Benny" MiddleName="" LastName="Corral" BirthYear="0" Role="Punk Cabbie" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Bob" MiddleName="" LastName="Tzudiker" BirthYear="0" Role="Doctor" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Erik" MiddleName="" LastName="Cord" BirthYear="0" Role="Lab Assistant" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Frank" MiddleName="" LastName="Kopyc" BirthYear="0" Role="Technician" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Chuck" MiddleName="" LastName="Sloan" BirthYear="0" Role="Scientist" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Dave" MiddleName="" LastName="Nicolson" BirthYear="0" Role="Scientist" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Paula" MiddleName="" LastName="McClure" BirthYear="0" Role="Newscaster" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Rebecca" MiddleName="" LastName="Ruth" BirthYear="0" Role="Reporter" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Milt" MiddleName="" LastName="Tarver" BirthYear="0" Role="Commercial Announcer" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Roger" MiddleName="" LastName="Cudney" BirthYear="0" Role="Agent" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Monica" MiddleName="" LastName="Steuer" BirthYear="0" Role="Mutant Mother" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Sasha" MiddleName="" LastName="Rionda" BirthYear="0" Role="Mutant Child" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Linda" MiddleName="" LastName="Howell" BirthYear="0" Role="Tennis Pro" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Robert" MiddleName="" LastName="Picardo" BirthYear="0" Role="Johnnycab" CreditedAs="" Voice="True" Uncredited="False"/>
<Actor FirstName="Anne" MiddleName="" LastName="Lockhart" BirthYear="0" Role="Additional Voices" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Kamala" MiddleName="" LastName="Lopez-Dawson" BirthYear="0" Role="Additional Voices" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Morgan" MiddleName="" LastName="Lofting" BirthYear="0" Role="Additional Voices" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Patti" MiddleName="" LastName="Attar" BirthYear="0" Role="Additional Voices" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Bob" MiddleName="" LastName="Bergen" BirthYear="0" Role="Additional Voices" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Joe" MiddleName="" LastName="Unger" BirthYear="0" Role="Additional Voices" CreditedAs="" Voice="False" Uncredited="False"/>
<Actor FirstName="Karlyn" MiddleName="" LastName="Michelson" BirthYear="0" Role="Additional Voices" CreditedAs="" Voice="False" Uncredited="False"/>
</Actors>
<Credits>
<Credit FirstName="Paul" MiddleName="" LastName="Verhoeven" BirthYear="0" CreditType="Direction" CreditSubtype="Director" CreditedAs=""/>
<Credit FirstName="Philip" MiddleName="K." LastName="Dick" BirthYear="0" CreditType="Writing" CreditSubtype="Original Material By" CreditedAs=""/>
<Credit FirstName="Ronald" MiddleName="" LastName="Shusett" BirthYear="0" CreditType="Writing" CreditSubtype="Original Material By" CreditedAs=""/>
<Credit FirstName="Dan" MiddleName="" LastName="O'Bannon" BirthYear="0" CreditType="Writing" CreditSubtype="Original Material By" CreditedAs=""/>
<Credit FirstName="Jon" MiddleName="" LastName="Povill" BirthYear="0" CreditType="Writing" CreditSubtype="Original Material By" CreditedAs=""/>
<Credit FirstName="Ronald" MiddleName="" LastName="Shusett" BirthYear="0" CreditType="Writing" CreditSubtype="Screenwriter" CreditedAs=""/>
<Credit FirstName="Dan" MiddleName="" LastName="O'Bannon" BirthYear="0" CreditType="Writing" CreditSubtype="Screenwriter" CreditedAs=""/>
<Credit FirstName="Gary" MiddleName="" LastName="Goldman" BirthYear="0" CreditType="Writing" CreditSubtype="Screenwriter" CreditedAs=""/>
<Credit FirstName="Buzz" MiddleName="" LastName="Feitshans" BirthYear="0" CreditType="Production" CreditSubtype="Producer" CreditedAs=""/>
<Credit FirstName="Mario" MiddleName="" LastName="Kassar" BirthYear="0" CreditType="Production" CreditSubtype="Executive Producer" CreditedAs=""/>
<Credit FirstName="Ronald" MiddleName="" LastName="Shusett" BirthYear="0" CreditType="Production" CreditSubtype="Producer" CreditedAs=""/>
<Credit FirstName="Andrew" MiddleName="G." LastName="Vajna" BirthYear="0" CreditType="Production" CreditSubtype="Executive Producer" CreditedAs=""/>
<Credit FirstName="Jost" MiddleName="" LastName="Vacano" BirthYear="0" CreditType="Cinematography" CreditSubtype="Director of Photography" CreditedAs=""/>
<Credit FirstName="Frank" MiddleName="J." LastName="Urioste" BirthYear="0" CreditType="Film Editing" CreditSubtype="Film Editor" CreditedAs=""/>
<Credit FirstName="Jerry" MiddleName="" LastName="Goldsmith" BirthYear="0" CreditType="Music" CreditSubtype="Composer" CreditedAs=""/>
<Credit FirstName="Bruno" MiddleName="" LastName="Louchouarn" BirthYear="0" CreditType="Music" CreditSubtype="Song Writer" CreditedAs=""/>
<Credit FirstName="James" MiddleName="" LastName="Christopher" BirthYear="0" CreditType="Sound" CreditSubtype="Sound Editor" CreditedAs=""/>
<Credit FirstName="Carlos" MiddleName="" LastName="DeLarios" BirthYear="0" CreditType="Sound" CreditSubtype="Sound Re-Recording Mixer" CreditedAs=""/>
<Credit FirstName="Scott" MiddleName="" LastName="Hecker" BirthYear="0" CreditType="Sound" CreditSubtype="Supervising Sound Editor" CreditedAs=""/>
<Credit FirstName="Michael" MiddleName="J." LastName="Kohut" BirthYear="0" CreditType="Sound" CreditSubtype="Sound Re-Recording Mixer" CreditedAs=""/>
<Credit FirstName="Aaron" MiddleName="" LastName="Rochin" BirthYear="0" CreditType="Sound" CreditSubtype="Sound Re-Recording Mixer" CreditedAs=""/>
<Credit FirstName="Norman" MiddleName="B." LastName="Schwartz" BirthYear="0" CreditType="Sound" CreditSubtype="Supervising Sound Editor" CreditedAs=""/>
<Credit FirstName="William" MiddleName="" LastName="Sandell" BirthYear="0" CreditType="Art" CreditSubtype="Production Designer" CreditedAs=""/>
<Credit FirstName="José" MiddleName="Rodríguez" LastName="Granada" BirthYear="0" CreditType="Art" CreditSubtype="Art Director" CreditedAs=""/>
<Credit FirstName="James" MiddleName="E." LastName="Tocci" BirthYear="0" CreditType="Art" CreditSubtype="Art Director" CreditedAs=""/>
</Credits>
<Overview>This Special Edition DVD allows you to experience TOTAL RECALL the way it was meant to be seen and heard.
• 16:9 Newly remastered Widescreen Version will immerse you in the action.
• 5.1 Newly remastered Dolby Surround with Nearfield Audio mix delivers optimum home theater audio performance.
Arnold Schwarzenegger provides a rare audio commentary along with Director Paul Verhoeven.
"IMAGINING TOTAL RECALL," a documentary created for this Special Edition, takes you behind the scenes with the film's stars and special effects wizards showing you why it won the Academy Award's® Special Achievement Award for Visual Effects.
"REKALL'S VIRTUAL VACATIONS" will transport you from the deserts of Mars to tropical destinations, allowing for hours of relaxing mini getaways.</Overview>
<EasterEggs>From the disc’s main menu go to the 'Setup' menu screen. There press the 'down' arrow key on your remote control to highlight the 'Main Menu' entry. Now, press the 'left' arrow key twice to highlight the 'JVC' logo in the left hand corner and press' Enter' - or you can simply hit the '8'-key on your remote control instead. This will give you access to a 30-second commercial for JVC products. Not necessarily a hidden feature in the traditional sense, but still easy to overlook, we thought. Go to the special features menu. Highlight "trailer". Press left and a TV will appear. Select it. You will then see a TV advert used in the film for the "Rekall" memory implant.</EasterEggs>
<Discs>
<Disc>
<DescriptionSideA>Main Feature</DescriptionSideA>
<DescriptionSideB/>
<DiscIDSideA>D06F0C65C6F1D163</DiscIDSideA>
<DiscIDSideB/>
<LabelSideA>TOTAL_RECALL</LabelSideA>
<LabelSideB/>
<DualLayeredSideA>True</DualLayeredSideA>
<DualLayeredSideB>False</DualLayeredSideB>
<DualSided>False</DualSided>
<Location/>
<Slot/>
</Disc>
</Discs>
<SortTitle>Total Recall</SortTitle>
<LastEdited>2007-11-10T02:54:10.000Z</LastEdited>
<WishPriority>0</WishPriority>
<PurchaseInfo>
<PurchasePrice DenominationType="USD" DenominationDesc="United States (Dollar)" FormattedValue="$0,00">0</PurchasePrice>
<PurchasePlace/>
<PurchasePlaceType/>
<PurchasePlaceWebsite/>
<PurchaseDate>2007-11-10</PurchaseDate>
</PurchaseInfo>
<Review Film="0" Video="0" Audio="0" Extras="0"/>
<Events/>
<LoanInfo>
<Loaned>False</Loaned>
</LoanInfo>
<Notes/>
<Tags/>
<Locks>
<Entire>False</Entire>
<Covers>False</Covers>
<Title>False</Title>
<MediaType>False</MediaType>
<Overview>False</Overview>
<Regions>False</Regions>
<Genres>False</Genres>
<SRP>True</SRP>
<Studios>False</Studios>
<DiscInformation>False</DiscInformation>
<Cast>False</Cast>
<Crew>False</Crew>
<Features>False</Features>
<AudioTracks>False</AudioTracks>
<Subtitles>False</Subtitles>
<EasterEggs>False</EasterEggs>
<RunningTime>False</RunningTime>
<ReleaseDate>False</ReleaseDate>
<ProductionYear>False</ProductionYear>
<CaseType>False</CaseType>
<VideoFormats>False</VideoFormats>
<Rating>False</Rating>
</Locks>
</DVD>
/////////////////// Her er min Importere ////////////////
<!--#include virtual="/includes/conn.asp" -->
<%
' ****************************************************************
' Dette script kan benyttes gratis, frit, og uden at indhente tilladelse først
' - dog må selve kildekoden ikke distribueres på andre sites end HTML.dk
' Kontakt HTML.dk hvis du er i tvivl
' ****************************************************************
' Adressen på det RSS-feed der skal loades
extURL = "http://www.bow.dk/Collection.xml"
' RSS-feedet loades
set xmlDoc = createObject("Msxml.DOMDocument")
xmlDoc.async = false
xmlDoc.setProperty "ServerHTTPRequest", true
xmlDoc.load(extURL)
' Check at RSS-feedet er loadet korrekt
If (xmlDoc.parseError.errorCode <> 0) then
' Udskriv eventuelle fejl (for nem fejlretning)
Response.Write "XML error: " & xmlDoc.parseError.reason
' Fortsæt hvis alt er ok
Else
' Åbn elementet <Collection>
set CollectionNodes = xmlDoc.selectNodes("//Collection/*")
for each entry in CollectionNodes
' De tre obligatoriske elementer i Collection lægges i variable
if entry.tagName = "Title" then
strCollectionTitle = entry.text
elseif entry.tagName = "ID" then
strCollectionID = entry.text
elseif entry.tagName = "CollectionNumber" then
strCollectionCollectionNumber = entry.text
elseif entry.tagName = "Overview" then
strCollectionOverview = entry.text
elseif entry.tagName = "RunningTime" then
strCollectionRunningTime = entry.text
elseif entry.tagName = "Regions" then
strCollectionRegions = entry.text
elseif entry.tagName = "UPC" then
strCollectionUPC = entry.text
elseif entry.tagName = "ProductionYear" then
strCollectionProductionYear = entry.text
elseif entry.tagName = "OriginalTitle" then
strCollectionOriginalTitle = entry.text
elseif entry.tagName = "ID" then
strCollectionID = entry.text
end if
next
' Åbn elementerne <DVD>
set DVDNodes = xmlDoc.selectNodes("//DVD/*")
For each DVD in DVDNodes
' Elementerne i Collection lægges i variable med #%# som adskillelse
if DVD.tagName = "Title" then
strDVDTitle = strDVDTitle & DVD.text & "#%#"
elseif DVD.tagName = "OriginalTitle" then
strDVDOriginalTitle = strDVDOriginalTitle & DVD.text & "#%#"
elseif DVD.tagName = "ProductionYear" then
strDVDProductionYear = strDVDProductionYear & DVD.text & "#%#"
elseif DVD.tagName = "CollectionNumber" then
strDVDCollectionNumber = strDVDCollectionNumber & DVD.text & "#%#"
elseif DVD.tagName = "Overview" then
strDVDOverview = strDVDOverview & DVD.text & "#%#"
elseif DVD.tagName = "RunningTime" then
strDVDRunningTime = strDVDRunningTime & DVD.text & "#%#"
elseif DVD.tagName = "Regions" then
strDVDRegions = strDVDRegions & DVD.text & "#%#"
elseif DVD.tagName = "UPC" then
strDVDUPC = strDVDUPC & DVD.text & "#%#"
elseif DVD.tagName = "ID" then
strDVDID = strDVDID & DVD.text & "#%#"
end if
next
' Elementerne i Collection splittes i arrays
arrDVDTitle = split(strDVDTitle,"#%#")
arrDVDOriginalTitle = split(strDVDOriginalTitle,"#%#")
arrDVDProductionYear = split(strDVDProductionYear,"#%#")
arrDVDCollectionNumber = split(strDVDCollectionNumber,"#%#")
arrDVDOverview = split(strDVDOverview,"#%#")
arrDVDRunningTime = split(strDVDRunningTime,"#%#")
arrDVDRegions = split(strDVDRegions,"#%#")
arrDVDUPC = split(strDVDUPC,"#%#")
arrDVDID = split(strDVDID,"#%#")
' Elementerne i Collection udskrives
response.write "<b>"
for a = 0 to UBound(arrDVDTitle) - 1
response.write "</b><br>"
response.write "TITEL:::: " & arrDVDTitle(a) & ""
' ID udskrives hvis den eksisterer
if strDVDOriginalTitle<> "" then
response.write "<br />ORGINALTITEL:::: " & arrDVDOriginalTitle(a)
end if
if strDVDProductionYear <> "" then
response.write "<br />RELEASEDATO:::: " & arrDVDProductionYear(a)
end if
if strDVDCollectionNumber <> "" then
response.write "<br />DVDNR:::: " & arrDVDCollectionNumber(a)
end if
if strDVDOverview <> "" then
response.write "<br />BESKRIVELSE::::<br> " & arrDVDOverview(a)
end if
if strDVDRunningTime <> "" then
response.write "<br />SPILLETID:::: " & arrDVDRunningTime(a)
end if
if strDVDRegions <> "" then
response.write "<br />Region:::: " & arrDVDRegions(a)
end if
if strDVDUPC <> "" then
response.write "<br />EAN:::: " & arrDVDUPC(a)
end if
if strDVDID <> "" then
response.write "<br />ID:::: " & arrDVDID(a)
end if
response.write "<br>"
Conn.Execute "INSERT INTO film (ID, albumid, Titel, OrginalTitel, Skuespillere, Beskrivelse, Spilletid, Region, Diske, Ekstra, undertekst, Udgivdato, Type, Billede, Oprettet, Redigeret, Kopi, Instruktor, Censur, Sprog, EAN, nr, box, trailer) VALUES ('', '1', '" & arrDVDTitle(a) & "', '" & arrDVDOriginalTitle(a) & "', '' , '" & arrDVDOverview(a) & "', '" & arrDVDRunningTime(a) & "', '2', '1', '1', '1,2,3', '" & arrDVDProductionYear(a) & "' , '1', '1_" & arrDVDID(a) & "f.jpg', '"& now() & "', '"& now() & "', '', '', '1' , '3', '" & arrDVDUPC(a) & "', '" & arrDVDCollectionNumber(a) & "', '0', '0')"
Conn.Execute "INSERT INTO covers (ID, albumid, filmid, dato, filnavn, filnavnorginal, storrelse) VALUES ('', '1', '0', '"& Date & "', '1_" & arrDVDID(a) & "f.jpg', '" & arrDVDID(a) & "f.jpg', '56206')"
next
response.write "</ul>"
' Vi rydder op
set CollectionNodes = nothing
set DVDNodes = nothing
End If
%>
Jeg håber nogen kan hjælpe mig med at splitte gerne til et tal istedet
